1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lndlwwh830 2004-11-11
- 打赏
- 举报
引用 ado
Sub connect()
Dim CN1 As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\....\new.mdb;"
Rs.CursorLocation = adUseClient
sql="select * from mytalbe" 'sql 语句
Rs.Open sql,CN1, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
End Sub
Sub connect()
Dim CN1 As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\....\new.mdb;"
Rs.CursorLocation = adUseClient
sql="select * from mytalbe" 'sql 语句
Rs.Open sql,CN1, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
End Sub
