VB中datagrid如何添加

界面里点击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

---