Question

VB6.0中如何查询数据库以及如何在DBgrid中显示查询结果

如何修改这段代码
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from table where '流量m3/h'>d"
Set DBGrid.DataSource = Adodc1
End Sub
将其中的adodc控件换成data控件貌似也不行，还是会报错
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from table where '流量m3/h'>d"
Set DBGrid.DataSource = Adodc1
End Sub
只能将数据库加载显示，不能做到查询再显示

急求VB大侠~~哭~~我是vb小白
楼主只有100积分，本来准备清空求高手，无奈想起接下来还要做VB与CAD的二次开发~~于是留了50积分等待下一次~~如果真有VB高手路过~~请加我qq吧~~~等待被拯救中~~qq：271344340

Answer 1

你是想在dbgrid中显示“流量”表中所有的结果吧，给你一个更好的办法使用MSFlexGrid控件，引用DAO libarary 3.51，将查询结果输出到MSFlexGrid中就可以了。
照你的例子给你重新写一下：
Private Sub Command3_Click()
dim rs as adodb.recordset
sql = "select * from table where '流量m3/h'>d"
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
MSFlexGrid.cols=rs.recordcount
i=rs.recordcount
do until rs.eof
for j=0 to i
MSFlexGrid.col=j
MSFlexGrid.text=rs("字段名")
next
rs.movenext
loop
End Sub
这样就可以了

Answer 2

名字取的不好，表名不能叫table可以叫table1，字段名不能叫 流量m3/h，不能有 / 符，叫 流量 就行。查询语句中字段不用单引号
应写成
Adodc1.RecordSource = "select * from table1 where 流量 >" & d
Adodc1.Refresh
Set DBGrid.DataSource = Adodc1

Answer 3

在程序中可以这样写，
sql="select * from table where '流量m3/h'>d"
adodc1.ConnectionString