我只需要将数据库内容显示,下面是代码,但是毫无DataGrid毫无反应啊 Dim objConn Dim objstrSet objConn=CreateObject("ADODB.Connection")objstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\test.MDB" objConn.Open objstrset rs=CreateObject("ADODB.Recordset") dim sql sql="select * from test1 where (id=null)" rs.Open sql,objConn,1,1set datagrid1.datasource=rs是不是控件版本太老了?
可能是这个的问题sql="select * from test1 where (id=null)" 检测一下查询出来是否有记录: rs.Open sql,objConn,1,1 debug.print rs.eof
如果想要所有的记录,就不用加查询条件 sql="select * from test1"
我不想用控件,因为我要转到VbScript
把查询条件去掉,看看是什么效果 sql="select * from test1 where (id=null)"改为:sql="select * from test1
DATASOURCE:用它可以绑定数据源
然后全部都显示了但是关键的是,用这个控件虽然简单,但是不灵活,还是推荐用LISTVIEW,虽然数据得用代码向里面写,但是用起来灵活方便,而且附属的功能也不少。
Dim objConn
Dim objstrSet objConn=CreateObject("ADODB.Connection")objstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\test.MDB"
objConn.Open objstrset rs=CreateObject("ADODB.Recordset")
dim sql
sql="select * from test1 where (id=null)"
rs.Open sql,objConn,1,1set datagrid1.datasource=rs是不是控件版本太老了?
检测一下查询出来是否有记录:
rs.Open sql,objConn,1,1
debug.print rs.eof
sql="select * from test1"
sql="select * from test1 where (id=null)"改为:sql="select * from test1