您的位置：360文档中心› vb连接access数据库常用的方法两种示例

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

合集下载

02VB连接Access数据库

02VB连接Access数据库

5）EOFAction属性：返回或设置一个值，指示 在EOF属性为True时ADO数据控件进行什么操 作。有三种选择： 0 - adDoMoveLast：缺省设置。保持最后一 个记录为当前记录。 1 - adStayEOF：将当前记录位置定位在最后 一个记录之后。记录集的EOF值保持True，这 时禁止ADO数据控件上的 （Move Next） 按钮。 2 – adDoAddNew：移过最后一个记录时自动 添加一个新记录。


Command1.Enabled = False
Command2.SetFocus Else Adodc1.Recordset.MovePrevious End If End Sub
19






Private Sub Command2_Click()
' “下一个”按钮

Command1.Enabled = True
16


设计步骤：
1）新建一个标准EXE工程，打开“部件”对话框，选择 “Microsoft ADO Data Control 6.0(OLEDB)”，向工具箱 中添加一个ADO数据控件，并将其添加到窗体上，使 用默认名称Adodc1。设置其Visible属性为False。 2）在Adodc1控件的属性页的“通用”选项卡上生成连 接字符串如下： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb\学生.mdb;Persist Security Info=False 3）在Adodc1控件的属性页的“记录源”选项卡上选择 命令类型为“2 － adCmdTable”,设置表名称为“学生基 本信息” 17

VB如何连接ACCESS数据库详解

VB如何连接ACCESS数据库详解

VB如何连接ACCESS数据库详解首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步:读取文件--格式化数据--关闭文件--使用数据如果数据量很大,须要展开甄选,且存放数据的源文件可能将不定时更改,那么我们可以用一个临时文件去放置有价值的数据,这样可以大大提高程序的效率.必须[格式化数据]时,我们首先必须展开甄选,然后还得展开分类,这样文件中的字符串就可以被转换成有价值的信息以供程序采用.这样一来,不用说,处理速度将大大减缓,而且即使你设计的数据格式比较科学,当数据量非常小时,文件的容量也可以变小的使普通计算机无法忍受.相对文本文件来说数据库的使用也大致分为以下几步:打开数据库--查找数据--使用数据--关闭数据库从中可以窥见,里面太少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式去展开存储的.其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个textbox的话,那么数据库更像是一个listbox.使用文本文件时我们需要从整个textbox中取出有用的信息,并进行处理,而listbox则可以根据需要返回特定的某一项.由于vb本身并不具有可以出访数据库的类,所以我们须要提及一个涵盖能够出访数据库的Derrien采用数据库.这里我们使用adodb,较之dao和能够出访数据库的api来说,它比dao更有效率,更强悍;而较之api,它更直观功能强大,更适宜初学者.而access数据库较之sql,也相对直观了很多,且能满足用户中小型应用程序的须要,所以我们在采用数据库时,挑选了access.就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计access 数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office 中的access或vb自带的visdata.当数据库设计不好了以后,我们可以已经开始\数据库编程\了.首先,我们需要引用ado.具体的方法是,在\工程\--\引用\中,找到\activexdataobject*.*library\这里的\是指的时ado的版本号,一般来说,应用程序或activex控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本access的同时,也能识别较新版本的access.然后我们须要在程序中建立一个对象.就如同我们在窗体上嵌入一个filebox就可以看见文件名一样,只有建立了ado对象,我们才能出访数据库.常用的对象存有两个,connection和recordset.创建这两个对象的具体方法是:1.在引用后,使用new关键字,如privateconnasnewadodb.connectionprivaterecoasnewadodb.recordset2.在没有提及时,用createobject创建对象:dimconn,recosetconn=createobject(\setreco=createobject(\建立了对象之后,下一步我们必须搞的就是关上数据库了.先看看下面的代码,可以顺利的关上数据库.conn.open\这句代码打开了d盘中的main.mdb这个数据库.connection.open方法的第一个参数就是相连接代码,它将传达给系统的数据库引擎.前半部分后\microsoft.jet.oledb.4.0\它则表示了数据库的类型.相同的数据库可能会相同.后半句\它则表示了数据库所在的绝对路径.打开数据库之后,还要打开表.假如数据库中有一个表,表名为\字段有两个,一个为用户名,一个为密码.那么看以下代码.1.想要回到\中,[用户名]为\去年烟花\的[密码]recordset.open\密码fromuserswhere用户名='去年烟花'\之后我们就可以把用户输出的密码展开比较,看看与否容许登入.ifrecordset.eofandrecordset.bofthenmsgbox\用户不存有!\elseifpassword=recordset(\密码\msgbox\登录成功!\elsemsgbox\密码错误!\endifendifrecordset.close2.假设admin已经顺利登入系统,我们想要把所有的用户名和密码都表明出recordset.open\这时,表中已经被关上,我们就用以下代码把它表明出.dowhlienotrecordset.eofprint\用户名:\用户名\密码:\密码\recordset.movenextlooprecordset.close由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是sql语句.select[字段名]from表名[where条件]这里的条件可以省略.且字段名也可以用\来代替所有字段.须要特别注意的就是,如果你用(1)中的方法关上,那么(2)后面表明的代码就无法皮德盖在(1)中.因为(1)里并没关上[用户名]字段,所以这一句recordset(\密码\就没值存有,除了可能将失效.后面的条件,可以用\、\、\等运算符.比如说\这里假设[id]为数字型.)这是打开的部分.第二个很重要的部分就是查询记录.数据库它并不是把所有记录全部放在一个变量中水泵的.而是以\当前记录\的形式去回到一个值.所以我们想要从中找出有价值的信息,就必须必须对信息展开定位/甄选.定位:移动到下一条recordset.movenext移动到上一条recordset.moveprevious移动到最后一条recordset.movelast移动至第一条recordset.movefrist移动至某一条recordset.movenumber甄选:recordset.find\条件\recordset.find\用户名=\ifrecordset.eof<>truethenmsgbox\该用户的密码是:\密码\elsemsgbox\未找到该用户的资料!\endifendsubmovenext只有当eof不为true时,才可用,否则发生错误.而moveprevious刚是bof不为true时....而只要eof和bof中存有一个不为真时,也就是说只要存有一条记录时,它就可以采用.find方法中的条件和open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,eof为true.找到则当前的值就是符合条件的记录.第三个部分就是嵌入/修正记录.修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.比如:[(修改密码)按方法(1)打开表之后]recordset(\密码\recordset.updata须要特别注意的就是,在修正顺利完成后,必须调用updata方法,这样修正就可以生效.而嵌入记录则可以用以下代码去同时实现:recordset.addnewrecordset(\用户名\recordset(\密码\recordset.updata这里,先必须调用addnew方法,减少一条崭新记录,然后对这个崭新记录中的各字段赋值,最后再调用updata方法.到这里就差不多了,最后说一下上面提到的几个方法.recordset.opensql语句,数据源,游标类型,打开方法sql语句不用说了,就是select那啥的,目的就是按建议从表回到数据数据源就是一个关上之后的connection对象.回去他妈的游标类型,填上1就可以了[里头ing]打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.对应数值的意义:1所读2独霸3展毛4自已可以写下,别人复本connection.open相连接代码,服务器用户名,密码这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.在搞项目时，经常碰到必须将excel中的大量数据复制到access数据库中，原来的作法就是念一条写下一条，若引入上万条的数据须要几分仲时间，速度很慢。

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

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

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 database\test1\test1.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 ‘读取指定行中的哪个数据给文本框rs.Update ‘数据显示rs.Close ‘关闭表End Sub。

VB利用ADO控件连接access数据库

VB利用ADO控件连接access数据库

VB利用ADO控件连接access数据库今天告诉大家VB利用ADO控件连接access数据库的两种方法:一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。

一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。

如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.打开Microsoft Visual Basic6.0 我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1。

默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后确定，工具栏就会多了一个adodc的控件。

第一种方法:设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--Microsoft Jet 4.0 OLE DB Provider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性. 如果要把内容提交到数据库一般使用adCmdTable. 表选择要连接的表。

设置完毕后就可以了.如果我们想把内容提交到数据库.举个例子..在窗体建立一个文本框,设置属性中的DataSource为adodc1 DataField为要连接的数据库的字段名。

如果数据库中有字段，会让你选择。

设置好后在窗体加一个添加记录和一个提交的按钮，设置代码:Private Sub Command1_Click() Adodc1.Recordset.Update '保存Adodc1.Refresh '刷新End Sub添加按钮代码:Private Sub Command2_Click() Adodc1.Recordset.AddNew '添加新纪录Adodc1.Recordset("姓名").Value = Text1.Text End Sub第二种方法:在窗体添加Adodc控件一个text控件一个添加记录按钮一个提交按钮在窗体设置代码:Private Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '设置数据库路径mandType = adCmdText '设置记录源Adodc1.RecordSource = "select * from message" '连接数据库的message 表文件Set Text1.DataSource = Adodc1 text1.DataField = "姓名"End Sub添加记录按钮代码:Private Sub Command1_Click() Adodc1.Recordset.AddNew '添加新纪录End Sub提交代码:Private Sub Command2_Click() Adodc1.Recordset.Update '保存Adodc1.Refresh '刷新End Sub好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。

VBA连接数据库的方法与技巧

VBA连接数据库的方法与技巧

VBA连接数据库的方法与技巧VBA (Visual Basic for Applications) 是一种用于Microsoft Office套件中的宏语言。

通过使用VBA，用户可以编写自定义的宏，以实现自动化任务。

连接数据库是在VBA中进行数据操作的重要任务之一。

本文将介绍VBA连接数据库的方法与技巧，帮助您优化和简化数据库操作。

1. VBA连接Access数据库Access数据库是一种常用的本地数据库，VBA可以通过ADO (ActiveX Data Objects) 来连接Access数据库。

以下是连接Access数据库的基本代码示例：```vbaDim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"```上述代码首先创建了一个ADODB.Connection对象，并使用`Open`方法打开了一个Access数据库（.accdb文件）。

您需要将路径`C:\path\to\database.accdb`替换为实际的数据库文件路径。

2. VBA连接SQL Server数据库SQL Server是一种功能强大的关系型数据库，可以使用VBA通过ADO来连接SQL Server数据库。

以下是连接SQL Server数据库的基本代码示例：```vbaDim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=SQLOLEDB;DataSource=server_name;Initial Catalog=database_name;UserID=username;Password=password;"```上述代码中，`provider`参数设置为`SQLOLEDB`，`Data Source` 参数指定了SQL Server的名称，`Initial Catalog`参数指定了要连接的数据库名称，`User ID`和`Password`参数指定了连接所需的用户名和密码。

vb连接Access数据库实例

vb连接Access数据库实例

vb连接Access数据库实例下面我们给出一个连接到Access数据库的实例，此例中用到的数据库为Access 2003。

首先在e盘建立一个名为vb的文件夹，然后打开Access 2003，单击“文件”→“新建”，在右侧出现的任务窗格中单击“空数据库”，在出现的对话框中,我们在"文件名"项后输入给新数据库起的名称并选择保存位置,这里我们为新数据库命名为Access_db并保存到我们刚才建立的文件夹中,如下图,单击"创建"按钮后,系统就生成了一个新的Access空数据库。

在空数据库中,还没有任何用户所创建的表,接下来我们就要使用设计器(如下图)为Access_db数据库建立表。

首先我们为Access_db创建一个名为“wzdz”的表，该表由以下4个字段组成：(1)编号:此为Access自动添加的主键字段,我们直接拿来使用。

我们可直接设置后三个字段，在输入完了wzdz表的各个字段之后，此时关闭表设计器，Access 会提示是否要进行保存表，选择“是”，然后为表起名为“wzdz”。

因为没有定义主键(primary Key)，Access会提示为表加上一个主键，按提示将编号设置为主键即可。

(2)后三个字段分别为网站名称、网站地址和网站描述，三个字段的属性是相同的，如下：▲数据类型：文本。

▲字段大小：50▲有效性规则：无。

▲必填字段：否▲允许空字符串：否▲索引：无设置完以上字段后，再重新在设计视图中打开wzdz表（方法：在设计器中右击wzdz表名，选“设计视图”命令），应如下图所示：有了数据库和表之后，如果想让VB应用程序访问数据库，还需进行数据源的配置。

只有在配置完成了数据源之后，才能让VB应用程序同数据库进行正确的连接工作，在VB应用程序中才可以通过ADO对象来进行具体数据的操作，如果在建立了数据库之后没有对数据源进行配置或者对数据源的配置工作出现错误，则在此之前所做的一切工作都是白费的。

vb操作access数据库的方法

vb操作access数据库的方法

VB操作Access数据库方法使用ADODB首先，声明一个链接变量，并根据需要声明记录集变量。

建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。

这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。

由于与链接SQL Server等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。

另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。

对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。

如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。

如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于Recordset集合)=============Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName = App.Path & "\'数据库名'"DbIp = "数据库地址"DbName = "数据库名"DbUser = "数据操作员用户名"DbPw = "操作员密码"'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量'1)连接Access数据库:'-------------------CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =fal se;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw'2)连接Oracle数据库:'-------------------CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & FileName & ";Persist Security Info=True"'其中:'PASSWORD: 密码'User ID: 用户号'Data Source: 数据库名'Persist Security Info:'Provider:'3)连接VF的DBF库:'----------------CnStr = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=" & DbUser & ";SourceDB=" & FileName & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"'4)连接SQL的数据库'------------------CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQS OFT;SERVER=" &DbIP'也可以使用这段简易代码 CnStr = "Provider=SQLOLEDB;Data Source=" & Db Ip & ";DATABASE=" & DbName & ";UID=" & DbUser & ";pwd=" & DbPwConn.Open cnstr '使用 Connection 集合的 Open 方法与数据库建立连接2、Recordset集合的常用方法=========================='1)打开一个表'------------Sql = "select * from 表名" 'SQL查询语句Set rs = New ADODB.Recordset '新建一个实例rs.Open Sql, conn '使用 Open 方法打开数据库中的一个表'注意，这种打开方式只能使用 rs.MoveNext （即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容''rs.Open Sql, conn，1 '虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。

VBA中的连接与操作Access数据库

VBA中的连接与操作Access数据库

VBA中的连接与操作Access数据库随着计算机技术的不断发展和应用范围的不断扩大，数据库管理成为各个领域中必不可少的一项技能。

Microsoft Access作为一种常用的关系数据库管理系统（RDBMS），提供了许多功能强大的工具和功能，用于存储、处理和管理大量的数据。

在VBA（Visual Basic for Applications）编程中，连接和操作Access数据库是一项基本技能，本文将为您介绍如何在VBA中进行这些操作。

1. 连接Access数据库在VBA中连接Access数据库，需要使用ADODB （ActiveX Data Objects）对象库。

ADODB是Microsoft提供的用于连接和操作多种数据库的组件，并提供了一套一致的API（Application Programming Interface）接口。

首先，我们需要在VBA的代码中添加对ADODB的引用。

在VBA编辑器中，选择“工具”菜单，然后选择“引用”选项。

在弹出的对话框中，找到“Microsoft ActiveX Data Objects x.x Library”（其中x.x表示版本号），选中并点击“确定”按钮。

接下来，我们需要声明和创建ADODB的相关对象，以连接到Access数据库。

以下是一个连接到Access数据库的示例代码：```Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"```在上述代码中，我们首先声明了一个名为conn的ADODB.Connection对象，并使用New关键字创建了一个新的连接。

conn.Open语句用于打开数据库连接，其中Provider参数指定了使用的数据提供程序（这里使用的是Microsoft Access引擎），Data Source参数指定了Access 数据库文件的路径和文件名。

用vb成功连接access2010.

用vb成功连接access2010.

用vb成功连接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 NewConnectionDim objrs As New RecordsetDim strsql As Stringobjcn.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 = objcnobjrs.Open (strsql)二、控件连接：1，工程——部件——添加microsoft ado data control 6.0 控件。

VB与数据库连接的几种方法

VB与数据库连接的几种方法

VB与数据库连接的几种方法在VB中，有多种方法可以连接数据库。

以下是几种常见的方法：1. 使用OLE DB连接：OLE DB是Microsoft提供的一种连接数据库的标准接口，可以连接各种类型的数据库。

可以通过VB中的ADO(ActiveX Data Objects)对象来使用OLE DB连接数据库。

以下是一个使用OLE DB连接数据库的示例代码：```Dim conn As New ADODB.Connectionconn.ConnectionString = "Provider=SQLOLEDB;DataSource=ServerName;Initial Catalog=DatabaseName;UserID=Username;Password=Password"conn.Open```上述代码中，通过设置ConnectionString属性来指定数据库连接字符串，其中包含了数据库类型、服务器名称、数据库名称、用户名和密码等信息。

然后调用Open方法打开数据库连接。

2. 使用ODBC连接：ODBC(Open Database Connectivity)也是一种标准的数据库连接接口，可以连接多种类型的数据库。

可以通过VB中的ODBC对象来使用ODBC连接数据库。

以下是一个使用ODBC连接数据库的示例代码：```Dim conn As New ADODB.Connectionconn.ConnectionString = "Driver={SQL Server Native Client 11.0};Server=ServerName;Database=DatabaseName;Uid=Username;Pwd=P assword;"conn.Open```上述代码中，通过设置ConnectionString属性来指定ODBC连接字符串，其中包含了ODBC驱动程序名称、服务器名称、数据库名称、用户名和密码等信息。

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

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

这里以链接access数据库为例。

第一部分是通过语句链接，第二部分是通过控件链接一、通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。

1.首先定义几个全局变量Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As String2.给这些变量赋值，方便链接数据库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.ConnectionDim rs As New ADODB.RecordsetDim constr As String"Data Source=D:\EffectSolution\科学效应数据库.mdb"'空格加短下划线表示续行cn.open constrrs.open "select * from 效应表 where id =5", cnText1.Text = rs.fields("效应和现象名称")Text2.Text = rs.fields("文字解说")rs.Closecn.CloseEnd Sub二、通过ado控件链接数据库，然后通过datagrid控件显示数据库中的相关表。

vb 11种数据库连接方法

vb 11种数据库连接方法

6.Oracle OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"
7.dBase 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
11.MS text OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_
9.Visual Foxpro 连接方法:
set adocon=Server.Createobject("adodb.connection")

VB连接ACCESS数据库

VB连接ACCESS数据库
Else
If Text_password.Text <> "" Then
Command2.SetFocus
End If
End If
End Sub
Private Sub Text_password_Validate(Cancel As Boolean)
adLockReadOnly－指示只读记录。无法改变数据。
adLockUnspecified－未指定锁定类型。创建副本时，副本与源对象使用相同的锁定类型。
vb里面的adOpenKeyset,adLockPessimistic 分别是什么意思
adLockReadOnly 常数值为1 vb缺省值：Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
adOpenUnspecified－不指定游标类型。
2、LockType参数的取值：
adLockBatchOptimistic－指示开放式批更新。需要批更新模式。
adLockOptimistic－指示逐个记录开放式锁定。提供者使用开放式锁定，仅在调用 Update 方法时锁定记录。
adLockPessimistic－指示逐个记录保守式锁定。提供者要确保记录编辑成功，通常在编辑之后立即在数据源锁定记录。
其中：
1、CursorType参数的取值：
adOpenDynamic－使用动态游标。其他用户所作的添加、更改或删除均可见，而且允许 Recordset 中的所有移动类型（如果提供者不支持书签，则书签除外）。
adOpenForwardOnly－默认值。使用仅向前游标。除了在记录中只能向前滚动外，与静态游标相同。当只需要在 Recordset 中进行一个传递时，用它可提高性能。

VBA与Access的联动操作

VBA与Access的联动操作

VBA与Access的联动操作VBA（Visual Basic for Applications）是一种由微软开发的脚本语言，广泛用于自动化和扩展Microsoft Office套件中的应用程序。

Access是Microsoft Office套件中的一种关系型数据库管理系统软件，提供了强大的数据库功能和工具。

通过结合VBA和Access，我们可以实现各种强大的联动操作，提高工作效率和数据处理能力。

VBA与Access的联动操作是基于VBA的编程技术，用于连接和操作Access数据库。

下面将探讨如何使用VBA与Access实现联动操作的几个重要方面。

1. 连接Access数据库在VBA中，我们可以使用ADODB连接对象来连接Access数据库。

首先，需要引用"Microsoft ActiveX Data Objects Library"库。

然后，可以使用以下代码建立与Access数据库的连接：```vbaDim con As New ADODB.Connectioncon.Open "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Path\to\your\Database.accdb;Persist Security Info=False;"```这段代码创建了一个名为"con"的ADODB.Connection对象，并通过Open方法连接到指定的Access数据库。

在连接字符串中，需要指定数据库文件的路径以及数据库的提供程序。

2. 执行SQL查询一旦与Access数据库建立连接，我们可以使用VBA执行SQL查询语句来检索、插入、更新或删除数据。

以下是一个实例代码，演示如何使用VBA执行SQL查询并获得结果集：```vbaDim rs As New ADODB.Recordsetrs.Open "SELECT * FROM TableName", conDo Until rs.EOF' 处理每一行数据rs.MoveNextLooprs.CloseSet rs = Nothing```在这个例子中，我们使用Recordset对象（rs）执行SELECT语句来检索来自TableName表的所有数据。

VBA操作Access数据库的应用技巧与实践

VBA操作Access数据库的应用技巧与实践

VBA操作Access数据库的应用技巧与实践在今天的技术驱动的世界中，数据库管理成为了各种组织和企业的重要工作。

Microsoft Access作为一种流行的数据库管理系统，为用户提供了许多强大且灵活的功能。

然而，仅凭手动操作可能无法满足复杂的需求，这就需要利用VBA（Visual Basic for Applications）来进行自动化操作。

VBA是Microsoft Office套件中的一种编程语言，它允许用户通过编写宏来自动化执行重复的任务，以提高工作效率。

在Access中，VBA可以轻松的与数据库进行交互，使得我们能够更好地管理和处理数据。

下面将介绍一些VBA操作Access数据库的应用技巧与实践。

1. 连接到数据库：使用VBA连接到Access数据库是最基本的操作之一。

通过创建一个数据库对象，我们可以方便地访问数据库的各种功能。

以下是一个简单的示例：```Dim db As DAO.DatabaseSet db = CurrentDb2. 执行SQL查询：VBA允许我们使用SQL语句来查询数据库中的数据。

通过编写SQL查询语句并将其传递给数据库对象的`Execute`方法，我们可以获取所需的数据。

以下是一个示例：```Dim rs As DAO.RecordsetSet rs = db.OpenRecordset("SELECT * FROM TableName")```3. 添加新记录：通过VBA，我们可以很方便地向数据库中添加新的记录。

通过创建一个记录集对象并使用其`AddNew`和`Update`方法，我们可以插入新的数据。

以下是一个示例：```Dim rs As DAO.RecordsetSet rs = db.OpenRecordset("TableName", dbOpenDynaset)rs.AddNewrs("Field1") = Value1rs("Field2") = Value2rs.Update4. 编辑和删除数据：VBA还允许我们编辑和删除数据库中的数据。

vb与数据库的几种连接方法

vb与数据库的几种连接方法

－、用DAO控件连接数据库1.与Access2000数据库连接Private Sub Command1_Click()'也可直接在控件属性中设置以下各项但在控件属性中不能写入密码'只有在数据数没有密码的情况下可以省略Data1.RefreshData1.Connect = "Access 2000;"Data1.DatabaseName = App. Path + "/chncmadb.mdb"'数据库没有密码此句可省Data1.Connect = ";pwd=123456"'Data1.RecordSource = "耕地资源管理单元属性数据表2004"Data1.RecordSource = "select * from 耕地资源管理单元属性数据表2004" Data1.Refresh’move后才能正确显示记录个数End Sub2.与没有密码的DBF文件数据库连接Private Sub Command2_Click()Data1.Connect = "dBASE III;"Data1.DatabaseName = App. Path' Data1.RecordSource ="DBF"Data1.RecordSource = "select * from dbf"Data1.Refresh’move后才能正确显示记录个数End Sub3.与没有密码的Excel文件数据库连接Private Sub Command3_Click()Data1.Connect = "Excel 8.0;"Data1.DatabaseName = App.Path & "/EXcel.xls"Data1.RecordSource = "select * from [EXcel.xls]"Data1.Refresh’move后才能正确显示记录个End Sub二、用DAO代码连接数据库'在使用DAO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft DAO 3.6 Object Library]选项，或其它版本1.DAO代码与Access数据库连接Private Sub Command1_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开'如果无密码最后一个参数可以不要Set Db= OpenDatabase(App.Path & "/chncmadb.mdb", False, False, ";pwd=123456")'不需要move来更新记录个数'Set Rs = Db.OpenRecordset("耕地资源管理单元属性数据表2004")'需要move来更新记录个数Set Rs = Db.OpenRecordset("select * from [耕地资源管理单元属性数据表2004]")If Rs.RecordCount > 0 ThenRs.MoveLastRs.MoveFirstEnd IfEnd Sub2.DAO代码与没有密码的DBF文件数据库连接Private Sub Command2_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开Set Db = OpenDatabase(App.Path, False, False, "dbase III;")'不需要move来更新记录个数'Set Rs = Db.OpenRecordset("DBF")’需要move来更新记录个数Set Rs = Db.OpenRecordset("select * from [DBF]")If Rs.RecordCount > 0 ThenRs.MoveLastRs.MoveFirstEnd IfEnd sub3. 'DAO代码与没有密码的Excel文件数据库连接Private Sub Command3_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开'如果无密码最后一个参数可以不要Set Db = OpenDatabase(App.Path & "/EXcel.xls", False, False, "Excel 8.0;") '不需要move来更新记录个数' Set Rs = Db.OpenRecordset("EXcel.xls") '表格中的工作目录sheet'需要move来更新记录个数Set Rs = Db.OpenRecordset("select * from [EXcel.xls]") '表格中的工作目录sheet'If Rs.RecordCount > 0 ThenRs.MoveLastRs.MoveFirstEnd IfEnd Sub三、用ADO控件连接数据库'也可直接在控件属性中设置以下各项1.ADO控件与Access2000数据库连接Private Sub Command1_Click()'连接有密码的Access数据库'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"'连接没有密码的Access数据库Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb.mdb;Persist Security Info=False"'Adodc1.RecordSource = "[耕地资源管理单元属性数据表2004]"Adodc1.RecordSource = "select * from [耕地资源管理单元属性数据表2004]"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub2.'ADO控件与DBF表连接Private Sub Command2_Click()'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;DBQ=" & App.Path & ";SourceType=DBF;"'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;ExtendedProperties=DSN=Visual FoxPro Tables;UID=;SourceDB=”& app.path&”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;ExtendedProperties=DSN=dBASE Files;DBQ=”& app.path &”;;DefaultDir=”& app.path&”;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"'能使表名长度不受限制Adodc1.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052"'Adodc1.RecordSource = "[DBF1]"Adodc1.RecordSource = "select * from DBF1"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub3.'ADO控件与Excel表连接Private Sub Command3_Click()'下面一句测试未能通过'Adodc1.ConnectionString = "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=" & App.Path & "/EXcel.xls"'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;ExtendedProperties=DSN=Excel Files;DBQ=" & App.Path & "/EXcel.xls;DefaultDir=”&app.path&”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"'Adodc1.RecordSource = "[EXcel.xls]"Adodc1.RecordSource = "select * from [EXcel.xls]"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub4.'ADO控件与Oracle数据库连接Private Sub Command4_Click()'Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=chncmadb;User ID=chncmadb;Data Source=towebserver;Persist Security Info=True"Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"'Adodc1.RecordSource = "T320481TR012004"'表名不能加方括号Adodc1.RecordSource = "select * from T320481TR012004"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub5.'ADO控件与SQLserver数据库连接'未测试Private Sub Command5_Click()Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"'Adodc1.RecordSource = "T320481TR012004"Adodc1.RecordSource = "select * from T320481TR012004"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub四、用ADO代码连接数据库'在使用ADO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft.ActiveX Data Object 2.5 Library]选项，或其它版本1.'ADO代码与Access2000数据库连接Private Sub Command1_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn = New ADODB.ConnectionSet AdoRs = New ADODB.RecordsetAdoCnn.CursorLocation = adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串AdoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"AdoRs.Open "select * from [耕地资源管理单元属性数据表2004]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdTextSet DataGrid1.DataSource = AdoRsSet AdoRs = NothingSet AdoCnn = NothingEnd Sub2.'ADO代码与DBF表连接Private Sub Command2_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn = New ADODB.ConnectionSet AdoRs = New ADODB.RecordsetAdoCnn.CursorLocation = adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串AdoCnn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052"AdoRs.Open "select * from [DBF1]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdTextSet DataGrid1.DataSource = AdoRsSet AdoRs = NothingSet AdoCnn = NothingEnd Sub3.'ADO代码与Excel表连接Private Sub Command3_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn = New ADODB.ConnectionSet AdoRs = New ADODB.RecordsetAdoCnn.CursorLocation = adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" &App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"AdoRs.Open "select * from [EXcel.xls]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdTextSet DataGrid1.DataSource = AdoRsSet AdoRs = NothingSet AdoCnn = NothingEnd Sub4.'ADO代码与Oracle数据库连接Private Sub Command4_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn = New ADODB.ConnectionSet AdoRs = New ADODB.RecordsetAdoCnn.CursorLocation = adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串AdoCnn.Open "Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdTextSet DataGrid1.DataSource = AdoRsSet AdoRs = NothingSet AdoCnn = NothingEnd Sub5.'ADO代码与SQLserver数据库连接'未测试Private Sub Command5_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn = New ADODB.ConnectionSet AdoRs = New ADODB.RecordsetAdoCnn.CursorLocation = adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串AdoCnn.Open "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdTextSet DataGrid1.DataSource = AdoRsSet AdoRs = NothingSet AdoCnn = NothingEnd Sub。

VB6连接Access数据库

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

VBA与Access配合使用的技巧与实例

VBA与Access配合使用的技巧与实例

VBA与Access配合使用的技巧与实例VBA（Visual Basic for Applications）是Microsoft Office套件中用于自动化任务的编程语言，而Access是一种关系数据库管理系统。

通过将VBA与Access结合使用，可以实现许多自动化和定制化的任务，提高工作效率。

本文将介绍一些常用的VBA与Access配合使用的技巧，并提供一些实例帮助读者更好地理解如何应用这些技巧。

1. 数据库连接与操作VBA可以通过ADO（ActiveX Data Objects）技术与Access数据库建立连接，从而进行各种操作，包括插入、更新、删除和查询数据。

以下是一个例子，演示如何连接到Access数据库并插入一条新记录：```vbaSub InsertRecord()Dim conn As ObjectDim rs As Object' 创建连接对象Set conn = CreateObject("ADODB.Connection")' 连接到Access数据库conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Path\To\Your\Database.accdb;"' 创建记录集对象Set rs = CreateObject("ADODB.Recordset") ' 指定记录集操作的表名rs.Open "YourTableName", conn, 2, 2' 在记录集中插入新记录rs.AddNewrs.Fields("Field1").Value = "Value1"rs.Fields("Field2").Value = "Value2"' ...' 更新记录集中的数据到数据库rs.Update' 关闭连接和记录集rs.Closeconn.Close' 清理对象变量Set rs = NothingSet conn = NothingEnd Sub```以上代码示例了如何连接到Access数据库，并插入一条新记录到指定的表中。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

这里以链接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("文字解说＂)
rｓ、Ｃlｏsｅ
ｃn、Closｅ
EｎdＳub
二、
通过ado控件链接数据库,然后通过daｔａｇrid控件显示数据库中得相关表。

过程示例:
１、添加部件ado控件与daｔaｇｒid控件,如图所示：
这样工具栏里面会出现这样两个图标(最下面):
２、把这两个控件添加到您得ｆorｍ１里面,这个不用演示吧３、右击您添加得ａdｏdc１控件,选最后一个
然后点Gｅneraｌ里面得UseＣｏnnectiｏｎStrinｇ里面得那个Ｂuild,选择ｍicroｓoft JＥT 4、0 OLE DB Proｖider，选中之后点下一步;
4、然后,点击第一个项目右边那个很多点得按钮,找到自己得数据库,选好之后点“打开“
旁边得文本框里面就有了数据路径，像这样:
5、测试连接,成功了就行了
6、点确定,显示这样一个界面:
7、点右边第三个RｅcoｒdSoｕrｃe 按钮,设置成如下情况——cmdtext选择1,然后输入SＱL语句,
Ｓelect *fｒoｍ效应表（表名，必填）
8、设置好之后点确定就行了，这样就通过aｄｏｄc1控件连接到了数据库中得这张表接下来就是对ｄaｔaｇrid控件得设置：
9、把ｄａtagrｉd１控件得dａｔasource设置成adoｄc1,就行了。

10、按F5启动,就会显示这样一个结果:
这样就成功了。

相关文档
最新文档