明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

用VB創(chuàng)建Access數據庫結構

發(fā)表時間：2023-08-10 來源：明輝站整理相關軟件相關文章人氣：

[摘要]PrivateSubCommand1_Click()OnErrorGoToErr100'定義表與字段DimDefDatabaseAsDatabaseDimDefTableAsTableDef...

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


Microsoft Access在很多地方得到廣泛使用，例如小型企業(yè)，大公司的部門。