ACCESS数据库和VB的连接
Edited by Ryan 2013
1、 建立Access数据库
2、 启动VB建立标准EXE
图1
3、添加ActiveX控件
鼠标指向任意VB控件单击右键选择“部件O” 出现图3所示界面
图2
Wo rd资料
图3
选择部件“Microsoft ADO Data Control 6.0 (OLEDB) ” 出现如图4所示控件
图4
Wo rd资料
4、添加控件Adodc
图5
4、在控件Adodc上添加数据源
鼠标指向控件Adodc1单击右键选择“ADODC属性”弹出如图7所示界面
图6
Wo rd资料
图7
单击“生成(U) . . . ”弹出如图8所示界面
图8
选择“Microsoft Jet 4.0 OLE DB Provider”单击“下一步(N) >>”弹出如图9所示界面
Wo rd资料
图9
单击“. . . ”添加数据源第一步所建Access数据库如图10所示
图10
单击“测试连接T” 出现提示框如图11所示
图11
之后点击“确定”退回到如图12所示界面
Wo rd资料
图12
单击“记录源”弹出如图13所示界面
图13
在“命令类型”下选择“1-adCmdText”在“命令文本 SQL”下输入“Select
* from test1”最后单击“应用” “确定”即可
之后进入程序书写部分
程序部分需要注意接头形式及简单例子如下
Private Sub Command1_Click() ‘VB按钮控件
Dim mydb As New ADODB.Connection ‘定义新的数据库连接mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\read database\test1\test1.mdb" ‘数据库绝对路径
Dim rs As New ADODB.Recordset ‘定义数据库的一个对象mydb.Open ‘打开数据库rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1Wo rd资料
For i = 1 To 1 ! For循环控制选择哪一行rs.MoveNext
Next i
Me.Text1.Text = rs.Fields(1) .Value ‘读取指定行中的哪个数据给文本框rs.Update ‘数据显示rs.Close ‘关闭表
End Sub
Wo rd资料
LOCVPS发来了针对XEN架构VPS的促销方案,其中美国洛杉矶机房7折,其余日本/新加坡/中国香港等机房全部8折,优惠后日本/新加坡机房XEN VPS月付仅29.6元起。这是成立较久的一家国人VPS服务商,目前提供美国洛杉矶(MC/C3)、和中国香港(邦联、沙田电信、大埔)、日本(东京、大阪)、新加坡、德国和荷兰等机房VPS主机,基于XEN或者KVM虚拟架构,均选择国内访问线路不错的机房,适合建...
Fiberia.io是个新站,跟ViridWeb.com同一家公司的,主要提供基于KVM架构的VPS主机,数据中心在荷兰Dronten。商家的主机价格不算贵,比如4GB内存套餐每月2.9美元起,采用SSD硬盘,1Gbps网络端口,提供IPv4+IPv6,支持PayPal付款,有7天退款承诺,感兴趣的可以试一试,年付有优惠但建议月付为宜。下面列出几款主机配置信息。CPU:1core内存:4GB硬盘:...
搬瓦工最新优惠码优惠码:BWH3HYATVBJW,节约6.58%,全场通用!搬瓦工关闭香港 PCCW 机房通知下面提炼一下邮件的关键信息,原文在最后面。香港 CN2 GIA 机房自从 2020 年上线以来,网络性能大幅提升,所有新订单都默认部署在香港 CN2 GIA 机房;目前可以免费迁移到香港 CN2 GIA 机房,在 KiwiVM 控制面板选择 HKHK_8 机房进行迁移即可,迁移会改变 IP...