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