admin 管理员组

文章数量: 887021


2023年12月21日发(作者：splice的参数)

ACCESS 数据库和 VB 的连接

Edited by Ryan 2013

1、 建立 Access 数据库

2、 启动 VB，建立标准 EXE

图 1

3、 添加 ActiveX 控件

鼠标指向任意 VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面

图 2

图 3

选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件

图 4

4、添加控件 Adodc

图 5

4、 在控件 Adodc 上添加数据源

鼠标指向控件 Adodc1，单击右键，选择“ADODC 属性”，弹出如图 7 所示界面

图 6

图 7

单击“生成 (U). . .”，弹出如图 8 所示界面

图 8

选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步 (N) >>”，弹出如图 9 所示界面

图 9

单击“. . .”，添加数据源（第一步所建 Access 数据库），如图 10 所示

图 10

单击“测试连接（T）”，出现提示框，如图 11 所示

图 11

之后点击“确定”，退回到如图 12 所示界面

图 12

单击“记录源”，弹出如图 13 所示界面

图 13

在“命令类型”下，选择“1 - adCmdText”，在“命令文本 （SQL）”下，输入“Select

* from test1”，最后单击“应用”，“确定”即可

之后，进入程序书写部分

程序部分需要注意接头形式及简单例子如下：

Private Sub Command1_Click() ‘VB 按钮控件

Dim mydb As New tion ‘定义新的数据库连接

tionString = "Provider=.4.0;Data Source=D:read

" ‘数据库绝对路径

Dim rs As New set ‘定义数据库的一个对象 ‘打开数据库

"select * from test1", mydb, 3, 3 ‘打开数据库中的表 test1

For i = 1 To 1

xt

Next i

! For 循环控制选择哪一行 = (1).Value ‘读取指定行中的哪个数据给文本框 ‘数据显示

‘关闭表End Sub


本文标签： 数据库 控件 选择 确定

版权声明：本文标题：vb连接access数据库及数据读写操作(可编辑修改word版) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1703154822h440209.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。