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
感谢下载载
欢迎您的下载资料仅供参考感谢下载载
HostKvm 商家我们算是比较熟悉的国内商家,商家主要还是提供以亚洲数据中心,以及直连海外线路的服务商。这次商家有新增香港和俄罗斯两个机房的高防服务器方案。默认提供30GB防御,且目前半价优惠至4.25美元起步,其他方案的VPS主机还是正常的八折优惠。我们看看优惠活动。香港和俄罗斯半价优惠:2021fall,限购100台。通用优惠码:2021 ,八折优惠全部VPS。我们看看具体的套餐。1、香港高...
稳爱云(www.wenaiyun.com)是创建于2021年的国人IDC商家,主要目前要出售香港VPS、香港独立服务器、美国高防VPS、美国CERA VPS 等目前在售VPS线路有三网CN2、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。机房采用业内口碑最好香港沙田机房,稳定,好用,数据安全。线路采用三网(电信,联通,移动)回程电信cn2、cn2 gia优质网络,延迟低,速度快。自行封装的...
ZJI本月新上线了香港葵湾机房站群服务器,提供4个C段238个IPv4,支持使用8折优惠码,优惠后最低每月1400元起。ZJI是原Wordpress圈知名主机商家:维翔主机,成立于2011年,2018年9月更名为ZJI,提供中国香港、台湾、日本、美国独立服务器(自营/数据中心直营)租用及VDS、虚拟主机空间、域名注册等业务,所选数据中心均为国内普遍访问速度不错的机房。葵湾二型(4C站群)CPU:I...