用VB的代码创建Access数据库

ACCESS 数据库和VB 的连接Edited by Ryan 20221 、建立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的综合案例，该案例涉及使用VBA操作Access数据库。

我们将通过一个具体的示例来展示如何利用VBA编写代码，以实现对Access数据库的读取、写入和更新等操作。

这个案例将帮助读者了解和学习如何使用VBA来操作Access数据库，并在实际应用中发挥作用。

首先，我们需要明确本案例的目标。

我们将创建一个学生信息管理系统，该系统可以用于记录学生的个人信息及其成绩。

我们将使用Access数据库来存储学生信息，然后通过VBA编写代码来实现对数据库的操作。

在开始编写代码之前，我们需要先创建一个Access数据库，并在其中创建一个名为"Student"的表格，该表格包含以下字段：学生ID、学生姓名、性别、年龄、班级、数学成绩、英语成绩、总分。

接下来，我们将通过VBA来实现对这个表格的各种操作。

我们首先需要在VBA中引用Microsoft Access Object库，这样才能使用Access的相关功能。

在VBA编辑器中选择"工具"->"引用"，然后勾选上"Microsoft Access 16.0 Object Library"。

这样我们就可以使用Access的对象、方法和属性了。

接下来，我们可以开始编写代码。

我们将以以下功能为例进行说明：1. 添加新学生信息：我们可以通过以下代码向数据库中添加新的学生信息。

```vbaSub AddNewStudent()Dim db As DAO.DatabaseDim rs As DAO.Recordset'read student informationDim studentID As LongDim studentName As StringDim gender As StringDim age As IntegerDim className As String'connect to the databaseSet db = CurrentDb()Set rs = db.OpenRecordset("Student", dbOpenDynaset) 'input student informationstudentID = InputBox("Enter Student ID:")studentName = InputBox("Enter Student Name:")gender = InputBox("Enter Gender:")age = InputBox("Enter Age:")className = InputBox("Enter Class Name:")'add new record to the tableWith rs.AddNew!StudentID = studentID!StudentName = studentName!Gender = gender!Age = age!ClassName = className.UpdateEnd With'close the recordset and the databasers.Closedb.CloseSet rs = NothingSet db = NothingMsgBox "New student added successfully!"End Sub```上述代码首先连接到数据库，然后通过InputBox函数获取用户输入的学生信息，在表格中添加新的记录，最后关闭数据库。

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的代码创建Access数据库怎样用VB的代码创建Access数据库用ADOX:'菜单“工程”--> "引用"--> Microsoft ADO Ext.2.7 for DDL ado Security' 建数据库:Private Sub Form_Load()Dim cat As ADOX.CatalogSet 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.Connectioncn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "newdata.mdb;Persist Security Info=False "cn.Opencn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) "cn.CloseEnd Sub'删表:Private Sub Command2_Click()Dim cn As New ADODB.Connectioncn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source== " & App.Path & "newdata.mdb;Persist Security Info=False "cn.Opencn.Execute "DROP TABLE [aaa] "cn.CloseEnd Sub/////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// ////////////////// Option ExplicitDim i As IntegerDim j As IntegerPrivate Sub Form_Load()'菜单“工程”--> "引用"--> "Microsoft ActiveX Data Objects 2.7 Library "'Microsoft ADO Ext.2.7 for DDL ado SecurityDim cat As ADOX.CatalogSet cat = New ADOX.Catalogcat.Create ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\newdata.mdb " + "; ")MsgBox "数据库已经创建成功！"Dim tbl As ADOX.T ableSet tbl = New ADOX.Tabletbl.ParentCatalog = cat/doc/66407893.html, = "MyTable "'增加一个自动增长的字段Dim col As ADOX.ColumnSet col = New ADOX.Columncol.ParentCatalog = catcol.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型/doc/66407893.html, = "id "col.Properties( "Jet OLEDB:Allow Zero Length ").Value = False col.Properties( "AutoIncrement ").Value = Truetbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0 '增加一个文本字段Dim col2 As ADOX.ColumnSet col2 = New ADOX.Columncol2.ParentCatalog = cat/doc/66407893.html, = "Description "col2.Properties( "Jet OLEDB:Allow Zero Length ").Value = False tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个货币型字段Dim col4 As ADOX.ColumnSet col4 = New ADOX.Columncol4.ParentCatalog = catcol4.Type = ADOX.DataTypeEnum.adCurrency/doc/66407893.html, = "xx "tbl.Columns.Append col4, ADOX.DataTypeEnum.adCurrency '增加一个OLE字段Dim col5 As ADOX.ColumnSet col5 = New ADOX.Columncol5.ParentCatalog = catcol5.Type = ADOX.DataTypeEnum.adLongVarBinary/doc/66407893.html, = "OLD_FLD "tbl.Columns.Append col5, ADOX.DataTypeEnum.adLongVarBinary'增加一个数值型字段Dim col3 As ADOX.ColumnSet col3 = New ADOX.Columncol3.ParentCatalog = catcol3.Type = ADOX.DataTypeEnum.adDouble/doc/66407893.html, = "ll "tbl.Columns.Append col3, ADOX.DataTypeEnum.adDoubleDim p As ADOX.PropertyFor Each p In col3.PropertiesDebug.Print /doc/66407893.html, & ": " & p.Value & ": " & p.Type & ": " & p.AttributesNext'设置主键tbl.Keys.Append "PrimaryKey ", ADOX.KeyTypeEnum.adKeyPrimary, "id ", " ", " "cat.Tables.Append tblMsgBox "数据库表：" + /doc/66407893.html, + "已经创建成功！"Set tbl = NothingSet cat = NothingEnd Sub/////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// ////////////////// 本例中我们使用ADOX来创建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种方法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数据库代码常用VB操作ACCESS数据库代码'VB引用项目如下:'Microsoft ADO Ext. 2.8 for DDL and Security'Microsoft ActiveX Data Objects 2.8 Library'COM+ Services Type Library'Microsoft DAO 3.6 Object LibrarySub CreateDatabase(mdbPath, mdbPassword)Dim cat As New ADOX.CatalogIf mdbPassword = "" Thencat.Create"Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source" & mdbPath & ";"Elsecat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & mdbPassword & ";Data Source=" & mdbPath & ";"'cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";"End IfMsgBox "数据库" & mdbPath & "建立成功", vbOKOnly'Set wspDefault = DBEngine.Workspaces(0)'Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _'dbLangGeneral & ";pwd=NewPassword", dbEncrypt)End SubSub CreateTable(mdbPath, mdbTableName, mdbSqlColumns, mdbPrimaryKey)'建立列的sql语句'mdbPath="c:\test.mdb"'mdbTableName="User"'mdbSqlColumns="ID,adInteger;UserName,adVarWChar,20; Password,adVarWChar,20"'mdbPrimaryKey="ID"Dim tbl As New TableDim cat As New ADOX.CatalogDim con As ADODB.Connectioncat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & mdbPath & ";"Dim ArrayColumn As String = mdbTableName'添加数据表字段(字段格式:字段名字段类别，字段长度；最末字段没有分号)ArrayTotalColumn = Split(mdbSqlColumns, ";", -1, 1)For i = 0 To UBound(ArrayTotalColumn)ArraySingleColumn = Split(ArrayTotalColumn(i), ",", -1, 1)If UBound(ArraySingleColumn) = 1 Then'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1)tbl.Columns.Append ArraySingleColumn(0), adIntegerElse'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1), ArraySingleColumn(2)tbl.Columns.Append ArraySingleColumn(0), adVarWChar, CInt(ArraySingleColumn(2))End IfNext'设置数据表主键'tbl.Columns(mdbPrimaryKey).Properties("AutoIncrement") = Truecat.Tables.Append tbl'设置列的必填属性为“否”'tbl.Columns("Weight").Attributes = adColNullable'设置列的允许空字符串为“是”'tbl.Columns("FirstName").Properties("Jet OLEDB:Allow Zero Length") = TrueSet tbl = NothingSet cat = NothingMsgBox "数据表" & mdbPath & "-" & mdbTableName & "建立成功", vbOKOnlyEnd Sub'这个准备编写成一个类。

在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: 问题的提出在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连接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对象来进行具体数据的操作，如果在建立了数据库之后没有对数据源进行配置或者对数据源的配置工作出现错误，则在此之前所做的一切工作都是白费的。