VB如何连接ACCESS数据库详解

VB如何连接ACCESS数据库详解
VB如何连接ACCESS数据库详解

VB如何连接ACCESS数据库详解

首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步:

读取文件-- 格式化数据-- 关闭文件-- 使用数据

如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受.

相对文本文件来说数据库的使用也大致分为以下几步:

打开数据库-- 查找数据-- 使用数据-- 关闭数据库

从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的.

其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个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.

创建这两个对象的具体方法是:

1.在引用后,使用New关键字,如

Private Conn As New ADODB.Connection

Private Reco As New ADODB.Recordset

2.在没引用时,用CreateObject创建对象:

Dim Conn,Reco

Set Conn = CreateObject("ADODB.Connection")

Set Reco = CreateObject("ADODB.Recordset")

创建了对象之后,下一步我们要做的就是打开数据库了.

先看下面的代码,可以成功的打开数据库.

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"

这句代码打开了D盘中的Main.mdb这个数据库.

Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径.

打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.

1.想返回"Users"中,[用户名]为"去年烟花"的[密码]

Recordset.open "Select 密码From Users Where 用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录.

If Recordset.eof and Recordset.bof then

Msgbox "用户不存在!",16

Else

If PassWord =Recordset("密码").value then

msgbox "登录成功!",64

Else

msgbox "密码错误!",32

End If

End If

Recordset.Close

2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来

Recordset.open "Select * From Users",Connection,1,1

这时,表已经被打开,我们就用以下代码把它显示出来.

Do whlie Not Recordset.eof

Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value Recordset.MoveNext

Loop

Recordset.Close

由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.

Select [字段名] From 表名[Where 条件]

这里的条件可以省略.且字段名也可以用"*"来代替所有字段.

需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.

后面的条件,可以用"="、">"、"<"等运算符.比如"Where ID > 32".(这里假设[ID]为数字型.)

这是打开的部分.第二个很重要的部分就是查询记录.

数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.

定位:

移动到下一条Recordset.MoveNext

移动到上一条Recordset.MovePrevious

移动到最后一条Recordset.MoveLast

移动到第一条Recordset.MoveFrist

移动到某一条Recordset.Move Number

筛选:

Recordset.Find "条件"

如:[用方法(2)打开表之后]

Private Sub Command1_Click()

Recordset.Find "用户名=" & "text1.text"

If Recordset.Eof <> True Then

Msgbox "该用户的密码是:" & Recordset("密码").value,64

Else

Msgbox "未找到该用户的资料!",16

End If

End Sub

MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True 时....

而只要Eof 和Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.

Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.

第三个部分就是添加/修改记录.

修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.

比如:[(修改密码)按方法(1)打开表之后]

Recordset("密码").value = "123456"

Recordset.Updata

需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.

而添加记录则可以用以下代码来实现:

Recordset.addnew

Recordset("用户名").value = "Admin"

Recordset("密码").value = "Admin"

Recordset.Updata

这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.

到这里就差不多了,最后说一下上面提到的几个方法.

Recordset.Open SQL语句,数据源,游标类型,打开方法

SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据

数据源就是一个打开之后的Connection对象.

去他妈的游标类型,填1就可以了[偷笑ing]

打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.

对应数值的意义:

1 只读

2 独占

3 可写

4 自已可写,别人可读

Connection.open 连接代码,服务器用户名,密码

这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

在做项目时,经常遇到要将Excel中的大量数据导入到Access数据库中,原来的做法是读一条写一条,若导入上万条的数据需要几分仲时间,速度很慢。有没有最快的方法呢?经本人研究、反复的实验,终于写出了最快速的批量导入大批量数据的方法,上万条数据只需几秒钟就可全部导入,够快了吧。代码公布出来与大家分享。

Sql代码

Set conn = Server.CreateObject("adodb.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("test.mdb") conn.Open connstr

sql = "insert into userinfo select userName,userAccount,userStatus from [userinfo$] in '" & Server.MapPath("hbwlUserInfo.xls")

& "' 'Excel 8.0;' where userAccount is not null"

conn.Execute (sql)

Set conn = Server.CreateObject("adodb.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("test.mdb") conn.Open connstr

sql = "insert into userinfo select userName,userAccount,userStatus from [userinfo$] in '" & Server.MapPath("hbwlUserInfo.xls")

& "' 'Excel 8.0;' where userAccount is not null"

conn.Execute (sql)

Excel 批量导入到Access数据库

本过程完成将Excel2007中的工作表批量导入到Access2007数据库中

延用导入的工作表名称

Private Sub ExportExcelSheetToAccess()

Dim sSheetName As String 'Excel表名

Dim sAccessTable As String 'Access 表名

Dim sAccessDBPath As String 'Access 数据库路径及名称

sAccessDBPath = "e:\test.accdb" 此处填写Access 数据库路径及名称

Set con = CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName

For Each wsheet In Worksheets

sSheetName = https://www.360docs.net/doc/9e16107810.html,

sAccessTable = https://www.360docs.net/doc/9e16107810.html,

mysql = "Select * into " & sAccessTable & " in '" & sAccessDBPath & "' FROM [" & sSheetName & "$]"

con.Execute (mysql)

Next wsheet

End Sub

vb连接ACCESS数据库实例

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数据库的具体步骤

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

VB如何连接ACCESS数据库详解

首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个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数据库连接

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数据库中的报表

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

(完整版)vb连接access数据库及数据读写操作

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

(完整版)vb连接access数据库及数据读写操作.docx

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

(完整版)vb连接access数据库及数据读写操作

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;?同同

vb连接access数据库常用的方法两种示例

这里以链接access数据库为例。 第一部分就是通过语句链接,第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Dimcn As NewADODB、Connection Dim rs As New ADODB、Recordset Dim constrAsString 2、给这些变量赋值,方便链接数据库 constr = "Provider=Microsoft、Jet、OLEDB、4、0;"&"DataSource=D:\EffectSolution\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 3、打开数据库 cn、openconstr 打开表 rs、open“select * from 效应表whereid=5“,cn 取字符串并赋值给相应得文本 Text1、text=rs、fields(“效应与现象名称”) Text2、text=rs、fields(“文字解说”) 关闭表 rs、close 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提

示出错得,这样得话,在窗口上建立两个文本框就够了。 但就是,在此之前还有一步一定要做, 点"工程"-"引用"-找到"Microsoft ActiveX Data Object2、6 ",如图所 示:

显示得结果如下图所示: 通过与效应表对比发现显示正确。 总体代码如下: Private Sub Form_Load() Dim cn As New ADODB、Connection Dim rs As NewADODB、Recordset Dim constrAsString 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("文字解说")

visual basic 6.0成功连接access2010方法

在用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数据库

怎样用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

VB6+ACCESS对数据库进行添加删除项目

附件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

VB6连接Access数据库

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连接Access 2003

怎样才能在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的属性就可以创建到加密的数据库的连接了。

vb连接access数据库常用的方法两种示例

这里以链接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("文字解说")

vb连接access数据库常用的方法两种示例

这里以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("效应和现象名称")

vb连接access数据库及数据读写操作(可编辑修改word版)

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

vb连接access数据库常用的方法两种示例之欧阳歌谷创作

这里以链接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控件,选最后一个

相关文档
最新文档