不用绑定。你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library” 注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的Private Sub ComOK_Click() Dim SQLstr As String,cnstr AS String Dim cn AS New ADODB.Connection'连接对象 Dim rs As New ADODB.Recordset'记录集对象 cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & App.Path & "\data\XXX.mdb;" _ & "Persist Security Info=False" '连接字符串 cn.open cnstr' 打开数据库连接 rs.CursorLocation =adUseClient sqlstr="slect * from XXX表" rs.open sqlstr,cn,3,3'执行SQL语句,并返回记录 set datagrid1.datasource=rs'将结果显示到datagrid控件中 datagrid1.refresh rs.close'关闭记录集对象 set rs=nothing End Sub 本示例是将数据库中的一张表的记录显示在datagrid的控件中。如果你要将输入的数据写到数据库中你自己再写一个更新数据库的函数或过程。
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的Private Sub ComOK_Click()
Dim SQLstr As String,cnstr AS String
Dim cn AS New ADODB.Connection'连接对象
Dim rs As New ADODB.Recordset'记录集对象
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\data\XXX.mdb;" _
& "Persist Security Info=False" '连接字符串
cn.open cnstr' 打开数据库连接
rs.CursorLocation =adUseClient
sqlstr="slect * from XXX表"
rs.open sqlstr,cn,3,3'执行SQL语句,并返回记录
set datagrid1.datasource=rs'将结果显示到datagrid控件中
datagrid1.refresh
rs.close'关闭记录集对象
set rs=nothing
End Sub
本示例是将数据库中的一张表的记录显示在datagrid的控件中。如果你要将输入的数据写到数据库中你自己再写一个更新数据库的函数或过程。