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资料
justhost.ru官方来消息说已经对网络进行了比较全面的优化,针对中国电信、联通、移动来说,4个机房总有一个适合中国用户,让站长进行一下测试,这不就有了这篇有关justhost的VPS的第四次测评。本帖主要关注的是网络,对于其他的参数一概不管! 官方网站:https://justhost.ru 最低配VPS:8.3元/月,KVM,512M内存,5G硬盘,200M带宽,不限流量 购买链接:...
昔日数据怎么样?昔日数据新上了湖北十堰云服务器,湖北十堰市IDC数据中心 母鸡采用e5 2651v2 SSD MLC企业硬盘 rdid5阵列为数据护航 100G高防 超出防御峰值空路由2小时 不限制流量。目前,国内湖北十堰云服务器,首月6折火热销售限量30台价格低至22元/月。(注意:之前有个xrhost.cn也叫昔日数据,已经打不开了,一看网站LOGO和名称为同一家,有一定风险,所以尽量不要选择...
提速啦(www.tisula.com)是赣州王成璟网络科技有限公司旗下云服务器品牌,目前拥有在籍员工40人左右,社保在籍员工30人+,是正规的国内拥有IDC ICP ISP CDN 云牌照资质商家,2018-2021年连续4年获得CTG机房顶级金牌代理商荣誉 2021年赣州市于都县创业大赛三等奖,2020年于都电子商务示范企业,2021年于都县电子商务融合推广大使。资源优势介绍:Ceranetwo...