**一个关于ado和datacombo的问题***急急!!

wxm322000 2003-03-27 10:47:42

Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
rsstu.Open "select * from studentinfo order by SID", wxmserver

我已经如上定义好ado接口了,现在我要将rsstu中的第一列(即表中的第一列)显示在datacombo中以供选择。
...全文
9 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chenyu5188 2003-03-28
Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
rsstu.Open "select * from studentinfo order by SID", wxmserver

do while not rsstu.eof then
Combo1.AddItem mrc.Fields(1).Value
loop


回复
sxs69 2003-03-28
datacombo好象不能用ADO接口,我用DAO接口显示成功
回复
wxm322000 2003-03-28
不行啊
回复
itxxx 2003-03-27

Set DataCombo1.RowSource = rsstu
DataCombo1.ListField = 字段名
回复
chanet 2003-03-27

For i = 0 To rsstu.RecordCount - 1
Combo1.AddItem mrc.Fields(1).Value
Next i

将数据集的记录中的第一列数据添加到ComBo1上
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-27 10:47
社区公告
暂无公告