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
感谢下载载
欢迎您的下载资料仅供参考感谢下载载
现在宝塔面板真的是越来越过分了,删除文件、删除数据库、删除站点等操作都需要做计算题!我今天升级到7.7版本,发现删除数据库竟然还加了几秒的延时等待,也无法跳过!宝塔的老板该不会是小学数学老师吧,那么喜欢让我们做计算题!因此我写了个js用于去除各种计算题以及延时等待,同时还去除了软件列表页面的bt企业版广告。只需要执行以下命令即可一键完成!复制以下命令在SSH界面执行:Layout_file="/w...
Moack怎么样?Moack(蘑菇主机)是一家成立于2016年的商家,据说是国人和韩国合资开办的主机商家,目前主要销售独立服务器,机房位于韩国MOACK机房,网络接入了kt/lg/kinx三条线路,目前到中国大陆的速度非常好,国内Ping值平均在45MS左右,而且商家的套餐比较便宜,针对国人有很多活动。不过目前如果购买机器如需现场处理,由于COVID-19越来越严重,MOACK办公楼里的人也被感染...
BuyVM测评,BuyVM怎么样?BuyVM好不好?BuyVM,2010年成立的国外老牌稳定商家,Frantech Solutions旗下,主要提供基于KVM的VPS服务器,数据中心有拉斯维加斯、纽约、卢森堡,付费可选强大的DDOS防护(月付3美金),特色是1Gbps不限流量,稳定商家,而且卢森堡不限版权。1G或以上内存可以安装Windows 2012 64bit,无需任何费用,所有型号包括免费的...