用VB建立Access資料庫結構
PrivateSubCommand1_Click()
OnErrorGoToErr100
'定義表與欄位
DimDefDatabaseAsDatabase
DimDefTableAsTableDef,DefFieldAsField
SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"vbeden.mdb",0,False)
SetDefTable=DefDatabase.CreateTableDef("VB編程樂園")
'dbBinary=9
'dbBoolean=1
'dbByte=2
'dbChar=18
'dbDate=8
'dbInteger=3
'dbLong=4
'dbMemo=12
'dbText=10
'建立Name欄位為8個字元型
SetDefField=DefTable.CreateField("Name",dbText,8)
DefTable.Fields.AppendDefField
SetDefField=DefTable.CreateField("Sex",dbText,2)
DefTable.Fields.AppendDefField
'該欄位允許為空白
DefField.AllowZeroLength=True
'建立Age欄位為3個的常整型
SetDefField=DefTable.CreateField("Age",dbInteger,3)
'欄位追加
DefTable.Fields.AppendDefField
'表追加
DefDatabase.TableDefs.AppendDefTable
MsgBox"VB編程樂園資料庫建立完成!",vbInformation
ExitSub
Err100:
MsgBox"對不起,不能建立表。請先再建表前建立VBEden資料庫?",vbCritical
EndSub
PrivateSubcmdCreate_Click()
OnErrorGoToErr100
'建立名為VBEDEN的資料庫
CreateDatabase"VB-CODE",dbLangGeneral
MsgBox"資料庫建立完成!",vbInformation
ExitSub
Err100:
MsgBox"不能建立資料庫!"&vbCrLf&vbCrLf&Err.Description,vbInformation
EndSub->