空手建立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信息
末耑接頭
位律師廻複
0條評論