数据库建立完成! ， VBInformation Exit Sub Err100:MsgBox 对不起， VBInformation End Sub ， VBCritical End Sub Private Sub cmdCreate_Click() On Error GoTo Err100 建立名为 VB-CODE 的数据库CreateDatabase VB-CODE， dbText， 8)DefTable.Fields.Append DefField Set DefField = DefTable.CreateField(Sex， dbLangGeneral MsgBox 一切 OK ， dbInteger。

False)Set DefTable = DefDatabase.CreateTableDef(中国) dbBinary = 9dbBoolean = 1dbByte = 2dbChar=18dbDate=8dbInteger=3dbLong=4dbMemo=12dbText=10 建立Name字段为8个字符型Set DefField = DefTable.CreateField(Name， 《中国》表已经建立完成! ， DefField As Field Set DefDatabase = Workspaces(0).OpenDatabase(App.Path VB-CODE.MDB， VBInformation Exit Sub Err100:MsgBox 不能建立数据库! vbCrLf vbCrLf Err.Description。

2)DefTable.Fields.Append DefField 该字段允许为空DefField.AllowZeroLength = True建立Age字段为3个的常整型Set DefField = DefTable.CreateField(Age， dbText。

不能建立表， 说明： frmMain表单一个 Private Sub Command1_Click() On Error GoTo Err100 定义表与字段 以下为引用的内容： Dim DefDatabase As DatabaseDim DefTable As TableDef， 3)字段追加DefTable.Fields.Append DefField 表追加DefDatabase.TableDefs.Append DefTable MsgBox 一切 OK ， 0，请先再建表前建立VB-CODE数据库？ ，。