ODBC方法:工程-->引用-->microsoft activeX Data Object 2.6 Librarydim conn as new adodb.connection dim rs as new adodb.recordset conn.open "字符串1" rs.open "字符串2",adopenstatic,adlockoptimistic'字符串1:用ADO控件的属性中,生成字符串方法,选择数据库的类型,名称,用户名,密码.把生成的字符串COPY到字符串1的位置,然后把ADO控件删除. '字符串2:是SQL语句.
ado: dim cn as new adodb.connection cn.open "provider=sqloledb.1;data source=服务器名;inital catalog=数据源"
Public cn As ADODB.Connection Public cmd As ADODB.Command Public rs As ADODB.RecordsetPublic Sub Connect() Set cn = New ADODB.Connection With cn .Provider = "SQLOLEDB. 1" .ConnectionString = "Persist Security Info=False;User ID=" & "sa" & ";pwd=" & "songenkai" & ";Initial Catalog=" & "song" & ";Data Source=" & "localhost" & "" .Open End With
dim rs as new adodb.recordset
conn.open "字符串1"
rs.open "字符串2",adopenstatic,adlockoptimistic'字符串1:用ADO控件的属性中,生成字符串方法,选择数据库的类型,名称,用户名,密码.把生成的字符串COPY到字符串1的位置,然后把ADO控件删除.
'字符串2:是SQL语句.
dim cn as new adodb.connection
cn.open "provider=sqloledb.1;data source=服务器名;inital catalog=数据源"
Public cmd As ADODB.Command
Public rs As ADODB.RecordsetPublic Sub Connect()
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB. 1"
.ConnectionString = "Persist Security Info=False;User ID=" & "sa" & ";pwd=" & "songenkai" & ";Initial Catalog=" & "song" & ";Data Source=" & "localhost" & ""
.Open
End With
'Set cmd = New ADODB.Command
'cmd.ActiveConnection = cn
'cmd.CommandText = "select *from "
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
rs.CursorLocation = adUseClient ''关键这条语句
End SubPrivate Sub Form_Load()
Call Connect
rs.Open "select * from sef_bm", cn, 3, 2
Set DataGrid1.DataSource = rs
end sub
一种是ADO控件另一种是对象