窗口中一个Combo1 我希望在窗口启动时候就把数据库表里某一字段的资料全部添加进去 ，但实现不了 代码如下 请指点一下 谢谢

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim i As Long
rs.ActiveConnection = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
rs.Open "xsgl"
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
Combo1.AddItem rs("学号")
rs.MoveNext
Next
End Sub

[此贴子已经被作者于2007-11-14 22:43:07编辑过]

这样我也不会,不过楼主为何不考虑用datalist控件,listfield属性设为某一字段名,很容易实现这种效果.

Combo我没用成功过,以前用List和Textbox模拟,后来发现有个DataList的好东东,很容易实现你要的效果

For i = 0 To rs.RecordCount - 1
Combo1.AddItem rs("学号")
rs.MoveNext
Next
在此段语句中的rs.movenext后加上rs.update试一下

Private Sub Form_Load()
Dim bflag As string
Set dbdao = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")
Set rsyear = dbdao.OpenRecordset(xsgl,dbOpenTable)
If rsyear.RecordCount > 0 Then
rsyear.MoveFirst
For i= 1 To rsyear.RecordCount-1
If rsyear.Fields("学号") = bflag Then
rsyear.Edit
end if
Combo1.AddItem rs("bflag")
rs.MoveNext
Next
end if
End Sub

问题出在rs.Open后面的参数没设置好
Dim rs As New ADODB.Recordset
Dim i As Long
rs.ActiveConnection = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
rs.Open "xsgl", , adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combo1.AddItem rs(0)
rs.MoveNext
Loop