COMBOBOX的问题

[flashrain]

怎样将ACCESS中一张表的一列放如COMBO中

[benjamin8064]

rs.open "select 列名 from 表名",db, adOpenStatic, adLockBatchOptimistic
do while not rs.eof
combo1.additem rs(字段名)
rs.movenext
loop
rs.close

[chao778899]

up

[flashrain]

在Form_Load中将列中的数据放入COMBO中，在别的按纽事件中也有连ACCESS，但提示Form_Load中函数未定义

[yongtang]

函数未定义？

你用了什么函数？

把你的form_load帖出来看看。

[flashrain]

Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\...\student.mdb;"
Set rs = New ADODB.Recordset
rs.Open "select * from teacher", db, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combo1.AddItem rs(thName)
rs.MoveNext
Loop
End Sub

[doudou8090]

楼上的意见参考一下

[MSSQL]

Option Explicit
Dim db As NEW ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\...\student.mdb;"
Set rs = DB.EXECUTE( "select * from teacher")
COMBO1.CLEAR
Do While Not rs.EOF
Combo1.AddItem rs(thName)
rs.MoveNext
Loop
RS.CLOSE
End Sub