用VB建立Access數據庫結構
發表于:2007-07-14來源:作者:點擊數:
標簽:
Private Sub Command1_Click() On Error GoTo Err100 注釋:定義表與字段 Dim DefDatabase As Database Dim DefTable As TableDef, DefField As Field Set DefDatabase = Workspaces(0).OpenDatabase(App.Path \ vb eden.mdb, 0, False) Set DefTable = DefD
Private Sub Command1_Click()
On Error GoTo Err100
注釋:定義表與字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\
vbeden.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("
VB編程樂園")
注釋:dbBinary = 9
注釋:dbBoolean = 1
注釋:dbByte = 2
注釋:dbChar=18
注釋:dbDate=8
注釋:dbInteger=3
注釋:dbLong=4
注釋:dbMemo=12
注釋:dbText=10
注釋:建立Name字段為8個字符型
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefField
Set DefField = DefTable.CreateField("Sex", dbText, 2)
DefTable.Fields.Append DefField
注釋:該字段允許為空
DefField.AllowZeroLength = True
注釋:建立Age字段為3個的常整型
Set DefField = DefTable.CreateField("Age", dbInteger, 3)
注釋:字段追加
DefTable.Fields.Append DefField
注釋:表追加
DefDatabase.TableDefs.Append DefTable
MsgBox " VB編程樂園數據庫建立完成!", vbInformation
Exit Sub
Err100:
MsgBox "對不起,不能建立表。請先再建表前建立VBEden數據庫? ", vbCritical
End Sub
Private Sub cmdCreate_Click()
On Error GoTo Err100
注釋:建立名為 VBEDEN 的數據庫
CreateDatabase "VB-CODE", dbLangGeneral
MsgBox "數據庫建立完成! ", vbInformation
Exit Sub
Err100:
MsgBox "不能建立數據庫! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
原文轉自:http://www.anti-gravitydesign.com