萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> 編程語言綜合 >> 用VB建立Access數據庫結構

用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->

copyright © 萬盛學電腦網 all rights reserved