VB 数据库关联下拉表

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

lvniu321

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

阅读量2.2k

点赞数

本文链接：https://blog.csdn.net/evan_cheerup/article/details/24471235

版权

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

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

准备工作: 建立数据库 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.RecordCoun