ADO连接ACCESS进行数据查询

来源：百度知道 编辑：UC知道 时间：2024/05/03 21:29:37
我现在对问题没有思路 请高手指点下具体方法啊
我想做的是在局域网内实现对另一台电脑ACCESS数据库的数据访问，有没有相应的源代码

先在工程引用中申明ADODB
Dim conn As New ADODB.Connection '连接对象
Dim rs As New ADODB.Recordset '记录集对象

Private Sub Command1_Click()
'插入数据：
If rs.State <> adStateClosed Then '检查记录集状态
rs.Close
End If
rs.Open "insert into T_user(name,age) values('" & txtname.Text & "'," & txtage & ")", conn, adOpenDynamic, adLockBatchOptimistic
If rs.State <> adStateClosed Then
rs.Close
End If
'更新DataGrid1数据
rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient '游标放在客户端
rs.CursorLocation = adUseClient
rs.Open "select * from T_user"