ACCESS数据库和VB的连接
Edited by Ryan 2013
1、建立Access数据库
2、启动VB建立标准EXE
图1
3、添加ActiveX控件
鼠标指向任意VB控件单击右键选择“部件O” 出现图3所示界面感谢下载载
图2
图3
感谢下载载
选择部件“MicrosoftADO Data Control 6.0(OLEDB)” 出现如图4所示控件
图4
4、添加控件Adodc
感谢下载载
图5
4、在控件Adodc上添加数据源
鼠标指向控件Adodc1 单击右键选择“ADODC属性” 弹出如图7所示界面
图6
感谢下载载
图7
单击“生成(U). . .” 弹出如图8所示界面
图8
选择“MicrosoftJet4.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_Cl ick()‘VB按钮控件
Dim mydbAs NewADODB.Connection‘定义新的数据库连接mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\read database\test1\test1.mdb"‘数据库绝对路径
Dim rsAs NewADODB.Recordset‘定义数据库的一个对象mydb.Open‘打开数据库rs.Open "select*from test1",mydb,3, 3‘打开数据库中的表test1
For i =1 To 1 ! For循环控制选择哪一行rs.M ove Next
Next i
Me.Text1.Text=rs.Fields(1).Value‘读取指定行中的哪个数据给文本框rs.Update‘数据显示rs.Close‘关闭表
EndSub
感谢下载载
欢迎您的下载资料仅供参考感谢下载载
蓝竹云怎么样 蓝竹云好不好蓝竹云是新商家这次给我们带来的 挂机宝25元/年 美国西雅图云服务器 下面是套餐和评测,废话不说直接开干~~蓝竹云官网链接点击打开官网江西上饶挂机宝宿主机配置 2*E5 2696V2 384G 8*1500G SAS RAID10阵列支持Windows sever 2008,Windows sever 2012,Centos 7.6,Debian 10.3,Ubuntu1...
酷锐云是一家2019年开业的国人主机商家,商家为企业运营,主要销售主VPS服务器,提供挂机宝和云服务器,机房有美国CERA、中国香港安畅和电信,CERA为CN2 GIA线路,提供单机10G+天机盾防御,提供美国原生IP,支持媒体流解锁,商家的套餐价格非常美丽,CERA机房月付20元起,香港安畅机房10M带宽月付25元,有需要的朋友可以入手试试。酷锐云自开业以来一直有着良好的产品稳定性及服务态度,支...
vpsdime怎么样?vpsdime是2013年注册的国外VPS主机商,实际上他还有一系列的其他域名站点如Winity.io, Backupsy,Cloudive, Virtora等等,母公司“Nodisto IT”相对来说还是很靠谱了的商家。VPSDime主要提供各种高配低价VPS套餐,其中Linux VPS和存储VPS基于OpenVZ架构,高级VPS基于KVM。VPSDime在上个季度的Low...