1,217
社区成员
发帖
与我相关
我的任务
分享**一个关于ado和datacombo的问题***急急！！
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中以供选择。
...全文
请发表友善的回复…
发表回复
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
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上
