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
感谢下载载
欢迎您的下载资料仅供参考感谢下载载
关于CYUN商家在之前有介绍过一次,CYUN是香港蓝米数据有限公司旗下的云计算服务品牌,和蓝米云、蓝米主机等同属该公司。商家主要是为个人开发者用户、中小型、大型企业用户提供一站式核心网络云端部署服务,促使用户云端部署化简为零,轻松快捷运用云计算。目前,CYUN主要运营美国、香港、台湾、日本、韩国CN2线路产品,包括云服务器、站群服务器和独立服务器等。这次看到CYUN夏季优惠活动发布了,依然是熟悉的...
Virmach对资源限制比较严格,建议查看TOS,自己做好限制,优点是稳定。 vCPU 内存 空间 流量 带宽 IPv4 价格 购买 1 512MB 15GB SSD 500GB 1Gbps 1 $7/VirMach:$7/年/512MB内存/15GB SSD空间/500GB流量/1Gbps端口/KVM/洛杉矶/西雅图/芝加哥/纽约等 发布于 5个月前 (01-05) VirMach,美国老牌、稳...
介绍:御速云成立于2021年的国人商家,深圳市御速信息技术有限公司旗下品牌,为您提供安全可靠的弹性计算服务,随着业务需求的变化,您可以实时扩展或缩减计算资源,使用弹性云计算可以极大降低您的软硬件采购成本,简化IT运维工作。主要从事VPS、虚拟主机、CDN等云计算产品业务,适合建站、新手上车的值得选择,拥有华东江苏、华东山东等国内优质云产品;香港三网直连(电信CN2GIA联通移动CN2直连);美国高...