杭州交通信息网涠洲岛火山口:有关combo的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 15:36:19
想把combo与数据库相连
就是在登录的时候 能在combo的下拉菜单中显示数据库表单的所有用户名
不知道应该怎么实现呢
就是在登录的时候 能在combo的下拉菜单中显示数据库表单的所有用户名
不知道应该怎么实现呢
combo不好与数据库直接相连.
你可以在窗口调用的时候,用循环将表中的用户名增加到COMBO中.这样就可以了.参考代码VB:
Dim rs As New ADODB.Recordset
dim con as New ADODB.Connection
Private Sub Form_Load()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名;Persist Security Info=False" 如果有密码的话,后面还要加
con.CursorLocation = adUseClient
con.Open
mysql = "select * from 用户表"
Set rs = con.Execute(mysql)
rs.movefirst
while not rs.eof
combo.additem rs("用户") 这是字段名
rs.movenext
wend
end sub