VB的DataGrid用法？

VB的DataGrid用法：

DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid

来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了

DataGrid 控件的 DataSource

属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。

在运行时，可以在程序中切换 DataSource 来察看不同的表，或者可以修改当前数据    库的查询，以返回一个不同的记录集合。

可能的用法

1.查看和编辑在远程或本地数据库中的数据。

        2.与另一个数据绑定的控件（诸如 DataList 控件）联合使用，使用 DataGrid

控件来

显示一个表的记录，这个表通过一个公共字段链接到由第二个数据绑定控件所显示            的表。

使用 DataGrid 控件的设计时特性

可以不编写任何代码，只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid

控件的典型应用时的一般步骤。

要在设计时实现一个 DataGrid 控件

1.为您希望访问的数据库创建一个 Microsoft 数据链接 (.UDL) 文件。请参阅“创建 Northwind OLE DB

数据链接”主题，以获得一个示例。

2.在窗体上放置一个 ADO Data 控件，并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB

数据源。

3.在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记录集的 SQL 语句。例如：

Select * From MyTableName Where CustID = 12

4.在窗体上放置一个 DataGrid 控件，并将其 DataSource 属性设置为这个 ADO Data 控件。

5.右键单击该 DataGrid 控件，然后单击“检索字段”。

6.右键单击该 DataGrid 控件，然后单击“编辑”。

7.重新设置该网格的大小、删除、或添加网格的列。

8.右键单击该 DataGrid 控件，然后单击“属性”。

9.使用“属性页”对话框来设置该控件的适当的属性，将该网格配置为所需的外观和行为。

在运行时更改显示的数据

在创建了一个使用设计时特性的网格后，也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。

更改 DataSource 的RecordSource

更改所显示的数据的最通常的方法是改变该 DataSource 的查询。例如，如果 DataGrid 控件使用一个 ADO Data 控件作为其 DataSource，则重写 RecordSource、刷新该 ADO Data 控件、都将改变所显示的数据。

' ADO Data 控件连接的是 Northwind 数据库的

' Products 表。新查询查找所有 

' SupplierID = 12 的记录。

Dim strQuery As String

strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"

Adodc1.RecordSource = strQuery

Adodc1.Refresh

更改 DataSource

在运行时，可以将 DataSource 属性重新设置为一个不同的数据源。例如，您可能具有若干个 ADO Data

控件，每个控件连接不同的数据库，或设置为不同的 RecordSource 属性。可以简单地将 DataSource 从一个 ADO Data

控件重新设置为另一个 ADO Data 控件：

' 将 DataSource 重新设置为一个连接到 Pubs 数据库的、

' 使用 Authors 表的 ADO Data 控件。

Set DataGrid1.DataSource = adoPubsAuthors

重新绑定 DataSource

当将 DataGrid 控件用于一个远程数据库，诸如 SQLServer 时，可以改变表的结构。例如，可以给这个表添加一个字段。在这种情形时，可以调用

Rebind 方法根据新的结构来重新创建该网格。注意，如果已经在设计时改变了这个列的布局，DataGrid

控件将会试图重新创建当前的布局，包括任何空的列。不过，通过首先调用 ClearFields 方法，可以强制该网格重新设置所有的列。

界面里点击datagrid控件，

法一：如果已经连接数据源、表、有查询语句，单击右键，选择“字段刷新”（retrieve fields），确定。

法二：单击右键，选择“编辑”（edit）编辑该控件，通过编辑控件（此时再次单击右键，插入行或列）完成

VB6里，类似的控件叫 datagrid控件，需要通过菜单 [工程] -- [部件]，勾选

Microdoft DataGrid Control 6.0 (SP6)，完成添加到控件工具箱。

VB利用DataGrid控件显示数据库中数据信息，DataGrid在数据库数据显示的时候非常重要，它在用户 *** 作舒适度及数据排列方面有独到之处，对于Vb数据库编程的用户来说，掌握DataGrid的使用是至关重要的事情。

参考实例如下：

Public cnn As adodb.Connection

Public rst As adodb.Recordset

Public Sub setdb()

Set cnn = New adodb.Connection

cnn.Provider = "Microsoft.Jet.OLEDB.4.O"

cnn.ConnectionString = "Data Source=" &App.Path &"\personal.mdb"

cnn.CursorLocation = adUseClient

cnn.Open

End Sub

Private Sub Form_Load()

On Error Resume Next

Dim Strsql As String

setdb

Set DataGrid1.DataSource = Nothing

Strsql = "select * from 备忘录 order by 编号"

Set rst = cnn.Execute(Strsql)

If Err Then

MsgBox "读取数据失败"

Exit Sub

End If

If rst.EOF Then

Set DataGrid1.DataSource = Nothing

Else

Set DataGrid1.DataSource = rst

End If

End Sub

---