Question

vb6.0中查询的数据放入datagrid控件中，求高手解惑 谢谢

Private Sub Form_Load()
Call connectDB
Set rs = New ADODB.Recordset
rs.ActiveConnection = conn
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockOptimistic
rs.Open "select * from administrator"
cobcourseid.AddItem ""
Do While Not rs.EOF
With cobcourseid
.AddItem rs!id
rs.MoveNext
End With
Loop
End Sub
请高手帮我看看究竟是哪里错了 总是提示“要求对象”
cobcourseid.AddItem "" 错误应该出到这个地方

Answer 1

1、你程序中的控件 cobcourseid 是什么控件，是ComboBox吗？
如果是 ComboBox 控件，在后面的 Do 循环中简化如下
Do While Not rs.EOF
cobcourseid.AddItem rs!id
rs.MoveNext
Loop
这样就可以将字段"id" 值添加到 ComboBox 中了。
2、如果想利用DataGrid 显示数据结果，需要在界面放置 Adodc 数据控件
因为 DataGrid的 DataSource 属性不支持动态的 ADODB.RecordSet
所以在界面放置Adodc控件后，在程序运行时，可更新Adodc 数据源，以便在DataGrid中显示更新后的数据。
如：数据控件 Adodc1
数据网格 DataGrid1
设计状态下，设置 DataGrid1.DataSource=Adodc1

在Form_Load() 事件中
With Adodc1
.Connection=连接数据库字符串
.RecordSource="select * from administrator"
.Refresh
End With

在数据查询时，可以随时更新 Adodc1.RecordSouce

Answer 2

cobcourseid什么东西