VB创建ACCESS数据库全解 动态创建数据库、创建表,创建记录 ADO、ADOX
使用VB开发Access应用程序(2)
通过Connection对象的 对象的Open方法建立数据连接； 方法建立数据连接； 通过 对象的 方法建立数据连接 cn.Open "provider=MSDASQL;dsn=jet_bookdb"(ODBC)
使用VB开发 使用 开发Access应用程序 开发 应用程序
Close方法 方法
6
使用Connection和Recordset的Close方法 和 使用 的 方法
通过使用Connection和Recordset的Close方法，可以释放记录集，关闭和 和 方法， 通过使用 的 方法 可以释放记录集， 数据源的连接。 数据源的连接。 Set Connection=nothing Connection.Close 和 Set Recordset=nothing Recordset.Close
查找客户：
FirstName：Daryl Lastname：Halpin Finder.vbx
使用VB开发 使用 开发Access应用程序 开发 应用程序
BOF Record #1 Record #2 Record #3 EOF
使用VB开发 使用 开发Access应用程序 开发 应用程序
Recordset对象的定位方法 10 对象的定位方法
(2) 使用 使用BOF和EOF遍历记录集 和 遍历记录集
通常用于遍历记录集的代码便是把定位方法和BOF、EOF结合起来， 、 结合起来， 通常用于遍历记录集的代码便是把定位方法和 结合起来 通常代码是一个循环，如下： 通常代码是一个循环，如下：
(完整版)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应用程序的编程语言。
在许多办公环境中，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`方法执行查询语句。
用VB的代码创建Access数据库
怎样用VB 的代码创建Access 数据库"引用"--> Microsoft ADO Ext.2.7 for DDL ado SecurityPrivate Sub Form_Load()Dim cat As ADOX.CatalogSet cat = New ADOX.Catalog'在当前目录下建立名为 newdata 的Access 数据库Comma nd1_Click() As New ADODB.Co nn ectioncat.Create ( "+ App.P ath &"\n ewdata.mdb " MsgBox End Sub"P rovider=Microsoft.Jet.OLEDB40;Data Source= "数据库已经创建成功! + ";") II "& App.Path cn.Open cn .Execute cn .Co nn ectio nStri ng= "P rovider=Microsoft.Jet.OLEDB40;Data &"n ewdata.mdb ;P ersist Security In fo=False " "CREATE cn .CloseEnd Sub '删表:Source= TABLE ［aaa ］(［学生姓名］Text(20),［年龄］Integer,［成绩］Double)" Private Sub Comma nd2_Click() Dim cn As New ADODB.Co nn ection "& App.Path cn.Opencn .Execute cn .Co nn ectio nStr in g= "P rovider=Microsoft.Jet.OLEDB40;Data & "n ewdata.mdb ;P ersist Security In fo=False "Source== cn .Close End Sub"DROP TABLE ［aaa ］" ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Dim i As In teger Dim j As In tegerPrivate Sub Form_Load() Op tion Exp licit 菜单 工程"--> "引用"--> "Microsoft ActiveX Data Objects 2.7 Library "'Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.CatalogSet cat = New ADOX.Catalog cat.Create ( "P rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\newdata.mdb " + ";")用 ADOX:'菜单 工程”--> '建数据库：'建表：Private Sub Dim cnMsgBox "数据库已经创建成功！“ Dim tbl As ADOX.Tabletbl. Pare ntCatalog = "MyTable "'增加一个自动增长的字段Dim col As ADOX.Colu mncol2 .Paren tCatalog = "Descri ption "col2. Pro perties( "Jet OLEDB:Allow Zero Len gth ").Value = tbl.Colum ns.A ppend col2, ADOX.DataTy peE num.adVarChar, 25'增加一个货币型字段Dim col4 As ADOX.Colum ncol4 .P are ntCatalogcol4.T ype = ADOX.DataTypeEn um.adCurre ncy = "xx " tbl.Colum ns.Append col4, ADOX.DataT ypeEn um.adCurre ncy'增加一个OLE 字段Dim col5 As ADOX.Colum ncol5 .Paren tCatalogcol5.T ype = ADOX.DataTypeEnum.adL on gVarBi nary = "OLD FLD " tbl.Colum ns.Append col5, ADOX.DataT ypeEnum.adL on gVarBi nary '增加一个数值型字段Dim col3 As ADOX.Colum nSet col3 New ADOX.Colu mn col3 .Paren tCatalog catSet tbiNew ADOX.Tablecat Set colNew ADOX.Colu mn col. Pare ntCatalogcol.Type =ADOX.DataT ypeEn um.adI nteger = "id "cat //必须先设置字段类型 col. Prop erties( "Jet OLEDB:Allow ZeroLen gth ").Value = col. Prop erties( "Auto In creme nt ").Value= True tbl.Colum ns.Append col, ADOX.DataT ypeEn um.ad In teger,0 False '增加一个文本字段Dim col2 As ADOX.Colum nSet col2New ADOX.Colu mncat FalseSet col4New ADOX.Colu mncat Set col5New ADOX.Colu mn catADOX.DataTy peEn um.adDouble "ll "Next'设置主键tbl.Keys.A ppend"Pr imaryKey ", ADOX.KeyTy peEn um.adKe yP rimary, "id ",cat.Tables.A ppend tblMsgBox "数据库表：“+ + "已经创建成功！ “ Set tbl = Noth ingNothi ng End Sub /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////本例中我们使用ADOX 来创建Access 数据库。
VBA创建Access数据库的4种方法
VBA创建Access数据库的4种方法Excel由于本身的局限性，存储数据量过大的时候，往往会导致工作簿假死无反应，电脑卡顿等情况。
那么，将数据存取到Access数据库中就是一种好的解决方法。
今天，我们谈谈怎么使用Excel VBA来创建数据库，数据表的几种方法。
本次所有方法创建的数据表如下图：方法一：使用Access.Application（Access对象库）创建数据库。
在编写代码之前，我们需要先引用Access对象库。
操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft Access 16.0 Object Library】。
单击确定即引用了Access对象库。
注意：不同Office版本的Access对象库名称略有不同。
如下表：Microsoft Access 9.0 Object Library Microsoft 2000Microsoft Access 10.0 Object LibraryMicrosoft 2002Microsoft Access 11.0 Object LibraryMicrosoft 2003Microsoft Access 12.0 Object LibraryMicrosoft 2007Microsoft Access 14.0 Object LibraryMicrosoft 2010Microsoft Access 15.0 Object LibraryMicrosoft 2013Microsoft Access 16.0 Object LibraryMicrosoft 2016这样，我们就搭建好了编程环境，然后输入下图代码即可。
方法二：使用DAO对象（Data Access Object）创建数据库(已被ADOX取代)。
DAO(Data Access Object) 数据访问对象是一个面向对象的数据库接口，它显露了 Microsoft Jet 数据库引擎（由 Microsoft Access 所使用），并允许 Visual Basic 开发者通过 ODBC 像直接连接到其他数据库一样，直接连接到Access 表。
VB创建ACCESS数据库大全
1: 问题的提出在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data Access Object)、远程数据库对象(RDO，Remote Data Object)和ActiveX数据对象(ADO，ActiveX Data Object )。
数据库访问技术一直在不断进步，而这三种接口的每一种都分别代表了该技术的不同发展阶段。
最新的是ADO，它是比RDO和DAO更加简单，然而更加灵活的对象模型。
正因如此，越来越多的人在用VB开发数据库软件时使用ADO作为数据访问接口。
在开发过程中，我们通常的使用的方法是：先使用数据库管理系统(例如：Microsoft Access)或VB中的可视化数据管理器建立好数据库和数据表结构，然后在程序中通过使用ADODC数据库控件或引用ADO对象与数据库中的表建立连接，再通过数据库感知控件(例如：文本框、DataGrid等)来进行数据库的各种操作。
在这种开发过程中，我们有时需要面对这样一个问题：如何让用户在程序运行过程中动态地建立自己所需的数据库和数据表以提高程序的灵活性呢？在程序运行过程中建立自己所需的数据库和数据表，其本质就是用代码(或者说通过编程)来建立数据库和数据表。
众所周知，在Foxpro或ASP编程中，这是很容易的一件事件。
那么在VB数据库编程中又是怎样来操作的呢？在VB数据库编程中，如果使用DAO作为数据库访问接口技术，则可以用CreateDatabase结合CreateTableDef 方法来实现，目前已有不少书和杂志都讲到了这种方法，本文就不再讲述了；但你如果使用的是最新的数据库访问接口技术ADO，你却发现目前的书和杂志上没有文章讲到如何用代码来建立数据库和数据表的方法，可有时我们非常需要用到这种方法，下面我们就来解决这个问题。
2: ADO与ADOX我们先来对ADO 和ADOX进行简单的认识。
在VB6中，使用ADO开发数据库应用程序时，我们要引用对象库"Microsoft ActiveX Data Objects 2.5 Library"，这个东西的简称就是ADO，它是VB6数据库最核心的对象群，也是VB数据库开发人员经常所引用的对象库，在VB6中你可以看到它的各种版本，从2.0版到2.6版都有，很多人对它已经很熟悉，在此我们不再详细介绍。
vb建立数据库的步骤
vb建立数据库的步骤以VB建立数据库的步骤在使用VB进行编程的过程中，经常需要与数据库进行交互，存储和检索数据。
在VB中，可以使用ADO（ActiveX Data Objects）来连接和操作数据库。
下面将详细介绍使用VB建立数据库的步骤。
第一步：引用ADO库在VB项目中，首先需要引用ADO库。
打开VB项目，点击“项目”菜单，选择“引用”，在弹出的对话框中选择“Microsoft ActiveX Data Objects Library”，点击“确定”按钮即可引用该库。
第二步：创建数据库连接在VB中，可以使用Connection对象来创建数据库连接。
首先需要声明一个Connection对象，然后使用Connection对象的Open方法打开数据库连接。
在Open方法中，需要指定数据库的连接字符串，包括数据库的类型、地址、用户名和密码等信息。
例如，可以使用以下代码创建一个与Access数据库的连接：```Dim conn As New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\path\to\database.mdb;User Id=admin;Password=;"conn.Open```在上述代码中，ConnectionString属性指定了连接字符串，其中Provider指定了数据库的类型为Access，Data Source指定了数据库文件的路径，User Id和Password指定了数据库的用户名和密码。
第三步：创建数据库表在建立数据库连接后，可以使用Execute方法执行SQL语句来创建数据库表。
在VB中，可以使用Create Table语句来创建表。
以下是一个创建名为"users"的表的示例代码：```conn.Execute "CREATE TABLE users (id INT, name VARCHAR(50), age INT)"```在上述代码中，通过Execute方法执行了一个SQL语句，该语句创建了一个名为"users"的表，包含了id、name和age三个字段。
在VB程序中实现新建一个新的access数据库
在VB程序中实现新建一个新的access数据库Option Explicit'====================================== ========================================= ===='引用：Microsoft DAO 3.51 Object Library'====================================== ========================================= ====Private dbDataBase As DAO.Database '本模块内的数据库对象Private tdTable As DAO.TableDef '本模块内的表对象Private fldField As DAO.Field '本模块内的字段对象'新建一个数据库，cDataBase(数据库的路径,数据库的密码（可选，默认空）)Public Function cDataBase(ByVal PathFile As String, Optional ByVal Password As String = " ") As Boolean On Error Resume NextSet dbDataBase = CreateDatabase(PathFile, dbLangGe neral, dbEncrypt)dbDataBase.NewPassword " ", PasswordSet dbDataBase = NothingcDataBase = (Err.Number = 0)End Function'新建一个表，必须有一个字段，cTable(数据库的路径,新建的表名,第一个字段名,字段的类型,字段的大小,这个数据库的密码（可选，默认空）)Public Function cTable(ByVal MdbFile As String, ByVa l TableName As String, ByVal DefaultFieldName As String, ByVal FieldType As DAO.DataTypeEnum, ByVal FieldSiz e As Long, Optional ByVal Password As String = " ") As BooleanOn Error Resume NextSet dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd= " & Password & "; ")Set tdTable = dbDataBase.CreateT ableDef(TableName) Set fldField = tdTable.CreateField(DefaultFieldName, Fi eldType, FieldSize)tdTable.Fields.Append fldFielddbDataBase.TableDefs.Append tdTableSet fldField = NothingSet tdTable = NothingSet dbDataBase = NothingcTable = (Err.Number = 0)End Function'重命名一个表，ReNameTable(数据库的路径,旧的表名,新的表名,这个数据库的密码（可选，默认空）)Public Function ReNameTable(ByVal MdbFile As Strin g, ByVal OldTable As String, ByVal NewTable As String, Optional ByVal Password As String = " ") As Boolean On Error Resume NextSet dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd= " & Password & "; ")Dim i As LongFor i = 0 To dbDataBase.TableDefs.Count - 1Set tdTable = dbDataBase(i)If = OldTable Then Exit ForSet tdTable = NothingNext = NewTableReNameTable = (Err.Number = 0)End Function'新建一个字段，cField(数据库的路径,表名,字段名,字段的类型,字段的大小,这个数据库的密码（可选，默认空）)Public Function cField(ByVal MdbFile As String, ByVal TableName As String, ByVal FieldName As String, ByVa l FieldType As DAO.DataTypeEnum, ByVal FieldSize As L ong, Optional ByVal Password As String = " ") As BooleanOn Error Resume NextSet dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd= " & Password & "; ")Dim i As LongFor i = 0 To dbDataBase.TableDefs.Count - 1Set tdTable = dbDataBase(i)If = TableName Then Exit ForSet tdTable = NothingNextSet fldField = tdTable.CreateField(FieldName, FieldType , FieldSize)tdTable.Fields.Append fldFieldSet fldField = NothingSet tdTable = NothingSet dbDataBase = NothingcField = (Err.Number = 0)End Function'删除一个表，dTable(数据库的路径,删除的表名,这个数据库的密码（可选，默认空）)Public Function dTable(ByVal MdbFile As String, ByV al TableName As String, Optional ByVal Password As S tring = " ") As BooleanOn Error Resume NextSet dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd= " & Password & "; ")dbDataBase.TableDefs.Delete (TableName)Set dbDataBase = NothingdTable = (Err.Number = 0)End Function'删除一个字段，dField(数据库的路径,表名,字段名,这个数据库的密码（可选，默认空）)Public Function dField(ByVal MdbFile As String, ByVa l TableName As String, ByVal FieldName As String, Opt ional ByVal Password As String = " ") As Boolean On Error Resume NextSet dbDataBase = DAO.OpenDatabase(MdbFile, True, False, ";pwd= " & Password & "; ")Dim i As LongFor i = 0 To dbDataBase.TableDefs.Count - 1Set tdTable = dbDataBase(i)If = TableName Then Exit ForSet tdTable = NothingNexttdTable.Fields.Delete (FieldName)Set tdTable = NothingSet dbDataBase = NothingdField = (Err.Number = 0)End Function。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1: 问题的提出在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data Access Object)、远程数据库对象(RDO，Remote Data Object)和ActiveX 数据对象(ADO，ActiveX Data Object )。
数据库访问技术一直在不断进步，而这三种接口的每一种都分别代表了该技术的不同发展阶段。
最新的是ADO，它是比RDO和DAO更加简单，然而更加灵活的对象模型。
正因如此，越来越多的人在用VB开发数据库软件时使用ADO作为数据访问接口。
在开发过程中，我们通常的使用的方法是：先使用数据库管理系统(例如：Microsoft Access)或VB中的可视化数据管理器建立好数据库和数据表结构，然后在程序中通过使用ADODC数据库控件或引用ADO对象与数据库中的表建立连接，再通过数据库感知控件(例如：文本框、DataGrid等)来进行数据库的各种操作。
在这种开发过程中，我们有时需要面对这样一个问题：如何让用户在程序运行过程中动态地建立自己所需的数据库和数据表以提高程序的灵活性呢？在程序运行过程中建立自己所需的数据库和数据表，其本质就是用代码(或者说通过编程)来建立数据库和数据表。
众所周知，在Foxpro或ASP编程中，这是很容易的一件事件。
那么在VB数据库编程中又是怎样来操作的呢？在VB数据库编程中，如果使用DAO作为数据库访问接口技术，则可以用CreateDatabase结合CreateTableDef方法来实现，目前已有不少书和杂志都讲到了这种方法，本文就不再讲述了；但你如果使用的是最新的数据库访问接口技术ADO，你却发现目前的书和杂志上没有文章讲到如何用代码来建立数据库和数据表的方法，可有时我们非常需要用到这种方法，下面我们就来解决这个问题。
2: ADO与ADOX我们先来对ADO 和ADOX进行简单的认识。
在VB6中，使用ADO开发数据库应用程序时，我们要引用对象库"Microsoft ActiveX Data Objects 2.5 Library"，这个东西的简称就是ADO，它是VB6数据库最核心的对象群，也是VB数据库开发人员经常所引用的对象库，在VB6中你可以看到它的各种版本，从2.0版到2.6版都有，很多人对它已经很熟悉，在此我们不再详细介绍。
如果要在程序运行过程中创建数据库和表，我们还要引用对象库"Microsoft ADO Ext 2.1. For DDL Security"，简称为ADOX，其库文件名为是：Msadox.dll。
ADOX 是对 ADO 对象和编程模型的扩展，它将 ADO 扩展为包括创建、修改和删除模式对象，如表格和过程。
它还包括安全对象，用于维护用户和组，以及授予和撤消对象的权限。
ADOX的对象如下表所示：ADOX常用方法有：Append（包括Columns、Groups、Indexes、Keys、Procedures、Tables、Users、Views）、Create(创建新的目录)、Delete(删除集合中的对象)、Refresh(更新集合中的对象)等等。
有关 ADOX 的详细信息，请在 /data/ado 中参阅 Microsoft 发布的有关 ADOX 说明的 Web 页。
3: 在原有数据表的基础上产生新的数据表如果仅仅是在已有的数据表的基础上产生新的数据表，我们只要引用对象库"Microsoft ActiveX Data Objects 2.5 Library"再利用Select…Into语句就可以了。
例如：有一个名为Wage.mdb的数据库，数据库中有一个名为"工资表"数据表，该数据表的字段有：编号、姓名、基本工资、津贴、应发工资、扣款、实发工资等，这个表中已经有很多的记录。
现在我们把其中的实发工资大于2000的记录筛选出来组成一个新表，新表的名称由用户从文本框中输入，新表中我们只要三个字段，它们是：编号、姓名、实发工资。
我们用下列程序就可以实现：(事先在窗体中添加一个文本框Text1和一个命令按钮Command1)Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim command As New mandPrivate Sub Command1_Click()Dim bm As StringDim sql As StringIf Text1.Text <>"" Thenbm = Trim(Text1.Text)sql= "Select 编号,姓名,实发工资 Into " + bm + " From 工资表 Where 实发工资>2000"Set command.ActiveConnection = connmandText = sqlcommand.ExecuteElseMsgBox "你必须输入一个名字"End IfPrivate Sub Form_Load()Dim str As Stringstr = App.PathIf Right(str, 1) <>"\" Thenstr = str + "\"End Ifpstr = "Provider=Microsoft.Jet.OLEDB.3.51;"pstr = pstr & "Persist Security Info=False;"pstr = pstr & "Data Source=" & str & "wage.mdb"conn.Open pstrrs.CursorLocation = adUseClientrs.Open "工资表", conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = rsEnd Sub当然，我们还可以把程序设计得更好，比如：让用户先在窗口中任意选择所需的字段和一些条件，然后再组合生成一个新表。
但无论如何，这种操作只能在从原表的基础上产生一个新表，不能产生一个数据库文件，并且新表和原表放在同一个数据库中。
4: 建立新的数据库和表前面讲到的方法有一定的局限性，它不能让用户产生自己所需的数据库文件，即使能产生数据表也只能在原有表的基础上生成。
我们现在的目的就是让用户利用ADO对象在程序运行过程中创建数据库和表，就好象他利用Access来建立数据库和表一样。
为此，我们应该引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"我们不妨用一个实例来说明具体的操作过程和方法。
我们的实例要达到目的是：在程序运行过程中建立一个数据库，数据库的名称由用户输入。
然后在数据库中建立一个名为"MyTable"的数据表，数据表中有三个字段，它们分别是："编号"(整数型)、 "姓名"(字符型，宽度为8)、"住址" (字符型，宽度为50)，接着在数据表中添加一条记录，最后在DataGrid控件中把记录的内容显示出来，并且让用户在DataGrid控件中任意修改、添加记录。
首先在VB中新建一个窗体，然后在"工程"菜单中引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"。
接着定义三个窗体级的对象变量和一个窗体级的字符串变量，它们的具体定义是：Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim pstr As String '定义该变量是为了后面的书写方便为了更灵活地创建数据库，我们可以在窗体中加入一个通用对话框、一个DataGrid控件，三个命令按钮，它们的标题分别是：创建数据库和表、查看、更新。
通用对话框的作用是给用户输入数据库文件名和决定数据库的存放位置。
"创建数据库和表"命令按钮对应的代码是：Private Sub Command1_Click()Dim fm As String 'fm变量用来获取用户输入的文件名CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|" CommonDialog1.FilterIndex = 1CommonDialog1.InitDir = "D:\Jthpaper"CommonDialog1.Flags = 6CommonDialog1.Action = 2If CommonDialog1.FileName = "" ThenMsgBox "你必须输入一个文件名，请重新保存一次！"Exit SubElsefm = CommonDialog1.FileNameEnd Ifpstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51 pstr = pstr & "Data Source=" & fmcat.Create pstr '创建数据库Dim tbl As New Tablecat.ActiveConnection = pstr = "MyTable" '表的名称tbl.Columns.Append "编号", adInteger '表的第一个字段tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段cat.Tables.Append tbl '建立数据表conn.Open pstrrs.CursorLocation = adUseClientrs.Open "MyTable", conn, adOpenKeyset, adLockPessimisticrs.AddNew '往表中添加新记录rs.Fields(0).Value = 9801rs.Fields(1).Value = "孙悟空"rs.Fields(2).Value = "广州市花果山"rs.UpdateEnd Sub上面程序中有一个需要说明的地方，这就是语句：pstr ="Provider=Microsoft.Jet.OLEDB.4.0;"，这个语句表示Microsoft Jet OLEDB驱动程序的版本是4.0，这是目前最新的版本，利用它你可以用VB中的ADO对象访问Access2000及其以下版本所建立的数据库。