请教数据ADODB

[okcat]

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网格控件的数据源怎么设定。该写什么呢？

[okcat]

up

[okcat]

up

[okcat]

up

[IE14571]

rs

[okcat]

按楼上的说法做也不行，提示行集合不能做为标签。

[okcat]

up

[okcat]

邦忙邦忙

[szmickylee]

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

[okcat]

哦，是MSFlexgrid吧。是哪个

[okcat]

我用的是MSHFlexgrid控件，可以是可以了。也不报错了。但是控件里显示的只有记录集中的第一条记录。

我就是用ADODB访问数据库，想知道控件的数据源怎么写。

[szmickylee]

呵呵，一时打字错误。。 @.@

[cqm2099]

con.Execute("select * from t_zl_data10")

[asza2001]

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

Set 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 = adUseClient

Set rs = cmd.Execute
Set Text1.DataSource = rs
Set DataGrid1.DataSource = rs

_______________
照着我这个改

[asza2001]

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

[suxylin]

只要连接字符串 RS没有问题

Set datagrid1.datasource ＝rs 应该可以用
不会出现一条记录而已

[pcm112]

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