1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ifelseend 2003-03-28
- 打赏
- 举报
工程里要引用 Microsoft ActiveX Data Objects 2.x Library
Ji秋风 2003-03-27
- 打赏
- 举报
它为何说ADODB无定义阿
sxs69 2003-03-27
- 打赏
- 举报
用ADO方法：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb"
cn.Open str
rs.CursorLocation = adUseClient
rs.Open "select * from tb1", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
也可以用DAO方法
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb"
cn.Open str
rs.CursorLocation = adUseClient
rs.Open "select * from tb1", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
也可以用DAO方法
valleyecho 2003-03-27
- 打赏
- 举报
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HandReaderInterface\RHand.mdb;Persist Security Info=False"
conn.Open
上面的参数当中provider是驱动程序,如果是office97,则为Microsoft.Jet.OLEDB.3.5
Data Source是数据库的实际路径.
这是用程序联接,你也可以拉一个adodc控件.
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HandReaderInterface\RHand.mdb;Persist Security Info=False"
conn.Open
上面的参数当中provider是驱动程序,如果是office97,则为Microsoft.Jet.OLEDB.3.5
Data Source是数据库的实际路径.
这是用程序联接,你也可以拉一个adodc控件.
