请教数据ADODB

Question

Dim con As adodb.Connection
Dim rs As adodb.Recordset
Dim st As String
Set con = New adodb.Connection
st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB临时文件夹\转炉报表改.mdb;Persist Security Info=False"
con.ConnectionString = st
con.Open
Set rs = con.Execute("select * from t_zl_data10")
Set DataGrid1.DataSource = ？
利用ADODB，最后一条语句的Datagrid网格控件的数据源怎么设定。该写什么呢？

Answer 1

不要用datagrid。还有另外一个可以使用。MSFleshGrid

Answer 2

我用的是MSHFlexgrid控件，可以是可以了。也不报错了。但是控件里显示的只有记录集中的第一条记录。我就是用ADODB访问数据库，想知道控件的数据源怎么写。

Answer 3

con.Execute("select * from t_zl_data10")

Answer 4

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.CommandSet cnn = New ADODB.Connection
Set cmd = New ADODB.Command
Dim cnnstr As String
cnnstr = "f:\mybase.mdb"
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & cnnstr & ";mode=read"
cnn.Open
cmd.ActiveConnection = cnn
Set rs = New ADODB.Recordset
Dim mysql As String
mysql = "select * from 表1"
cmd.CommandText = mysql
'rs.CursorLocation = adUseClientSet rs = cmd.Execute
 Set Text1.DataSource = rs
Set DataGrid1.DataSource = rs_______________
照着我这个改

Answer 5

Set Text1.DataSource = rs。这句你可以不要，这是我要用的。

Answer 6

只要连接字符串 RS没有问题Set datagrid1.datasource ＝rs 应该可以用
不会出现一条记录而已

Answer 7

rs.open "select * from t_zl_data10",con, adOpenStatic, adLockOptimistic
set DataGrid1.DataSource = rs
应该没有问题