关于VB读取SQL中的数据，怎么样用表格显示出来的问题。

Question

Set DataGrid1.DataSource = rs

Answer 1

这个问题也太简单了吧，
如果你用mshflexgrid直接绑定,set msflexgrid1.datasource=rs
如果你想用程序写的话
dim i as integer
dim j as integerfor i= 0 to rs.recordcount-1
  for j=0 to rs.fields.count-1
     msflexgrid1.textmatrix(i,j)=rs.fields(j).value
  next
next

Answer 2

关于楼上的写
Set DataGrid1.DataSource = rs出现错误说：Run-time error '7004'
The rowset is not bookablewhy? help me!

Answer 3

我在VB上面写了下面的代码：
Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=autocen;Data Source=wang"
Set rs = New ADODB.Recordset
rs.Open "select * from dianli1", cn, adOpenKeyset, adLockOptimistic,
Set DataGrid1.DataSource=rs
出现错误说：Run-time error '7004'
The rowset is not bookablewhy? help me!

Answer 4

是msflexgrid控件不是DataGrid控件1

Answer 5

是msflexgrid控件不是DataGrid控件1

Answer 6

我在VB上面写了下面的代码：
Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=autocen;Data Source=wang"
Set rs = New ADODB.Recordset
rs.Open "select * from dianli1", cn, adOpenKeyset, adLockOptimistic,
Set msflexgrid.DataSource=rs改用了msflexgrid后还是出错，如下：
Object variable or with block variable not set
（我是把控件放在容器里面的啊，应该没有问题吧！）请指导！

Answer 7

加个ado控件，datagrid1.datasource=adodc1
adodc1.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=autocen;Data Source=wang"
adodc1.RecordSource="select * from dianli1"
adodc1.Refresh

Answer 8

谢谢上面的那位大哥！
我还想问一个问题：
就是在
adodc1.RecordSource="select * from dianli1"
中。如果我想通过一个文本框确定要查找的条件。
如：adodc1.RecordSource="select * from dianli1 keyname<300"
应该怎么做呢？？？？

Answer 9

动态改变SQL文，execute后rebind或者利用parameters集合