这里以链接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=D:\EffectSolution\科学效应数据库.mdb"
红色部分写你自己的数据库路径。
3.打开数据库
cn.open constr
打开表
rs.open “select * 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()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.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控件链接数据库，然后通过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启动，就会显示这样一个结果：
这样就成功了。
vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing
vb6.0连接sql2000数据库的具体步骤 悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下 初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。 最佳答案 VB6.0使用ADO对象连接数据库： 有偿征集原创文章，为您创收投递文章减小字体增大字体 1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接ODBC DBconnect.ConnectionString="dsn 1．定义连接对象 Global DBconnect As New ADODB.Connection 2．执行连接语句 If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Close λ连接ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" λ直接连接Access为 Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb" λ连接Oracle DBconnect.Provider="MSADORA" DBconnect.ConnectionString="user/mypass@servicename λ连接SQL Server DBconnect.Provider="SQLOLEDB.1" DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;" 或者可以使用DBconnect.Open"SERVER","USERID","PASSWORD" DBConnect.Open 3．取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State=adStateOpen And Not IsEmpty(adStateOpen)Then RS.Close RS.Open SQLStr,DBconnect,adOpenKeyset 4．执行SQL语句 DBconn.Execute SQLStr
首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项. 由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API 来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始"数据库编程"了. 首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
VB2010+Access用户登陆验证(精简) Public Class login '管理员登陆 Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb") Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn) Dim ObjDap As New OleDb.OleDbDataAdapter Dim ObjDar As OleDb.OleDbDataReader Dim pd As Boolean = False Dim i As Integer ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn) '与数据库建立连接 ObjConn.Open() ObjDar = ObjCom.ExecuteReader '循环判断与数据库中数据是否相同 Do While ObjDar.Read() If ComboBox1.Text = "" Then MsgBox("请输入用户名！") ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then MsgBox("用户名不存在！") ComboBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("请输入密码！") 'End If ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then MsgBox("密码输入不正确！") 'TextBox2.Focus() Else For i = 0 To ObjDar.FieldCount - 1 If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆") Me.Hide() Form_main.Show() pd = True Exit Sub End If
VB中怎么载如或显示Access数据库中的报表 '首先在“工程/引用”菜单下引用Microsoft Access 9.0 Object Library Option Explicit Dim MSAccess As Access.Application Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (App.Path & "\db1.mdb") MSAccess.DoCmd.OpenReport "rptTB", acViewNormal MSAccess.CloseCurrentDatabase Set MSAccess = Nothing End Sub rptTB是access中的一个报表名称 要引用Microsoft Access 9.0 Object Library dim objAccess As Access.Application Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase ("c:\1.mdb") objAccess.DoCmd.OpenReport "ReportName", acViewPreview objAccess.Visible = True 这个要引用Microsoft Access 9.0 Object Library(Office 2000) 我没试过Office97会怎么样。 ?VB中打印ACCESS报表 ?作者:aspxer 来源:internet 日期:2007-5-20 13:56:44 关键字: ? VB中打印ACCESS报表 acc As Object Set acc = CreateObject("Access.Application") If Right$(Trim$(App.Path), 1) = "\" Then
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件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 database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc 图5 4、在控件 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 database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open‘打开数据库 rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1
ACCESS^据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB,建立标准EXE r?l? 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择"部件( O)”，出现图3所示界面片-llfil Ai￡；xo 1.0 启侵蓝 Sicr-iEoft hc?is BtrCile Cntrol 9.0 fillers so ft Will D^T 4 Cootrcil 冬0 IDLJIE J L Chut C4LtF91 E.O (CLED3) IU GTO初It Cunir> CtnlroL &. 0 Nicrgisoft ConRidn Di&l'js Ccurikrtl 3 0 Hicroioft Dtlt Bm-d List Canirols 6.C Nicroidft QtlfiiGri i Control 6 0 UU1B) 匚0■ 肛辽CQ^trdE 6. 0 COLE DE 匚lliarjs^ft C OT.^FP16- D 口 IlicrQsgft 7阳60 < > Micro soft 110 D A I Q Cineol 6.0 (OLEDEt) 定fir. C. 'iTIBKrtS \ i js t EffcK'illSiK? C. C CX 图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ” ,出现如图4 所示控件2J & 二 r- B“* -si- i；?同同 这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提 示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示: 显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂) 在用vb连接access数据库时，出现了这样的错误： 这是你的数据库格式不被程序识别。vb默认的一般是.,mdb access数据库格式！这时我们看一下我们要连接的 是.accdb格式的。 看一下代码，我们以前使用的是： Provider=Microsoft.jet.oledb.4.0 当数据库格式发生变化时，连接语法格式就变了：Microsoft office 12.0 access database engine oledb provider 这时连 接字符创立已经有的，我们把它填上以后就成如下错误了。 为什么呢？原因是，.accdb数据格式不适用jet 引擎连接了。而是：provider=microsoft.ace.oledb.12.0 这样一改就可以连接上了。 o7版以前的access数据库的格式都是.mdb的，而vb6.0 本身带的数据库格式也是.mdb的，所以大家也都习惯了连 接.mdb格式的access数据库，但是07版以后的数据库格式就成 了 .accdb的了，在连接的过程中可就要做一下改变 了。 总结一下：通常连接数据库我们可以使用下面两种连接方法： 添加引用，使用代码连接。 解决如下： 一、引用连接 添加引用，使用代码连接。工程——引用——microsoft activeX data objects 2.5 library 代码窗口中加入： Dim objcn As NewConnection Dim objrs As New Recordset Dim strsql As String objcn.ConnectionString ="provider=microsoft.ace.oledb.12.0;" & "data source="&App.Path& "\3.accdb" （3为数据库的名字）objcn.Open strsql = "select 密码from 3 where账号='" & username & "'" （账号表中的字段，username为自定义的变量） Set objrs.ActiveConnection = objcn objrs.Open (strsql) 二、控件连接： 1，工程——部件——添加microsoft ado data control 6.0 控件。 2、属性设置： 点击生成按钮，打开连接字符串，选中，microsoft office 12.0 access database engine ole db provider 怎样用VB的代码创建Access数据库 用 ADOX: '菜单“工程”--> "引用 "--> Microsoft ADO Ext.2.7 for DDL ado Security ' 建数据库: Private Sub Form_Load() Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog '在当前目录下建立名为newdata的Access数据库 cat.Create ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "\newdata.mdb " + "; ") MsgBox "数据库已经创建成功！ " End Sub ' 建表: Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) " cn.Close End Sub '删表: Private Sub Command2_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source== " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "DROP TABLE [aaa] " cn.Close End Sub /////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////Option Explici t Dim i As Integer Dim j As Integer Private Sub Form_Load() '菜单“工程”--> "引用 "--> "Microsoft ActiveX Data Objects 2.7 Library " 'Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.Catalog 附件2： VB6+Access编程中的数据库操作方法 例1： 首先，在工程里引用microsoft activex data objects2.7library Dim cn As New ADODB.Connection,rs1As New ADODB.Recordset,sql As String'在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句 cn.Open"provider=microsoft.jet.oledb.4.0;data source="+App.Path+"\数据库名.mdb"+"" sql="select*from表名" rs1.Open sql,cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1("字段名") rs1.MoveNext Loop rs1.Close 例2： 一个用户登录系统 '准备工作:数据库D:\Mydb.mdb数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中Microsoft Activex Data Objects2.7Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s=Text1.Text If s="1"Or s="2"Then UserName=InputBox("请输入用户名") Password=InputBox("请输入用户密码") sql="Select*From[UserInfo]where User='"&UserName&"'" 'UserInfo请换成你的实际数据表名 Rs.Open sql,Conn,1,3 If Rs.EOF Then 1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ①Data控件 Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=1234” Data1.DatabaseName=APP.path + “\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。 2、使用数据对象 怎样才能在VB6.0 中连接Access 2003数据库 2009年06月18日 21:01 怎样才能在VB6.0 中连接Access 2003数据库 1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ① Data控件 Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=1234” Data1.DatabaseName=APP.path + “\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 这里以链接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=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * 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() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说") 这里以access数据库为例。 第一部分是通过语句，第二部分是通过控件 一、 通过语句数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * 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() Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表 where id =5", Text1.Text = rs.fields("效应和现象名称") ACCESS 数据库和VB 的连接 Edited by Ryan 2013 1、建立Access 数据库 2、启动VB，建立标准EXE 图 1 3、添加ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图3 所示界面 图 2 图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4 所示控件 图4 4、添加控件Adodc 图5 4、在控件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 database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1 这里以链接access数据库为例。 欧阳歌谷（2021.02.01） 第一部分是通过语句链接，第二部分是通过控件链接 一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 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=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * 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() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.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控件链接数据库，然后通过datagrid控件显示数据库中的相关表。 过程示例： 1.添加部件ado控件和datagrid控件，如图所示： 这样工具栏里面会出现这样两个图标（最下面）： 2.把这两个控件添加到你的form1里面，这个不用演示吧 3.右击你添加的adodc1控件，选最后一个vb连接access数据库常用的方法两种示例
visual basic 6.0成功连接access2010方法
用VB的代码创建Access数据库
VB6+ACCESS对数据库进行添加删除项目
VB6连接Access数据库
怎样才能在VB6连接Access 2003
vb连接access数据库常用的方法两种示例
vb连接access数据库常用的方法两种示例
vb连接access数据库及数据读写操作(可编辑修改word版)
vb连接access数据库常用的方法两种示例之欧阳歌谷创作
相关主题
文本预览