Question

vb编程，将数据库中的数据导入到combobox中

Private Sub Form_Load()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
comboSex.AddItem "男"
comboSex.AddItem "女"
txtSQL = "select * from class_info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加内容到列表框中
For i = 1 To mrc.Record.Count
comboClassNo.AddItem mrc.Fields(0)
mrc.MoveNext
Next i
mrc.Close
End Sub

Answer 1

帮你改了！注意Dim mrc As New ADODB.Recordset 少了New。
只要将mrc.Close删除就可以了。然后在TxtSQL上面加上If mrc.State = adStateOpen Then mrc.Close具体代码请看下
Dim mrc As New ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
comboSex.AddItem "男"
comboSex.AddItem "女"

If mrc.State = adStateOpen Then mrc.Close
txtSQL = "select * from class_info"
Set mrc = ExecuteSQL(txtSQL, MsgText)

'添加内容到列表框中
comboClassNo.Clear
mrc.MoveFirst
Do While Not mrc.EOF
comboClassNo.AddItem mrc.Fields(0).value
mrc.MoveNext
Loop
End Sub

Answer 2

comboClassNo.AddItem mrc.Fields(0)
改成
comboClassNo.AddItem mrc.Fields(i)

Answer 3

直接用datacombo控件
rowsource绑定

Answer 4

什么意思？出错了吗？