空手建立Access数据库

程序图例 财管家 园 fs119.net

------------------------------------- 财管,家园,fs119.net

软件说明：包含源码
说明：frmMain表单一个 财管家园 fs119.net

PrivateSubCommand1_Click()

财软联 盟 fs119.net

OnErrorGoToErr100 财,软联盟,fs119.net

'定义表与字段
DimDefDatabaseAsDatabase
DimDefTableAsTableDef,DefFieldAsField

财软联盟.fs119.net

SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"\VB-CODE.MDB",0,False)
SetDefTable=DefDatabase.CreateTableDef("中国")

'dbBinary=9
'dbBoolean=1
'dbByte=2
'dbChar=18
'dbDate=8
'dbInteger=3
'dbLong=4
'dbMemo=12
'dbText=10 财管家园.fs119.net

'建立Name字段为8个字符型
SetDefField=DefTable.CreateField("Name",dbText,8)
DefTable.Fields.AppendDefField

财管家.园.fs119.net

SetDefField=DefTable.CreateField("Sex",dbText,2)
DefTable.Fields.AppendDefField

财 软联盟 fs119.net

'该字段允许为空
DefField.AllowZeroLength=True
'建立Age字段为3个的常整型
SetDefField=DefTable.CreateField("Age",dbInteger,3)
'字段追加
DefTable.Fields.AppendDefField

财软联盟 fs119.net

'表追加
DefDatabase.TableDefs.AppendDefTable 财,软联盟,fs119.net

MsgBox"一切OK，《中国》表已经建立完成！",vbInformation 财.软联盟.fs119.net

ExitSub

财软联.盟.fs119.net

Err100:
MsgBox"对不起，不能建立表。请先再建表前建立VB-CODE数据库？",vbCritical 财管,家园,fs119.net

EndSub 财.软联盟.fs119.net

PrivateSubcmdCreate_Click()

OnErrorGoToErr100

财管家园 fs119.net

'建立名为VB-CODE的数据库
CreateDatabase"VB-CODE",dbLangGeneral

MsgBox"一切OK，数据库建立完成！",vbInformation 财软.联盟.fs119.net

ExitSub 财软联 盟 fs119.net

Err100:
MsgBox"不能建立数据库!"&vbCrLf&vbCrLf&Err.Description,vbInformation

EndSub 财管家 园 fs119.net