《vb连接access数据库常用的方法两种示例-.pdf》由会员分享,可在线阅读,更多相关《vb连接access数据库常用的方法两种示例-.pdf(10页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、这里以链接access数据库为例。第一部分是通过语句链接,第二部分是通过控件链接一、通过语句链接数据库,然后把相应的数据赋值给某个文本框就行了。1.首先 定义几个全局变量Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值,方便链接数据库constr=Provider=Microsoft.Jet.OLEDB.4.0;&Data Source=科学效应数据库.mdb 红色部分写你自己的数据库路径。3.打开数据库cn.open constr 打开表rs.open“sel
2、ect*from 效应表where id=5“,cn 取字符串并赋值给相应的文本Text1.text=rs.fields(“效应和现象名称”)Text2.text=rs.fields(“文字解说”)关闭表rs.close 关闭数据库cn.close 注意,最后两步骤一定要有,不然下次打开数据库的时候会提示出错的,这样的话,在窗口上建立两个文本框就够了。但是,在此之前还有一步一定要做,点 工程-引用-找到 Microsoft ActiveX Data Object 2.6,如图所示:显示的结果如下图所示:通过与效应表对比发现显示正确。总体代码如下:Private Sub Form_Load()D
3、im cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr=Provider=Microsoft.Jet.OLEDB.4.0;&_ 科学效应数据库.mdb 空格加短下划线表示续行cn.open constr rs.open select*from 效应表 where id=5,cn Text1.Text=rs.fields(效应和现象名称)Text2.Text=rs.fields(文字解说)rs.Close cn.Close End Sub 二、通过 ado 控件链接数据库,然后
4、通过datagrid 控件显示数据库中的相关表。过程示例:1.添加部件 ado 控件和 datagrid 控件,如图所示:这样工具栏里面会出现这样两个图标(最下面):2.把这两个控件添加到你的form1 里面,这个不用演示吧3.右 击 你 添 加 的adodc1控 件,选 最 后 一 个然后点General 里面的Use Connection String 里面的那个Build,选择 microsoft JET 4.0 OLE DB Provider,选中之后点下一步;4.然后,点击第一个项目右边那个很多点的按钮,找到自己的数据库,选好之后点“打开“旁边的文本框里面就有了数据路径,像这样:5.测试连接,成功了就行了6.点确定,显示这样一个界面:7.点右边第三个RecordSource 按钮,设置成如下情况 cmdtext 选择 1,然后输入SQL 语句,Select*from 效应表(表名,必填)8.设置好之后点确定就行了,这样就通过adodc1 控件连接到了数据库中的这张表接下来是对datagrid 控件的设置:9.把 datagrid1 控件的 datasource设置成 adodc1,就行了。10.按 F5 启动,就会显示这样一个结果:这样就成功了。