怎样在VB6的ADO方式下建立和拷贝一个表？

[novman]

怎样在VB6的ADO方式下建立和拷贝（已知的表）一个表？

[Un1]

执行SQL

[bluewater]

Private db As Database
Private td As TableDef
Private f As Field

Private Sub Command1_Click()
Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)
Set td = New TableDef

Set f = td.CreateField("NAME", dbText, 20)
td.Fields.Append f

Set f = td.CreateField("ID", dbText, 5)
td.Fields.Append f

Set f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f


td.Name = "class"
db.TableDefs.Append td

Set db = Nothing

End Sub