VB连接Access数据库

合集下载

VBA与Access的联动操作指南

VBA与Access的联动操作指南VBA（Visual Basic for Applications）是一种用于编写宏的编程语言，主要用于增强微软Office系列软件的功能。

Access 是微软Office套件中的一款数据库管理系统，集成了数据存储、查询和报表生成等功能。

在许多企业和个人使用Access 来管理和分析大量的数据。

通过VBA编程与Access的联动，可以更加高效地处理和管理数据。

本文将为您提供VBA与Access的联动操作指南，帮助您更好地利用这两个强大的工具。

第一部分：VBA基础知识1. VBA概述：简单介绍VBA的由来、特点和应用范围。

2. VBA开发环境：详细介绍如何打开VBA开发环境，以及各个窗口的作用。

3. VBA语法和结构：讲解VBA的基本语法规则和编程结构，如变量的声明和赋值、条件语句、循环语句等。

第二部分：Access基础知识1. Access概述：简单介绍Access的功能和应用场景，以及其与VBA的关系。

2. Access数据库的创建：指导用户如何创建一个新的Access数据库，并设置字段和数据类型。

3. Access数据库的查询和报表：介绍Access的查询和报表功能，帮助用户根据自己的需求进行数据的检索和分析。

第三部分：VBA与Access联动1. 访问Access数据库：通过VBA代码连接Access数据库，并实现数据的读取和写入。

2. 数据的增删改查：使用VBA代码实现对Access数据库中数据的增加、删除、修改和查询操作。

3. VBA与Access的交互：介绍如何使用VBA与Access进行交互，包括运行Access中的宏和报表等。

第四部分：案例分析1. 案例一：利用VBA和Access实现数据的自动导入和分析。

介绍如何通过编写VBA代码自动将外部数据导入Access数据库，并使用VBA自动执行数据分析和生成报表。

2. 案例二：通过VBA和Access实现数据的批量处理。

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

这里以链接a c c e s s数据库为例。

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

1.首先定义几个全局变量Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As String2.给这些变量赋值，方便链接数据库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.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控件显示数据库中的相关表。

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数据库及数据读写操作

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。

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

VBA与Access数据库的连接与操作VBA（Visual Basic for Applications）是一种非常强大的编程语言，它可以与各种Microsoft Office应用程序进行集成，包括Access数据库。

通过使用VBA，用户可以自动化执行各种任务，包括从Access数据库中检索数据、修改数据并将结果输出到用户界面。

本文将介绍如何在VBA中连接到Access数据库并进行操作。

我们将重点讨论以下内容：1. 连接到Access数据库2. 执行SQL查询3. 插入、更新和删除数据4. 创建和修改表格和查询1. 连接到Access数据库在VBA中连接到Access数据库，我们首先需要使用ADO（ActiveX Data Objects）来建立连接。

我们可以使用以下代码片段来连接到指定的Access数据库：```vbaDim conn As New ADODB.ConnectionDim dbPath As StringdbPath = "C:\路径\到\你的\数据库.accdb"conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath & ";"```在上述代码中，我们首先声明了一个ADODB.Connection对象作为连接的实例。

接下来，我们提供了Access数据库文件的路径，并使用conn.Open方法打开连接。

2. 执行SQL查询一旦我们成功地连接到Access数据库，我们可以使用VBA来执行SQL查询。

以下是一个示例代码段，用于从名为"Employees"的表中检索所有数据：```vbaDim rs As New ADODB.RecordsetDim sql As Stringsql = "SELECT * FROM Employees;"rs.Open sql, conn```在上述代码中，我们首先声明了一个ADODB.Recordset 对象作为结果集的实例。

在VBA中操作Access数据库的方法和技巧

在VBA中操作Access数据库的方法和技巧VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言。

在许多办公环境中，Microsoft Access 是常用的数据库管理系统。

通过使用VBA，您可以利用Access数据库中的数据和功能来编写自定义的应用程序。

本文将介绍在VBA中操作Access数据库的一些方法和技巧，帮助您更有效地处理数据。

首先，让我们了解一些基本概念。

在操作Access数据库之前，您需要了解表、字段以及如何连接数据库。

在Access中，表是数据的集合，字段是表中的列。

通过连接数据库，您可以将VBA与Access数据库建立起联系。

以下是一些常用的方法和技巧来操作Access数据库。

1. 连接到Access数据库在VBA代码中，您可以使用ADODB（ActiveX Data Objects DataBase）对象连接到Access数据库。

首先，需要声明变量来表示数据库连接。

然后，使用`OpenDatabase`方法打开连接。

以下是连接到Access数据库的示例代码：```vbaDim db As DatabaseSet db = OpenDatabase("C:\Path\to\your\database.accdb")```2. 创建查询在VBA中，您可以使用SQL语句执行查询。

查询是用来检索、过滤和排序数据库中的数据。

以下是一个简单的查询示例：```vbaDim strSQL As StringstrSQL = "SELECT * FROM TableName WHERE FieldName='Value'"```在上面的示例中，`TableName`是要查询的表的名称，`FieldName`是要过滤的字段，`Value`是过滤条件的值。

3. 执行查询在连接并创建查询之后，您可以使用`Execute`方法执行查询语句。

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数据库的方法主要有下面三种∙使用ADO对象，通过编写代码访问数据库C onnection 对象ODBC数据源∙使用ADO Data 控件快速创建数据库连接有三种连接方法Data Link文件使用ODBC数据源名称使用连接字符串∙使用数据环境设计器创建数据库连接首先添加环境引用。

然后找到数据源进行连接无论是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。

就好比从北京到上海，可以做汽车，可以做火车，还可以做飞机，汽车走高速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。

在操作这三种连接方式的时候，会发现有重复的操作。

Data 控件连接中，ODBC数据源的连接和使用字符串的连接与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

数据环境设计器和ADO 对象，都用到了connection连接。

不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

总结不同：ADO对象连接需要编写代码，其他的不用编写代码。

下面详细介绍每一种连接方法的详细步骤：1，使用ADO connection对象首先，要建立ADO引用，定义connection这个类，然后实例化对象。

代码完成如下：[vb]view plaincopyprin t?2，使用ODBC数据源首先，打开电脑上的ODBC数据源，建立关系。

步骤如下：1），打开电脑上的ODBC数据源如下图所示：2）点击添加3）命名4）和数据库源建立关系5）用代码实现连接[vb]view plaincopyprin t?3，ADO Data 控件创建连接1）右击data控件，选择ADODC属性2）从三种连接资源中选择一种。

使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可使用ODBC数据源连接，单击新建选择用户数据库，之后的操作跟2中步骤一样。

(完整版)vb连接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 数据库文件的路径和文件名。

VBA中操作Access数据库的常用方法

VBA中操作Access数据库的常用方法VBA (Visual Basic for Applications) 是一种用于自动化各种应用程序的编程语言，它可以与Microsoft Office中的各种应用程序进行交互，包括Access数据库。

在本文中，我们将讨论在VBA中操作Access数据库时常用的方法，希望可以帮助您更好地利用这些方法来处理和管理数据库。

1. 连接到Access数据库连接到Access数据库是进行任何数据库操作的第一步。

我们可以使用ADO (ActiveX Data Objects) 对象来建立与数据库的连接。

下面是一个连接到Access数据库的例子：```vbaDim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"conn.Open```这段代码创建了一个ADODB.Connection对象，并设置其ConnectionString属性来指定数据库连接字符串，然后通过Open方法打开数据库连接。

2. 执行SQL查询执行SQL查询是从Access数据库中获取数据的常用方法。

可以使用ADODB.Recordset对象来执行查询并获取结果。

以下是一个例子：```vbaDim rs As New ADODB.RecordsetDim strSQL As StringstrSQL = "SELECT * FROM TableName"rs.Open strSQL, conn' 遍历结果Do Until rs.EOF' 处理每一行数据rs.MoveNextLooprs.Close```在这个例子中，我们创建了一个ADODB.Recordset对象，并使用Open方法执行了一个SELECT语句，并将返回的结果集存储在Recordset对象中。

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连接的方法VB与Access连接的方法(Ado连接)一、建立数据库因为在Visual Basic 6.0中有的数据库连接方式不支持Access 2000版本格式的数据库，为了便于说明问题，本文所提的数据库以Access 97版本数据库为例。

在Microsoft Access 97中建立一个数据库，如：ssgl.mdb，并设置密码，如：“1234”，再将数据库文件和VB中创建的工程文件放在同一目录下。

如果用户的计算机上只有Access 2000的话，可以先在Access 2000中建立ssgl.mdb数据库，并设置密码，再用Access 2000中的“数据库实用工具”将数据库转换成Access 97版本的格式。

当然也可以直接在Visual Basic 6.0集成开发环境中通过“可视化数据管理器”来创建数据库，再到Access 97中设置密码。

通过对数据库文件设置密码，一般情况下，非法用户就不能用常规的手段打开数据库了，对数据库中的信息起到了一定的安全和保密作用。

二、连接加密的Access数据库在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。

开发人员可以根据自身的条件和用户的需求进行选择。

限于篇幅，下面只介绍加密的Access数据库与没有加密的Access数据库在连接时的不同之处。

关于没有加密的数据库的连接及访问的方法读者可以参阅其它资料。

1、使用控件①Data控件Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。

通过Data控件连接加密的数据库的方法有两种：一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的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 中进行一个传递时，用它可提高性能。

VB中用ADODC控件连接ACCESS数据库

数据库一般使用adCmdTable.表选择要连接的表。

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

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

设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：Private Sub Command1_Click()Adodc1.Recordset.Update'保存Adodc1.Refresh'刷新End Sub添加按钮代码:Private Sub Command2_Click()Adodc1.Recordset.AddNew'添加新纪录Adodc1.Recordset("姓名").Value=Text1.TextEnd 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=Adodc1text1.DataField="姓名"End Sub添加记录按钮代码：Private Sub Command1_Click()Adodc1.Recordset.AddNew'添加新纪录End Sub提交代码：Private Sub Command2_Click()Adodc1.Recordset.Update'保存Adodc1.Refresh'刷新End Sub好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。

VB怎么能连接访问Access数据库

VB怎么能连接访问Access数据库有时候我们需要用到VB来连接Access数据库，但是却无从下手，那么VB怎么连接访问Access数据库呢?其实不难，先理清好步骤就行，不懂的朋友请看以下内容。

方法/步骤：1、Access，建立数据库，数据库命名为Database1.mdb。

(注意：这里的后缀是mdb，如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式!)2、数据库建立后就进入了数据表界面，可以输入数据了，输完以后Ctrl+S保存，输入表名，这里表名为test，OK，准备工作搞定。

2、打开VB，然后新建标准EXE。

3、菜单中找到工程→部件→勾选Microsoft ADO Data Control 6.0及其Microsoft Hierarchical Flexgrid Control 6.0，勾选后左侧工具栏里就多了两个控件即ADODC控件和MSHFlexGrid控件。

4、选择ADODC控件和MSHFlexGrid控件，放在窗体的合适位置5、设置ADODC控件的属性：右键窗体内ADODC1控件。

(1)ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则OK，确定。

(2)ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。

6、设置MSHFlexGrid控件的属性：VB右侧属性表里，找到datasource，选择adodc1。

7、测试效果：(1)菜单→运行→启动(F5)，发现显示的数据排列不是我们想要的行数和列数。

修改方法：(1)MSHFlexGrid属性→通用→设置行和列，固定行和固定列(2)MSHFlexGrid属性→带区→把列标题的√取消掉补充：MySQL 数据库常用命令create database name; 创建数据库use databasename; 进入数据库drop database name 直接删除数据库，不提醒show tables; 显示表describe tablename; 查看表的结构select 中加上distinct去除重复字段mysqladmin drop databasename 删除数据库前，有提示。

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。

VB对Microsoft Access数据库的运用代码

VB对Microsoft Access数据库的调用管理.用VB6.0计算机编程语言，和Microsoft Access的数据库建立连接。

以便对VB窗口控键，通过VB编程代码对Access数据库进行读取，存储，修改，编辑，管理和计算。

（基本功能如下图）编辑窗体界面及所需参数设计：VB窗体界面编辑及所需参数设计是下面相应控件属性及编程的基础和前提，.通过VB软件的工程下拉菜单的引用命令实现VB和Microsoft Access的数据库建立连接，以便进一步通过VB界面来对数据库的进一步操作。

具体对数据库的一般操作：首记录；上记录；下记录，末记录及搜索，修改，保存，新增记录等功能的详细VB代码如下：Public mydb As DatabasePublic myrs As RecordsetDim step1 As IntegerPrivate Sub Timer1_Timer()Call mymoveEnd SubPublic Sub mymove()Label17.Move Label17.Left + 50 * step1If Label17.Left + 1 * Label17.Width > Form1.Width Then step1 = -1ElseIf Label17.Left < 0 Thenstep1 = 1End IfEnd SubPrivate Sub Command10_Click()Form1.ShowForm2.HideForm3.HideEnd SubPrivate Sub Command11_Click()Form3.ShowForm2.HideForm1.HideEnd SubPrivate Sub Form_Load()Dim i As SingleSet mydb = OpenDatabase(App.Path + "\合同数据库.mdb")Set myrs = mydb.OpenRecordset("合同数据库", dbOpenDynaset)Command9.Enabled = False step1 = -1Timer1.Interval = 100Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = ""Text14.Text = ""End SubPrivate Sub Command1_Click() '首记录Dim nm As StringDim nm1 As StringDim nm2 As StringCommand9.Enabled = FalseCommand12.Enabled = TrueCommand13.Enabled = TrueCommand2.Enabled = FalseCommand4.Enabled = TrueCommand1.Enabled = FalseCommand3.Enabled = Truemyrs.MoveFirstCall shuchuEnd SubPrivate Sub Command2_Click() '上记录Dim nm As StringDim nm1 As StringDim nm2 As StringCommand9.Enabled = FalseCommand12.Enabled = TrueCommand13.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = Truemyrs.MovePreviousIf myrs.BOF Thenmyrs.MoveFirstCommand2.Enabled = FalseCommand1.Enabled = FalseElse' myrs.MovePreviousEnd IfCall shuchu' List1.AddItem myrs.Fields(1)End SubPrivate Sub Command3_Click() '下记录Dim nm As StringDim nm1 As StringDim nm2 As StringCommand9.Enabled = False Command12.Enabled = True Command13.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueIf myrs.EOF Thenmyrs.MoveLastCommand3.Enabled = FalseCommand4.Enabled = False End Ifmyrs.MoveNextIf myrs.EOF Thenmyrs.MoveLastCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfCall shuchuEnd SubPrivate Sub Command4_Click() '末记录Dim nm As StringDim nm1 As StringDim nm2 As StringCommand9.Enabled = FalseCommand12.Enabled = TrueCommand13.Enabled = Truemyrs.MoveLastCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = False'Command4.Enabled = FalseCall shuchuEnd SubPrivate Sub Command6_Click() '快速查询Dim findph As StringDim nm As StringDim nm1 As StringDim nm2 As StringCommand4.Enabled = Falsefindph = InputBox("请输入合同号=", "按合同号搜索")If findph <> "" Thenfindph = "合同号='" & findph & "'"'findph = "IP地址='" & findph & "'"myrs.FindFirst (findph)If myrs.NoMatch ThenMsgBox "没有相应合同号的资料记录", vbInformation, "信息"ElseCall shuchuEnd IfEnd IfEnd SubPrivate Sub Command13_Click() '新增记录Command9.Enabled = TrueText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = ""'List1.ClearCommand12.Enabled = Falsemyrs.AddNewText1.SetFocusMsgBox "现在你可以填写数据了，填写完毕后确定请按保存按钮", vbInformation, "系统提示"End SubPrivate Sub Command12_Click() '编辑myrs.EditText1.SetFocusMsgBox "现在你可以修改数据了，修改完后确定请按保存按钮", vbInformation, "系统提示"Command9.Enabled = TrueEnd SubPrivate Sub Command8_Click() '重新输入Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = ""Text14.Text = ""' List1.ClearEnd SubPrivate Sub Command9_Click() '保存myrs.Fields("合同号") = Text1.Textmyrs.Fields("ID号") = Text2.Textmyrs.Fields("产品类型") = Text3.Textmyrs.Fields("产品代号") = Text10.Textmyrs.Fields("定货数") = Text4.Textmyrs.Fields("单价") = Text5.Textmyrs.Fields("收到合同日期") = Text6.Textmyrs.Fields("交货日期") = Text7.Textmyrs.Fields("图纸投入生产日期") = Text9.Textmyrs.Fields("完成人员") = Text8.Textmyrs.Fields("备注") = Text11.Textmyrs.Fields("Order NO") = Text12.Textmyrs.Fields("产品净重") = Text13.Textmyrs.Fields("客户代码") = Text14.TextMsgBox "合同资料记录保存成功", vbInformation, "信息"myrs.UpdateCommand12.Enabled = True'Command4.Enabled = TrueCommand9.Enabled = FalseEnd SubPrivate Sub Command5_Click() myrs.Closemydb.CloseEndEnd SubPublic Sub shuchu() ' 输出子程序Dim xx As StringDim yy As StringDim kk As StringDim ph As SingleText1.Text = myrs.Fields(0)Text2.Text = myrs.Fields(1)Text3.Text = myrs.Fields(2)Text4.Text = myrs.Fields(4)Text5.Text = myrs.Fields(5)Text6.Text = myrs.Fields(6)Text7.Text = myrs.Fields(7)Text8.Text = myrs.Fields(9)Text9.Text = myrs.Fields(8)Text10.Text = myrs.Fields(3)Text11.Text = myrs.Fields(10)Text12.Text = myrs.Fields(11)Text13.Text = myrs.Fields(12)Text14.Text = myrs.Fields(13) End Sub。