'引用microsoft activex data object 2.x library Option Explicit Private conn As ADODB.Connection Private rs As ADODB.RecordsetPrivate Sub Form_Load() Set conn = New ADODB.Connection conn.Open "DSN=test;uid=sa;pwd=;" '配置用户数据源,以sqlserver数据库northwind为例 conn.CursorLocation = adUseClientSet rs = New ADODB.Recordset rs.Open "select * from employees", conn, adOpenDynamic, adLockPessimistic Set DataGrid1.DataSource = rs
conn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=连接的数据库名;Data Source=连接的数据库组"ACCESS:
CONN.OPEN “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径和名称;Persist Security Info=False”
你是哪一步知道啊?
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.RecordsetPrivate Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "DSN=test;uid=sa;pwd=;" '配置用户数据源,以sqlserver数据库northwind为例
conn.CursorLocation = adUseClientSet rs = New ADODB.Recordset
rs.Open "select * from employees", conn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs