程序中创建一个数据库,为什么提示错误呢?请帮我看看

Question

提示 append 位置参数属性错误.请高手指点!!!谢谢!!!Private Sub Command1_Click()
If Dir(App.Path & "\" & "sh.mdb") <> "" Then
   Kill (App.Path & "\" & "sh.mdb")
   createtable
   Else
   MsgBox ("数据库丢失,系统将自动创建!")
   createtable
End IfEnd Sub
Public Sub createtable()
Dim ws As workspace
Dim db, db1 As Database
Dim rec, rec1 As Recordset
Dim td As TableDef
Dim fld As Field
Dim i As Integer
Set ws = DBEngine.Workspaces(0)
Set db = Workspaces(0).CreateDatabase(App.Path & "\" & "SH.mdb", dbLangGeneral)
Set db1 = OpenDatabase(App.Path & "\" & "SH.mdb")
Set td = db1.CreateTableDef("temp")
With td
  .Fields.Append .CreateField("name", dbText) = "a"
  For i = 1 To 1000
   .Fields.Append.CreateField("x" & Str(i), dbSingle) = i
   .Fields.Append.CreateField("y" & Str(i), dbSingle) = i
  Next
End Sub

Answer 1

修改后：
With td
  .Fields.Append .CreateField("name", dbText) '= "a"
  For i = 1 To 100 '1000的字段太多，将创建失败，Access数据库对数据容量是有限制的
    .Fields.Append .CreateField("x" & Str(i), dbSingle)  ' = i
    .Fields.Append .CreateField("y" & Str(i), dbSingle) ' = i
  Next
End With
db1.TableDefs.Append td

Answer 2

不行,还是提示  append的位置 "参数不可选"

Answer 3

MDB数据库表的字段数最多为254

Answer 4

回复人： liuxing_zcs(流星) ( ) 信誉：100  2004-8-11 11:15:32  得分: 0  
 
 
   
不行,还是提示  append的位置 "参数不可选"  
 
楼主没注意我修改中的注释符号啊！把我改的代码直接CP，替换到你的代码里面去