这样的代码应该怎么样改写才能实现？

Question

to tuoshi
不要把，我用的是DAO啊

Answer 1

看看：
=============================================================
Sub CreateTableX1()Dim dbs  As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用两个文本字段来创建表。dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName TEXT, LastName TEXT);"dbs.CloseEnd Sub
=================================
此示例使用两个文本字段、日期／时间字段、及唯一索引来创建名为“MyTable”的添加表 
。Sub CreateTableX2()Dim dbs As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 创建使用三字段的表和唯一的
' 索引组成这所有的三个字段。
dbs.Execute "CREATE TABLE MyTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "DateOfBirth DATETIME, " _
& "CONSTRAINT MyTableConstraint UNIQUE " _
& "(FirstName, LastName, DateOfBirth));"dbs.CloseEnd Sub
==================================
此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。Sub CreateTableX3()Dim dbs As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用三字段和一个主键来创建表。
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"dbs.CloseEnd Sub 

Answer 2

to sonicdater
你的意思是必须使用sql语句吗？

Answer 3

是的。如果你是 用 ADOX，则 如下：  Dim cat As ADOX.Catalog
  Dim tblTable As ADOX.Table
  Dim colColumn As ADOX.Column
  Dim Cn As ADODB.Connection
  
  Set Cn = New ADODB.Connection
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydb1.mdb"
    
  Set cat = New ADOX.Catalog
  Set cat.ActiveConnection = Cn
  
  Set tblTable = cat.Tables("MyTable")
  Set colColumn = tblTable.Columns("MyField")
  colColumn.Name = "MyField1"
  
  Set colColumn = Nothing
  Set tblTable = Nothing
  Set catNewDB = Nothing先要引用”Microsoft ADO Ext. 2.x for DDL and Security.”库. 
如果您还用到了ADO,您还要引用”Microsoft ActiveX Data Object 2.x Library”

Answer 4

谢谢sonicdater 
我晚上看看，明天给分，方便留下QQ什么的吗，认识一下那就是纯粹用DAO是不成的？

Answer 5

Sub CreateTable ()    ' 声明变量。
    Dim dbs As Database, tbl As TableDef, fld As Field    ' 将当前数据库指定给数据库
    ' 变量。
    Set dbs = CurrentDB    ' 创建新的表和字段，并将其指定给
    ' 表和字段变量。
    Set tbl = dbs.CreateTableDef("旧发货单")
    Set fld = tbl.CreateField("订单ID", dbText)    ' 向表中添加字段，然后向数据库中
    ' 添加表。
    tbl.Fields.Append fld
    dbs.TableDefs.Append tbl
    dbs.TableDefs.RefreshEnd Sub

Answer 6

to kailong
不好意思，我的意思是已经有了一个表了
你这样不是跟我上面的代码一个意思吗？

Answer 7

tbl.fields.append 就可以了,你不懂查资料吗?

Answer 8

他用的是dao 
我感到错在Fields.Append .CreateField("new", dbText, 50) 
这里.应这样写
fields.createfield("new",dbtext,50)
testfld.append(fields)
这样就可以将其加到testfld这个fields对象的集合中了

Answer 9

to weigage
可以个鸟！！to all我已经解决了
是这样
  
Dim testdb As Database
Dim testtd As TableDef
Dim testfld As FieldSet testdb = OpenDatabase("e:\1.mdb")  
Set testtd = testdb.CreateTableDef("学生") With testtd
  .Fields.Append .CreateField("new", dbText, 50)  End Withtestdb.TableDefs.Append testtdtestdb.Close  各位还有什么意见