VB创建access数据表字段代码

VB创建access数据表字段代码

Private Sub Form_Load()

'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"

'Microsoft ADO Ext.2.7 for DDL ado Security

Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog

cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\new data.mdb" + ";")

MsgBox "数据库已经创建成功！"

Dim tbl As ADOX.Table

Set tbl = New ADOX.Table

tbl.ParentCatalog = cat

https://www.360docs.net/doc/ca14132514.html, = "MyTable"

'增加一个自动增长的字段

Dim col As ADOX.Column

Set col = New ADOX.Column

col.ParentCatalog = cat

col.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型

https://www.360docs.net/doc/ca14132514.html, = "id"

col.Properties("Jet OLEDB:Allow Zero Length").Value = False

col.Properties("AutoIncrement").Value = True

tbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0

'增加一个文本字段

Dim col2 As ADOX.Column

Set col2 = New ADOX.Column

col2.ParentCatalog = cat

https://www.360docs.net/doc/ca14132514.html, = "Description"

col2.Properties("Jet OLEDB:Allow Zero Length").Value = False

tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25

'增加一个货币型字段

Dim col4 As ADOX.Column

Set col4 = New ADOX.Column

col4.ParentCatalog = cat

col4.Type = ADOX.DataTypeEnum.adCurrency

https://www.360docs.net/doc/ca14132514.html, = "xx"

tbl.Columns.Append col4, ADOX.DataTypeEnum.adCurrency

'增加一个OLE字段

Dim col5 As ADOX.Column

Set col5 = New ADOX.Column

col5.ParentCatalog = cat

col5.Type = ADOX.DataTypeEnum.adLongVarBinary

https://www.360docs.net/doc/ca14132514.html, = "OLD_FLD"

tbl.Columns.Append col5, ADOX.DataTypeEnum.adLongVarBinary

'增加一个数值型字段

Dim col3 As ADOX.Column

Set col3 = New ADOX.Column

col3.ParentCatalog = cat

col3.Type = ADOX.DataTypeEnum.adDouble

https://www.360docs.net/doc/ca14132514.html, = "ll"

tbl.Columns.Append col3, ADOX.DataTypeEnum.adDouble

Dim p As ADOX.Property

For Each p In col3.Properties

Debug.Print https://www.360docs.net/doc/ca14132514.html, & ":" & p.Value & ":" & p.Type & ":" & p.At tributes

Next

'设置主键

tbl.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "" cat.Tables.Append tbl

MsgBox "数据库表：" + https://www.360docs.net/doc/ca14132514.html, + "已经创建成功！"

Set tbl = Nothing

Set cat = Nothing

Dim adocon As ADODB.Connection

Set adocon = New ADODB.Connection

adocon.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.Catalog

Set cat.ActiveConnection = adocon

For i = 0 To cat.Tables.Count - 1

Debug.Print cat.Tables(i).Name '取出表名

If cat.Tables(i).Name = "MyTable" Then

For j = 0 To cat.Tables(i).Columns.Count - 1

Debug.Print cat.Tables(i).Columns(j) '取出列名

Debug.Print cat.Tables(i).Columns(j).Type '取出数据类型

For Each p In cat.Tables(i).Columns(j).Properties

Debug.Print p.Type & https://www.360docs.net/doc/ca14132514.html, & p.Attributes '取出列的属性

Next

Next j

End If

Next i

cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length"). Value = True '设置零长度正确

Set cat = Nothing

adocon.Close

Set adocon = Nothing

End Sub

Type 属性

指示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)。

adUserDefined 用户定义的变量(DBTYPE_UDT)。

adV arBinary 二进制值（仅Parameter 对象）。

adV arChar 字符串值（仅Parameter 对象）。

adV ariant 自动变体型(DBTYPE_V ARIANT)。

adVector 与其他类型一起加入逻辑OR 中，指示数据是DBVECTOR 结构（由OLE DB 定义）。该结构含有元素的计数和其他类型(DBTYPE_VECTOR) 数据的指针。

adV arWChar 以空结尾的Unicode 字符串（仅Parameter 对象）。

adWChar 以空结尾的Unicode 字符串(DBTYPE_WSTR)。

说明

对Parameter 对象，Type 属性是读/写。对其他所有对象，Type 属性是只读。

Type 属性范例

该范例通过显示与雇员表所有Field 对象的Type 属性值对应的常量名说明Type 属性。该过程运行时需要FieldType 函数。

Public Sub TypeX()

Dim rstEmployees As ADODB.Recordset

Dim fldLoop As ADODB.Field

Dim strCnn As String

' 使用雇员表中的数据打开记录集。

strCnn = "Provider=sqloledb;" & _

"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set rstEmployees = New ADODB.Recordset

rstEmployees.Open "employee", strCnn, , , adCmdTable

Debug.Print "Fields in Employee Table:" & vbCr

' 枚举雇员表的字段集合。

For Each fldLoop In rstEmployees.Fields

Debug.Print " Name: " & https://www.360docs.net/doc/ca14132514.html, & vbCr & _ " Type: " & FieldType(fldLoop.Type) & vbCr Next fldLoop

End Sub

Public Function FieldType(intType As Integer) As String

Select Case intType

Case adChar

FieldType = "adChar"

Case adVarChar

FieldType = "adVarChar"

Case adSmallInt

FieldType = "adSmallInt"

Case adUnsignedTinyInt

FieldType = "adUnsignedTinyInt"

Case adDBTimeStamp

FieldType = "adDBTimeStamp"

End Select

End Function