Question

vb中如何在Combobox中显示数据库中name表的姓名一列

高手指教 就是做人员登录用的 而且能同步表中数据 数据库是access数据库 是否还用adodc绑定数据源 请给详细代码和相关解释 谢谢

Answer 1

'不需要绑定
Private Sub Form_Load()
Dim db As Databse
Dim rs As Recordset
dim datapath as string
datapath="g:\1.mdb" '此处换成你的数据库完整路径
'打开数据库
set db=dbEngine.opendatabase(datapath)
'读取姓名记录
set rs=db.openrecordset("select 姓名 from name")
If rs.RecordCount > 0 Then
rs.MoveFirst
End If

Do While Not rs.EOF
If IsNull(rs.Fields(0).Value) = False Then
cbo.AddItem rs.Fields(0).Value
End If
rs.MoveNext
Loop
End Sub