Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=MYPC"
cnn.Open
Set rst.ActiveConnection = cnn
rst.Open "select * from Table1"
Set TDBGrid1.DataSource = rst
但是查询不出数据,用ADODB控件就可以(ConnectionString也设一样的,在设计时将TDBGrid1的DataSource属性设置为ADODB1)
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=MYPC"
cnn.Open
Set rst.ActiveConnection = cnn
rst.Open "select * from Table1"
Set TDBGrid1.DataSource = rst
但是查询不出数据,用ADODB控件就可以(ConnectionString也设一样的,在设计时将TDBGrid1的DataSource属性设置为ADODB1)
总之,这样
在rst.Open前:
rst.CursorLocation=adUseClient
rst.open "select * from Table1",cnn,adOpenStatic,adLockOptimistic