1,453
社区成员
发帖
与我相关
我的任务
分享关于ListBox连接数据源显示的问题
Private cnn As ADODB.Connection
Private cnnstr As String
Private rst As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1f.mdb;Persist Security Info=False"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "select ID,部门,部门编码 from 部门", cnn, adOpenDynamic, adLockOptimistic
Set VSFlexGrid1.DataSource = rst
为什么VSFlexGrid1就行
Set ListBox1.DataSource＝rst
Set ListBox1.DataField＝"部门" 就不行
有什么正确简便写法，越简单越好。
Private cnnstr As String
Private rst As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1f.mdb;Persist Security Info=False"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "select ID,部门,部门编码 from 部门", cnn, adOpenDynamic, adLockOptimistic
Set VSFlexGrid1.DataSource = rst
为什么VSFlexGrid1就行
Set ListBox1.DataSource＝rst
Set ListBox1.DataField＝"部门" 就不行
有什么正确简便写法，越简单越好。
...全文
请发表友善的回复…
发表回复
dandelionl 2004-05-12
- 打赏
- 举报
chinaren502(星星知我心)
你写对了，但是是rst.RecordCount
你写对了，但是是rst.RecordCount
lsftest 2004-05-11
- 打赏
- 举报
listbox好象是与data控件配套使用的，不能绑定到adodb或adodc去
如果要用adodb或adodc，请使用datalist控件。。。。。
工程－部件－microsoft datalist controls....
如果要用adodb或adodc，请使用datalist控件。。。。。
工程－部件－microsoft datalist controls....
flyingZFX 2004-05-11
- 打赏
- 举报
lsftest() ( ) 信誉：100 2004-05-11 12:28:00 得分:0
是呀!!!楼上说的对呀？
是呀!!!楼上说的对呀？
chinaren502 2004-05-11
- 打赏
- 举报
好象得自己填充
rs.movefirst
for i=0 to rs.count-1
list.additem rs!部门
rs.movenext
next i
rs.movefirst
for i=0 to rs.count-1
list.additem rs!部门
rs.movenext
next i
titan90 2004-05-11
- 打赏
- 举报
UP
