**一个关于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中以供选择。
...全文
60 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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上

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧