已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
ACCESS数据库和VB的连接Edited by Ryan 20131、 建立Access数据库2、 启动VB,建立标准EXE图13、 添加ActiveX控件鼠标指向任意VB控件,单击右键,选择“部件(O)”,出现图3所示界面图2图3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”,出现如图4所示控件图44、添加控件Adodc图54、 在控件Adodc上添加数据源鼠标指向控件Adodc1,单击右键,选择“ADODC 属性”,弹出如图7所示界面图6图7单击“生成 (U). . .”,弹出如图8所示界面图8选择“Microsoft Jet 4.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_Click() VB按钮控件Dim mydb As New ADODB.Connection 定义新的数据库连接mydb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:read databasetest1test1.mdb 数据库绝对路径Dim rs As New ADODB.Recordset 定义数据库的一个对象mydb.Open 打开数据库rs.Open select * from test1, mydb, 3, 3 打开数据库中的表test1For i = 1 To 1 ! For循环控制选择哪一行rs.MoveNextNext iMe.Text1.Text = rs.Fields(1).Value
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 河南平煤神马能源化工集团面试题及答案
- 不动产租赁合同的签署细节
- 公务员面试落泪面试题及答案
- 红狮集团招聘面试题及答案
- 公务员面试类型面试题及答案
- 公务员面试磕巴 上岸面试题及答案
- 国家铁路集团秋招笔试题及答案
- 国家融资担保基金秋招面试题及答案
- 公务员面试假设面试题及答案
- 工业自动化校招面试题及答案
- 【2025年】办公室文员测试题库及参考答案
- 2025年6月江苏扬州经济技术开发区区属国有企业招聘素质测试(初试)笔试考试备考试题及答案解析
- 2025贵州毕节市金沙县国有资本投资运营集团有限公司招聘笔试及笔试历年备考题库附带答案详解2卷
- 福建省厦门市大同中学2025-2026学年高二物理第一学期期末统考试题含解析
- 国民经济和社会发展第十五五年规划解读
- 分期购车的合同范本
- 2025至2030废旧手机行业项目调研及市场前景预测评估报告
- 箱变移位施工合同协议
- 智启氢程:AI技术在氢能领域的应用研究
- 全国大学生职业规划大赛《运动训练》专业生涯发展展示【高职(专科)】
- 2026届湖南省郴州市高三上学期第一次教学质量监测生物试题(含答案)
评论
0/150
提交评论