VB创建access数据表字段代码
VB连接ACCESS例子及全部代码
VB连接ACCESS例子及全部代码VB连接ACCESS例子及全部代码2007-03-19 13:40:32| 分类：sql相关|字号订阅1.首先创建一个新工程，取名为OpenSql,即Open Sql的缩写，意思是在Open方法中采用Sql查询。
2.打开“引用”对话框，选取Microsoft ActiveX Data Object 2.1 Library3.打开“部件”对话框，选取Microsoft Windows Common Control 6.0，工具箱中便添加了若干控件，其中一个名为ListView的控件.4.将控件ListView控件加载到窗体中，取名为ListView1.窗体中中有这样一个控件，别无其他，所以是一个特别简单的界面。
5.在代码窗口中的全部代码如下。
Dim WithEvents myConnection As ADODB.ConnectionDim myRecordset As New ADODB.RecordsetPrivate Sub Form_Load()Dim myPath As StringDim srtConec As StringSet myConec = New ADODB.ConnectionmyPath = App.Path & "\TD.mdb;"strconec = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPathmyConec.Open strconec'If strconec <= 0 Then' MsgBox "Connection Failed！"'Else' MsgBox "Congratulations,Established！"'End IfDim strSql As StringListView1.Top = 0ListView1.Left = 0myRecordset.CursorType = adOpenKeysetmyRecordset.LockType = adLockReadOnlystrSql = "select * from TBillInfo"myRecordset.Open strSql, myConec, , , adCmdTextShowListViewmyRecordset.ClosemyConec.CloseEnd SubPublic Sub ShowListView()Dim clmHead As ColumnHeaderDim ListItm As ListItemDim i As IntegerListView1.ColumnHeaders.ClearListView1.ListItems.ClearListView1.FullRowSelect = TrueListView1.View = lvwReportFor i = 0 To myRecordset.Fields.Count - 1Set clmHead = ListView1.ColumnHeaders.Add()clmHead.Text = myRecordset.Fields(i).Name NextmyRecordset.MoveFirstDo While Not myRecordset.EOFSet ListItm = ListView1.ListItems.Add()If IsNull(myRecordset.Fields(0).Value) ThenListItm.Text = "NULL"ElseListItm.Text = myRecordset.Fields(0).Value End IfFor i = 1 To myRecordset.Fields.Count - 1If IsNull(myRecordset.Fields(i).Value) ThenListItm.SubItems(i) = "NULL"ElseListItm.SubItems(i) = myRecordset.Fields(i).Value End IfNextmyRecordset.MoveNextLoopListView1.View = lvwReportEnd SubPrivate Sub Form_Resize()ListView1.Width = Width - 200ListView1.Height = Height - 400End SubPrivate Sub Form_Terminate()Set myRecordset = NothingSet myConnection = NothingEnd SubPrivate Sub ListView1_BeforeLabelEdit(Cancel As Integer) End Sub－－－－－－－－－－－－－－－－－－－－－－－－－－－。
用VB的代码创建Access数据库
怎样用VB的代码创建Access数据库用ADOX:'菜单“工程”--> "引用"--> Microsoft ADO for DDL ado Security' 建数据库:Private Sub Form_Load()Dim cat AsSet cat = New'在当前目录下建立名为newdata的Access数据库( "Provider= Source= " + & "\ " + "; ")MsgBox "数据库已经创建成功！"End Sub' 建表:Private Sub Command1_Click()Dim cn As New= "Provider= Source= " & & ";Persist Security Info=False ""CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) "End Sub'删表:Private Sub Command2_Click()Dim cn As New= "Provider= Source== " & & ";Persist Security Info=False ""DROP TABLE [aaa] "End Subalue = False( "AutoIncrement ").Value = Truecol, 0'增加一个文本字段Dim col2 AsSet col2 = New= cat= "Description "( "Jet OLEDB:Allow Zero Length ").Value = Falsecol2, 25'增加一个货币型字段Dim col4 AsSet col4 = New= cat== "xx "col4,'增加一个OLE字段Dim col5 AsSet col5 = New= cat== "OLD_FLD "col5,'增加一个数值型字段Dim col3 AsSet col3 = New= cat== "ll "col3,Dim p AsFor Each p In& ": " & & ": " & & ": " &Next'设置主键"PrimaryKey ", "id ", " ", " "tblMsgBox "数据库表：" + + "已经创建成功！"Set tbl = NothingSet cat = NothingEnd Subfor DDL and Security.”。
(完整版)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的代码创建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数据库代码
常用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数据库
在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。
VBA在Access中实现表单设计与数据录入详解
VBA在Access中实现表单设计与数据录入详解Microsoft Access是一款功能强大的关系数据库管理系统，它可以帮助用户高效地创建、管理和分析数据库。
VBA（Visual Basic for Applications）是一种基于Visual Basic语言的编程工具，它可以与Access无缝集成，为用户提供更高级的数据处理和应用开发功能。
本文将详细介绍如何使用VBA在Access中实现表单设计与数据录入。
一、表单设计1. 创建表单在Access中，可以通过表单来直观地呈现数据库中的数据，方便用户进行数据录入和查看。
VBA提供了创建表单的功能，通过编写VBA代码，可以实现自定义的表单设计。
2. 设计表单控件在设计表单时，可以使用各种控件来展示和编辑数据。
例如，文本框、组合框、下拉列表框、按钮等。
通过VBA，可以为这些控件添加事件处理程序，实现更丰富的交互功能。
3. 设置表单属性除了控件的设计，还可以通过VBA设置表单的各种属性，以实现更好的用户体验。
例如，可以设置表单的标题、背景颜色、字体等。
二、数据录入1. 绑定表单数据源在Access中，数据是存储在表中的，通过将表与表单绑定，可以方便地在表单中显示和编辑数据。
通过VBA，可以编写代码来实现数据的绑定操作。
2. 数据录入与编辑有了绑定的数据源，用户可以直接在表单中录入和编辑数据。
通过VBA，可以为表单的控件添加事件处理程序，实现数据验证、格式化和计算等操作。
3. 数据导航与查询在数据录入过程中，用户可能需要进行数据导航和查询功能。
通过VBA，可以编写代码来实现数据的导航操作，例如下一条、上一条、首条、尾条等。
同时，还可以实现数据的快速查询功能，以提高用户的工作效率。
三、示例代码下面是一个简单的示例代码，演示了如何使用VBA在Access中实现表单设计与数据录入：```Private Sub Form_Load()' 设置表单标题Me.Caption = "学生信息录入表单"' 绑定数据源Me.RecordSource = "学生信息表"End SubPrivate Sub cmdSave_Click()' 保存数据到表Me.Dirty = FalseEnd SubPrivate Sub cmdNext_Click()' 导航到下一条数据DoCmd.GoToRecord , "", acNext End SubPrivate Sub cmdPrevious_Click()' 导航到上一条数据DoCmd.GoToRecord , "", acPrevious End SubPrivate Sub cmdFirst_Click()' 导航到首条数据DoCmd.GoToRecord , "", acFirst End SubPrivate Sub cmdLast_Click()' 导航到尾条数据DoCmd.GoToRecord , "", acLast End Sub```通过这段示例代码，可以看到如何使用VBA编写表单的加载事件、按钮点击事件等操作。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB创建access数据表字段代码Private 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=" + App.Path & "\new data.mdb" + ";")MsgBox "数据库已经创建成功！"Dim tbl As ADOX.TableSet tbl = New ADOX.Tabletbl.ParentCatalog = cat = "MyTable"'增加一个自动增长的字段Dim col As ADOX.ColumnSet col = New ADOX.Columncol.ParentCatalog = catcol.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型 = "id"col.Properties("Jet OLEDB:Allow Zero Length").Value = Falsecol.Properties("AutoIncrement").Value = Truetbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0'增加一个文本字段Dim col2 As ADOX.ColumnSet col2 = New ADOX.Columncol2.ParentCatalog = cat = "Description"col2.Properties("Jet OLEDB:Allow Zero Length").Value = Falsetbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个货币型字段Dim col4 As ADOX.ColumnSet col4 = New ADOX.Columncol4.ParentCatalog = catcol4.Type = ADOX.DataTypeEnum.adCurrency = "xx"tbl.Columns.Append col4, ADOX.DataTypeEnum.adCurrency'增加一个OLE字段Dim col5 As ADOX.ColumnSet col5 = New ADOX.Columncol5.ParentCatalog = catcol5.Type = ADOX.DataTypeEnum.adLongVarBinary = "OLD_FLD"tbl.Columns.Append col5, ADOX.DataTypeEnum.adLongVarBinary'增加一个数值型字段Dim col3 As ADOX.ColumnSet col3 = New ADOX.Columncol3.ParentCatalog = catcol3.Type = ADOX.DataTypeEnum.adDouble = "ll"tbl.Columns.Append col3, ADOX.DataTypeEnum.adDoubleDim p As ADOX.PropertyFor Each p In col3.PropertiesDebug.Print & ":" & p.Value & ":" & p.Type & ":" & p.At tributesNext'设置主键tbl.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "" cat.Tables.Append tblMsgBox "数据库表：" + + "已经创建成功！"Set tbl = NothingSet cat = NothingDim adocon As ADODB.ConnectionSet adocon = New ADODB.Connectionadocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\n ewdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info= False;Jet OLEDB:Database Password="Set cat = New ADOX.CatalogSet cat.ActiveConnection = adoconFor i = 0 To cat.Tables.Count - 1Debug.Print cat.Tables(i).Name '取出表名If cat.Tables(i).Name = "MyTable" ThenFor j = 0 To cat.Tables(i).Columns.Count - 1Debug.Print cat.Tables(i).Columns(j) '取出列名Debug.Print cat.Tables(i).Columns(j).Type '取出数据类型For Each p In cat.Tables(i).Columns(j).PropertiesDebug.Print p.Type & & p.Attributes '取出列的属性NextNext jEnd IfNext icat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length"). Value = True '设置零长度正确Set cat = Nothingadocon.CloseSet adocon = NothingEnd SubType 属性指示Parameter、Field 或Property 对象的操作类型或数据类型。
设置和返回值设置或返回下列DataTypeEnum 值之一。
相应的OLE DB 类型标识符在下表的说明栏的括号中给出。
有关OLE DB 数据类型的详细信息，请参阅第10 章和《OLE DB 程序员参考》的附录A。
常量说明AdArray 与其他类型一起加入逻辑OR 以指示该数据是那种类型的安全数组(DBTYPE_ARRAY)。
AdBigInt 8 字节带符号的整数(DBTYPE_I8)。
AdBinary 二进制值(DBTYPE_BYTES)。
AdBoolean 布尔型值(DBTYPE_BOOL)。
adByRef 与其他类型一起加入逻辑OR 以指示该数据是其他类型数据的指针(DBTYPE_BYREF)。
adBSTR 以空结尾的字符串(Unicode) (DBTYPE_BSTR)。
adChar 字符串值(DBTYPE_STR)。
adCurrency 货币值(DBTYPE_CY)。
货币数字的小数点位置固定、小数点右侧有四位数字。
该值保存为8 字节范围为10,000 的带符号整型值。
adDate 日期值(DBTYPE_DATE)。
日期按双精度型数值来保存，数字全部表示从1899 年12 月30 开始的日期数。
小数部分是一天当中的片段时间。
adDBDate 日期值(yyyymmdd) (DBTYPE_DBDATE)。
adDBTime 时间值(hhmmss) (DBTYPE_DBTIME)。
adDBTimeStamp 时间戳（yyyymmddhhmmss 加10 亿分之一的小数）(DBTYPE_DBTIMESTAMP).adDecimal 具有固定精度和范围的精确数字值(DBTYPE_DECIMAL)。
adDouble 双精度浮点值(DBTYPE_R8)。
adEmpty 未指定值(DBTYPE_EMPTY)。
adError 32 - 位错误代码(DBTYPE_ERROR)。
adGUID 全局唯一的标识符(GUID) (DBTYPE_GUID)。
adIDispatch OLE 对象上Idispatch 接口的指针(DBTYPE_IDISPA TCH)。
adInteger 4 字节的带符号整型(DBTYPE_I4)。
adIUnknown OLE 对象上IUnknown 接口的指针(DBTYPE_IUNKNOWN)。
adLongVarBinary 长二进制值（仅用于Parameter 对象）。
adLongVarChar 长字符串值（仅用于Parameter 对象）。
adLongVarWChar 以空结尾的长字符串值（仅用于Parameter 对象）。
adNumeric 具有固定精度和范围的精确数字值(DBTYPE_NUMERIC)。
adSingle 单精度浮点值(DBTYPE_R4)。
adSmallInt 2 字节带符号整型(DBTYPE_I2)。
adTinyInt 1 字节带符号整型(DBTYPE_I1)。
adUnsignedBigInt 8 字节不带符号整型(DBTYPE_UI8)。
adUnsignedInt 4 字节不带符号整型(DBTYPE_UI4)。
adUnsignedSmallInt 2 字节不带符号整型(DBTYPE_UI2)。
adUnsignedTinyInt 1 字节不带符号整型(DBTYPE_UI1)。