|
请名位大侠帮忙,
我的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
ComboBox1.AddItem GetRecord.item(0).name吧。
你出错后,调试,在立即窗口试试 ? getrecord!name试试。
|
|