ADODB中怎样用网格显示?
Private Sub Command1_Click()
Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connection
Set rst = New ADODB.Recordset
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu", cnn1 //stu为数据库中的表
Print rst.Fields(0)
Print rst.Fields(1)
Print rst.Fields(2)
Print rst.Fields(3)
Print rst.Fields(4)
End Sub
以上代码可以读出表中的数据,并打印
但我想让表中所有的数据显示在网格中,该怎样做?
我在end sub 上面加上Set MSFlexGrid1.DataSource = rst,为什么提示“对象变量或with块变量未设置"
但把msflexgrid换成datagrid就不会提示出错,但显示不了数据
问题
1。怎样争取的将数据显示在网格上?
2。msflexgrid和datagrid为什么结果不同,对ADO来说,他们有什么差别?
问题点数:30、回复次数:7Top
1 楼ferrytang(欢迎你)回复于 2002-04-02 17:46:53 得分 28
1.我给你的代码中有例子的,就是frmsalary
2.datagrid是前绑定
mshflexgrid事后绑定Top
2 楼blkant()回复于 2002-04-02 17:47:25 得分 2
Dim rst As ADODB.Recordset修改为Dim rst As new ADODB.Recordset
Top
3 楼ferrytang(欢迎你)回复于 2002-04-02 17:50:09 得分 0
2.datagrid是事前绑定
mshflexgrid是后期绑定Top
4 楼daryl715(上善若水)回复于 2002-04-02 23:12:50 得分 0
to blkand 不成啊
to ferrytang
事前,后期是什么意思啊,不明白Top
5 楼daryl715(上善若水)回复于 2002-04-02 23:20:10 得分 0
to ferrytang
那里啊,我不知道那段代码是绑定
是不是可以像data+msflexgrid那样自动降示出所有数据呢?Top
6 楼daryl715(上善若水)回复于 2002-04-02 23:30:46 得分 0
把datagrid换成MSHFlexGrid1就没问题了
但为什么datagrid和MSFlexGrid1就不成
和ferrytang说的事前绑定和后期绑定有关吗?
什么叫事前绑定和后期绑定Top
7 楼ferrytang(欢迎你)回复于 2002-04-04 15:45:05 得分 0
代码给你了Top




