Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4597|回复: 11

[已解决]Combobox列表从SQL取值问题

[复制链接]
发表于 2014-3-27 11:00 | 显示全部楼层 |阅读模式
请名位大侠帮忙,
我的Combobox1的列表想从SQL中取值,但提示下面带下线的那句有错误,错误提示:"在对应所需名称或序数的集合中,未找到项目".不知道问题在哪,请帮忙看看.
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
    Dim connobj As New ADODB.Connection
    Dim GetRecord As New ADODB.Recordset

    Set connobj = New ADODB.Connection
    connobj.ConnectionString = "driver={SQL Server};server=192.168.1.252;uid=sa;pwd=@qaz;database=jxkh"
    connobj.Open

    Set GetRecord = New ADODB.Recordset
    Sql = "Select dname from username"
    GetRecord.Open Sql, connobj

    Set Record = GetRecord.Fields
    GetRecord.MoveFirst
    Do While Not GetRecord.EOF
        ComboBox1.AddItem GetRecord!Name
        GetRecord.MoveNext
    Loop
    GetRecord.Close
    Set GetRecord = Nothing
    connobj.Close
    Set connobj = Nothing
End If
End Sub


最佳答案
2014-3-27 11:16
ComboBox1.AddItem GetRecord.item(0).name吧。
你出错后,调试,在立即窗口试试 ? getrecord!name试试。
发表于 2014-3-27 11:16 | 显示全部楼层    本楼为最佳答案   
ComboBox1.AddItem GetRecord.item(0).name吧。
你出错后,调试,在立即窗口试试 ? getrecord!name试试。
回复

使用道具 举报

发表于 2014-3-27 11:21 | 显示全部楼层
如果这个有问题:ComboBox1.AddItem GetRecord.item(0).name
就试试ComboBox1.AddItem GetRecord.items(0).name
你的是SQL服务器,没办法测。
回复

使用道具 举报

发表于 2014-3-27 11:28 | 显示全部楼层
另外,可以把记录集返回到数组中,然后一次添加。
回复

使用道具 举报

 楼主| 发表于 2014-3-27 11:35 | 显示全部楼层
hwc2ycy 发表于 2014-3-27 11:28
另外,可以把记录集返回到数组中,然后一次添加。

ComboBox1.AddItem GetRecord.item(0) .Name
ComboBox1.AddItem GetRecord.items(0) .Name
都不对,错误:"方法或数据成员未找到"
回复

使用道具 举报

 楼主| 发表于 2014-3-27 11:42 | 显示全部楼层
错误窗口
QQ五笔截图未命名.png
回复

使用道具 举报

 楼主| 发表于 2014-3-27 11:51 | 显示全部楼层
hwc2ycy 发表于 2014-3-27 11:28
另外,可以把记录集返回到数组中,然后一次添加。

请问怎么返回到数组中?
回复

使用道具 举报

发表于 2014-3-27 13:21 | 显示全部楼层
  1.     Do While Not getrecord.EOF
  2.         Me.ComboBox1.AddItem AdoRst.Fields(0).Value
  3.         getrecord.movenext
  4.     Loop
复制代码
回复

使用道具 举报

发表于 2014-3-27 13:22 | 显示全部楼层
  1.     getrecord.movefirst
  2.     arr = WorksheetFunction.Transpose(getrecord.getrows)
复制代码
回复

使用道具 举报

 楼主| 发表于 2014-3-27 14:15 | 显示全部楼层
hwc2ycy 发表于 2014-3-27 13:21

提示错误"类型不匹配"
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:30 , Processed in 0.639123 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表