VB 数据库关联下拉表

最新推荐文章于 2023-11-22 14:07:01 发布

原创最新推荐文章于 2023-11-22 14:07:01 发布 · 2.3k 阅读

CC 4.0 BY-SA版权

本文介绍了如何在VB中建立Access数据库的关联，通过引用ADODB库，设置下拉框ComboBox与数据库表格的连接。内容包括创建数据库、数据表，添加字段，并在VB窗体中添加文本框、命令按钮和下拉框控件，实现数据的交互。重点讲述了利用InStr函数检查字符串是否包含另一字符串的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

准备工作: 建立数据库 E:\operation.accdb；建数据表:selection；数据表中,建字段:User,Password,并添加一条记录

点工程->引用选中Microsoft Activex Data Objects 6.1 Library（注：选择最高版本就行）

1、access数据库关联下拉表

首先添加控件:添加一个文本框,一个命令按钮，一个combo下拉框

Private Sub Command1_Click()

Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset  '创建ADODB对象，用于返回取得的数据库内容
Dim str As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\option.mdb"

str = Text1.Text
sql = "select Password from " & str & ""
Rs.Open sql, Conn, 1, 3
For i = 0 To Rs.RecordCount - 1
Combo1.List(i) = Rs("Password")
Rs.MoveNext
Next
Conn.Close
End Sub

2、不同窗体之间的调用函数

首先创建两个窗体，Form1和Form2，在Form1中添加控件：一个命令按钮。

Private Sub Command1_Click()

Form2.Show
Unload Me
End Sub

3、字符串包含函数为instr（）

如果，InStr(str1, str2) > 0
说明：str1包含str2