combobox多选框选择

最新推荐文章于 2020-11-24 18:44:06 发布

worldlight

最新推荐文章于 2020-11-24 18:44:06 发布

阅读量2.1k

点赞数

分类专栏： vb 文章标签： string 数据库 integer access vb user

本文链接：https://blog.csdn.net/hncomputer/article/details/7924047

版权

该博客介绍了如何在VB应用程序中，利用Form_Load事件，从数据库中读取用户信息并加载到ComboBox控件中，以实现多选功能。特别地，它关注于在Access数据库中存储和检索字符串和整型数据，以支持用户登录过程。

摘要由CSDN通过智能技术生成

vb登陆用户多选框自动记录数据库中用户信息，将数据库中对应用户名信息显示在多选框中

Private Sub Form_Load()

Dim i As Integer
Dim cnn As ADODB.Connection
Dim my_recordset As ADODB.Recordset
Dim connect_string As String
Dim statestring As String
Set cnn = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
'连接Access数据库
connect_string = "DSN=medic_lib97;UID=;PSW="
cnn.Open connect_string
Select Case cnn.State
Case adStateClose
statestring = "adStateClosed"
Case adStateOpen
statestring = "adStateOpen"
End Select
'显示连接的状态
MsgBox "连接成功！", , statestring

my_recordset.Open "select id from user", cnn, adOpenKeyset, adLockOptimistic
For i = 1 To my_recordset.RecordCount
Combo1.AddItem Trim(my_recordset(0) & "")
my_recordset.MoveNext
Next
my_recordset.Close
End Sub