如何用SQL语句创建表？

Question

Private Function creat()
Dim testdb As Database
Dim testtd As TableDef
Dim testfield1 As field
Dim testfield2 As field
Dim testfield3 As field
Set testdb = OpenDatabase(path) ‘数据库文件所在路径
Set testtd = testdb.CreateTableDef(Form10.Text1.Text) 'form10.text1.text为表名
Set testfield1 = testtd.CreateField("A", dbText)
Set testfield2 = testtd.CreateField("B", dbText)
Set testfield3 = testtd.CreateField("C", dbText)
testtd.Fields.Append testfield1
testtd.Fields.Append testfield2
testtd.Fields.Append testfield3
testdb.TableDefs.Append testtd
End Function仅供参考

Answer 1

sql还是用来查询好一点，建立还使用ADO或者DAO吧

Answer 2

Private Function creat()
Dim testdb As Database
Dim testtd As TableDef
Dim testfield1 As field
Dim testfield2 As field
Dim testfield3 As field
Set testdb = OpenDatabase(path) ‘数据库文件所在路径
Set testtd = testdb.CreateTableDef(Form10.Text1.Text) 'form10.text1.text为表名
Set testfield1 = testtd.CreateField("A", dbText)
Set testfield2 = testtd.CreateField("B", dbText)
Set testfield3 = testtd.CreateField("C", dbText)
testtd.Fields.Append testfield1
testtd.Fields.Append testfield2
testtd.Fields.Append testfield3
testdb.TableDefs.Append testtd
End Function

Answer 3

create table 表名  字段（字段类型）

Answer 4

教你一招：如果是Sql Server 选择一个表
然后导出SQL脚本
再改成你的
就是创建表的SQL

Answer 5

为什么大家都教他用ADO或者DAO，DDL语句明明是SQL语言中
很重要的一部分啊。大致是先CREATE TABLE，再ALTER TABLE创建规则。如BARDO所说，基本上利用SQL SERVER的“Generate SQL Scripts”
功能，就可以看到建表的SQL语句。

Answer 6

此示例使用两个文本字段、日期／时间字段、及唯一索引来创建名为“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