ACCESS数据库和VB的连接
Edited by Ryan 2013
1、 建立Access数据库
2、 启动VB建立标准EXE
图1
3、添加ActiveX控件
鼠标指向任意VB控件单击右键选择“部件O” 出现图3所示界面
图2
Wo rd资料
图3
选择部件“Microsoft ADO Data Control 6.0 (OLEDB) ” 出现如图4所示控件
图4
Wo rd资料
4、添加控件Adodc
图5
4、在控件Adodc上添加数据源
鼠标指向控件Adodc1单击右键选择“ADODC属性”弹出如图7所示界面
图6
Wo rd资料
图7
单击“生成(U) . . . ”弹出如图8所示界面
图8
选择“Microsoft Jet 4.0 OLE DB Provider”单击“下一步(N) >>”弹出如图9所示界面
Wo rd资料
图9
单击“. . . ”添加数据源第一步所建Access数据库如图10所示
图10
单击“测试连接T” 出现提示框如图11所示
图11
之后点击“确定”退回到如图12所示界面
Wo rd资料
图12
单击“记录源”弹出如图13所示界面
图13
在“命令类型”下选择“1-adCmdText”在“命令文本 SQL”下输入“Select
* from test1”最后单击“应用” “确定”即可
之后进入程序书写部分
程序部分需要注意接头形式及简单例子如下
Private Sub Command1_Click() ‘VB按钮控件
Dim mydb As New ADODB.Connection ‘定义新的数据库连接mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\read database\test1\test1.mdb" ‘数据库绝对路径
Dim rs As New ADODB.Recordset ‘定义数据库的一个对象mydb.Open ‘打开数据库rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1Wo rd资料
For i = 1 To 1 ! For循环控制选择哪一行rs.MoveNext
Next i
Me.Text1.Text = rs.Fields(1) .Value ‘读取指定行中的哪个数据给文本框rs.Update ‘数据显示rs.Close ‘关闭表
End Sub
Wo rd资料
3C云国内IDC/ISP资质齐全商家,与香港公司联合运营, 已超6年运营 。本次为大家带来的是双12特惠活动,香港美国日本韩国|高速精品|高防|站群|大带宽等产品齐全,欢迎咨询问价。3C云科技有限公司官方网站:http://www.3cccy.com/客服QQ:937695003网页客服:点击咨询客户QQ交流群:1042709810价目表总览升级内存 60元 8G内存升级硬盘 1T机械 90元 2...
蓝竹云怎么样 蓝竹云好不好蓝竹云是新商家这次给我们带来的 挂机宝25元/年 美国西雅图云服务器 下面是套餐和评测,废话不说直接开干~~蓝竹云官网链接点击打开官网江西上饶挂机宝宿主机配置 2*E5 2696V2 384G 8*1500G SAS RAID10阵列支持Windows sever 2008,Windows sever 2012,Centos 7.6,Debian 10.3,Ubuntu1...
Bluehost怎么样,Bluehost好不好,Bluehost成立十八周年全场虚拟主机优惠促销活动开始,购买12个月赠送主流域名和SSL证书,Bluehost是老牌虚拟主机商家了,有需要虚拟主机的朋友赶紧入手吧,活动时间:美国MST时间7月6日中午12:00到8月13日晚上11:59。Bluehost成立于2003年,主营WordPress托管、虚拟主机、VPS主机、专用服务器业务。Blueho...