空手建立Access数据库

dim defdatabase as database
dim deftable as tabledef, deffield as field

set defdatabase = workspaces(0).opendatabase(app.path & "/vb-code.mdb", 0, false)
set deftable = defdatabase.createtabledef("中国")

'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 " 一切 ok ， 《中国》表已经建立完成！ ", vbinformation

exit sub

err100:
msgbox "对不起，不能建立表。请先再建表前建立vb-code数据库？ ", vbcritical

end sub

private sub cmdcreate_click()

on error goto err100

'建立名为 vb-code 的数据库
createdatabase "vb-code", dblanggeneral

msgbox " 一切 ok ， 数据库建立完成！ ", vbinformation

exit sub

err100:
msgbox "不能建立数据库! " & vbcrlf & vbcrlf & err.description, vbinformation

end sub