空手建立Access數據庫

程序圖例

-

軟件描述:包括源代碼

描述:一個主要表單

私有子命令1_Click()

出錯時轉到錯誤100

定義表和字段。

Dim將數據庫定義爲數據庫

Dim DefTable作爲TableDef，DefField作爲Field

Set DefDatabase = Workspaces(0)。OpenDatabase(App。路逕&" \ v B-代碼。MDB”，0，假)

set table = def database . createtabledef("中國")

dbBinary = 9

dbBoolean = 1

dbByte = 2

dbChar=18

dbDate=8

dbInteger=3

dbLong=4

dbMemo=12

dbText=10

將名稱字段設置爲8個字符。

Set DefField = DefTable。CreateField("Name"，dbText，8)

霛巧的。字段。追加定義字段

Set DefField = DefTable。CreateField("Sex"，dbText，2)

霛巧的。字段。追加定義字段

該字段允許爲空

德夫菲爾德。AllowZeroLength = True

創建具有三個年齡字段的常量類型。

Set DefField = DefTable。CreateField("Age"，dbInteger，3)

字段追加

霛巧的。字段。追加定義字段

表格追加

DefDatabase。追加可定義表格

MsgBox“一切正常，‘中國’表已經建立！”，VB信息

出口接頭

錯誤100:

MsgBox"抱歉，無法創建表格。請先設置VB-CODE數據庫，然後再設置表？”，VB臨界

末耑接頭

Private Sub cmdCreate_Click()

出錯時轉到錯誤100

建立一個名爲VB-CODE的數據庫。

創建數據庫“VB代碼”，dbLangGeneral

MsgBox“一切正常，數據庫建立！”，VB信息

出口接頭

錯誤100:

MsgBox"無法建立數據庫！"& vbCrLf & vbCrLf &呃。描述，VB信息

末耑接頭

位律師廻複