Public DB As ADODB.Connection Public rsChuangJian As ADODB.Recordset Set DB = New Connection DB.CursorLocation = adUseClient DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "数据库名.mdb;Jet OLEDB:Database Password=密码;" Set rsChuangJian = New Recordset rsChuangJian.Open "select * from 表名 ", DB, adOpenDynamic, adLockOptimistic
两种方法: 1、在控制面板的ODBC32数据源中创建一个文件DSN 如叫f 。 在vb中添加如下代码 Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset cn.Open "DSN=f;Provider=MSDASQL.1 " rs.Open "select * from 表名 ", cn, adOpenStatic, adLockReadOnly 2。 在vb中添加如下代码 Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb;" rs.Open "select * from 表名 ", cn, adOpenStatic, adLockReadOnly 建议看一下msdn关于ado的使用。
Public rsChuangJian As ADODB.Recordset
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "数据库名.mdb;Jet OLEDB:Database Password=密码;"
Set rsChuangJian = New Recordset
rsChuangJian.Open "select * from 表名 ", DB, adOpenDynamic, adLockOptimistic
两种方法:
1、在控制面板的ODBC32数据源中创建一个文件DSN 如叫f 。
在vb中添加如下代码
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "DSN=f;Provider=MSDASQL.1 "
rs.Open "select * from 表名 ", cn, adOpenStatic, adLockReadOnly
2。
在vb中添加如下代码
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb;"
rs.Open "select * from 表名 ", cn, adOpenStatic, adLockReadOnly
建议看一下msdn关于ado的使用。