vb连接access数据库常用方法计划两种示例.docxVIP

vb连结access数据库常用的方法总结计划两种示例 vb连结access数据库常用的方法总结计划两种示例 PAGE / NUMPAGES vb连结access数据库常用的方法总结计划两种示例 这里以链接 access 数据库为例。 第一部分是经过语句链接，第二部分是经过控件链接一、 经过语句链接数据库，而后把相应的数据赋值给某个文本框就行了。 第一 定义几个全局变量 Dim constr As String 给这些变量赋值，方便链接数据库 constr = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= 科学效应数据库 .mdb 红色部分写你自己的数据库路径。 翻开数据库 cn.open constr 翻开表 “select * from 效应表 where id=5 “， cn 取字符串并赋值给相应的文本 Text1.text=rs.fields( “效应和现象名称”) Text2.text=rs.fields( “文字讲解”) 封闭表 封闭数据库 注意，最后两步骤必定要有，否则下次翻开数据库的时候会 提示犯错的，这样的话，在窗口上成立两个文本框就够了。 可是，在此以前还有一步必定要做， 点 工程 - 引用 - 找到 Microsoft ActiveX Data Object 2.6 ，以下图： 显示的结果以下列图所示： 经过与效应表对照发现显示正确。 整体代码以下： Private Sub Form_Load() Dim constr As String constr = Provider=Microsoft.Jet.OLEDB.4.0; _ 科学效应数据库 .mdb 空格加短下划线表示续行 cn.open constr rs.open select * from Text1.Text = rs.fields(  效应表 where id =5, cn 效应和现象名称 ) Text2.Text = rs.fields(  文字讲解  ) End Sub 二、 经过 ado 控件链接数据库，而后经过  datagrid  控件显示数 据库中的有关表。 过程示例： 1. 增添零件  ado  控件和  datagrid  控件，以下图： 这样工具栏里面会出现这样两个图标（最下边） ： 把这两个控件增添到你的 form1 里面，这个不用演示吧 右 击 你 添 加 的 adodc1 控 件 ， 选 最 后 一 个 而后点  General  里面的  Use Connection String  里面的那个 Build  ，选择  microsoft   OLE DB Provider  ， 选中以后点下一步； 而后，点击第一个项目右侧那个好多点的按钮，找到自己的数据库，选好以后点“翻开“ 旁边的文本框里面就有了数据路径，像这样： 测试连结，成功了就行了 点确立，显示这样一个界面： 点右侧第三个 RecordSource 按钮，设置成以下状况 —— cmdtext 选择 1，而后输入 SQL语句， Select * from 效应表 （表名，必填） 8. 设置好以后点确立就行了，这样就经过 adodc1 控件连结 到了数据库中的这张表接下来是对 datagrid 控件的设置： 9. 把 datagrid1 控件的 datasource 设置成 adodc1 ，就行了。 按 F5 启动，就会显示这样一个结果： 这样就成功了。