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
感谢下载载
欢迎您的下载资料仅供参考感谢下载载
需要提前声明的是有网友反馈到,PacificRack 商家是不支持DD安装Windows系统的,他有安装后导致服务器被封的问题。确实有一些服务商是不允许的,我们尽可能的在服务商选择可以直接安装Windows系统套餐,毕竟DD安装的Win系统在使用上实际上也不够体验好。在前面有提到夏季促销的"PacificRack夏季促销PR-M系列和多IP站群VPS主机 年付低至19美元"有提到年付12美元的洛杉...
MechanicWeb怎么样?MechanicWeb好不好?MechanicWeb成立于2008年,目前在美国洛杉矶、凤凰城、达拉斯、迈阿密、北卡、纽约、英国、卢森堡、德国、加拿大、新加坡有11个数据中心,主营全托管型虚拟主机、VPS主机、半专用服务器和独立服务器业务。MechanicWeb只做高端的托管vps,这次MechanicWeb上新Xeon W-1290P处理器套餐,基准3.7GHz最高...
华纳云怎么样?华纳云是香港老牌的IDC服务商,成立于2015年,主要提供中国香港/美国节点的服务器及网络安全产品、比如,香港服务器、香港云服务器、香港高防服务器、香港高防IP、美国云服务器、机柜出租以及云虚拟主机等。以极速 BGP 冗余网络、CN2 GIA 回国专线以及多年技能经验,帮助全球数十万家企业实现业务转型攀升。华纳云针对618返场活动,华纳云推出一系列热销产品活动,香港云服务器低至3折,...