用VB建立Access數據庫結構

發布: 2007-7-14 20:28 | 作者: 佚名 | 來源: 網絡轉載 | 查看: 18次 | 進入軟件測試論壇討論

     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