private sub command1_click
on error goto err100
\'定义表和字段
dim defdatabase as database
dim deftable as tabledef, deffield as field
defdatabase = workspaces(0).opendatabase(app.path & \"\\vbeden.mdb\", 0, false) deftable = defdatabase.createtabledef(\"vb编程乐园\") \'dbbinary = 9
\'dbboolean = 1
\'db
= 2 \'dbchar=18
\'dbdate=8
\'db
eger=3 \'dblong=4
\'dbmemo=12
\'dbtext=10
\'建立name字段为8个
型 deffield = deftable.createfield(\"name\", dbtext, 8) deftable.fields.append deffield
deffield = deftable.createfield(\"sex\", dbtext, 2) deftable.fields.append deffield
\'该字段允许为空
deffield.allowzerolength = true
\'建立age字段为3个
常整型 deffield = deftable.createfield(\"age\", dbeger, 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
最新评论