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资料
百纵科技湖南百纵科技有限公司是一家具有ISP ICP 电信增值许可证的正规公司,多年不断转型探索现已颇具规模,公司成立于2009年 通过多年经营积累目前已独具一格,公司主要经营香港服务器,香港站群服务器,美国高防服务器,美国站群服务器,云服务器,母机租用托管!美国CN2云服务器,美国VPS,美国高防云主机,美国独立服务器,美国站群服务器,美国母机。美国原生IP支持大批量订货 合作 适用电商 亚马逊...
RAKSmart 商家最近动作还是比较大的,比如他们也在增加云服务器产品,目前已经包含美国圣何塞和洛杉矶机房,以及这个月有新增的中国香港机房,根据大趋势云服务器算是比较技术流的趋势。传统的VPS主机架构方案在技术层面上稍微落后一些,当然也是可以用的。不清楚是商家出于对于传统VPS主机清理库存,还是多渠道的产品化营销,看到RAKSmart VPS主机提供美国、香港和日本机房的半价促销,当然也包括其他...
一年一度的黑色星期五和网络星期一活动陆续到来,看到各大服务商都有发布促销活动。同时RAKsmart商家我们也是比较熟悉的,这次是继双十一活动之后的促销活动。在活动产品中基本上沿袭双11的活动策略,比如有提供云服务器七折优惠,站群服务器首月半价、还有新人赠送红包等活动。如果我们有需要RAKsmart商家VPS、云服务器、独立服务器等产品的可以看看他们家的活动。这次活动截止到11月30日。第一、限时限...