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资料
lcloud怎么样?lcloud零云,UOVZ新开的子站,现在沪港iplc KVM VPS有端午节优惠,年付双倍流量,200Mbps带宽,性价比高。100Mbps带宽,500GB月流量,10个,512MB内存,优惠后月付70元,年付700元。另有国内独立服务器租用,泉州、佛山、成都、德阳、雅安独立服务器低至400元/月起!点击进入:lcloud官方网站地址lcloud零云优惠码:优惠码:bMVbR...
酷锐云是一家2019年开业的国人主机商家,商家为企业运营,主要销售主VPS服务器,提供挂机宝和云服务器,机房有美国CERA、中国香港安畅和电信,CERA为CN2 GIA线路,提供单机10G+天机盾防御,提供美国原生IP,支持媒体流解锁,商家的套餐价格非常美丽,CERA机房月付20元起,香港安畅机房10M带宽月付25元,有需要的朋友可以入手试试。酷锐云自开业以来一直有着良好的产品稳定性及服务态度,支...
TmhHost是一家国内正规公司,具备ISP\ICP等资质,主营国内外云服务器及独立服务器租用业务,目前,商家新上香港三网CN2 GIA线路VPS及国内镇江BGP高防云主机,其中香港三网CN2 GIA线路最低每月45元起;同时对美国洛杉矶CN2 GIA线路高防及普通VPS进行优惠促销,优惠后美国洛杉矶Cera机房CN2 GIA线路高防VPS季付99元起。香港CN2 GIA安畅机房,三网回程CN2 ...