怎样用ADO对象以代码形式创建一个表

Question

有数据库aaa.mdb，要求以代码形式创建一个数据表bbb，并可以定义每个字段。谢谢！

Answer 1

用SQL语句.
CREAT TABBLE TABLENAME 创建一个表
ALTER TABLE TABLENAME  ADDCOLUMN COLUMNNAME TYPE  添加一列
具体的参见SQL的语法.

Answer 2

不会吧，这也问，没有学过SQL吗

Answer 3

CREATE TABLE <table_name, sysname, test_table> (
<column_1, sysname, c1> <datatype_for_column_1, , int> NULL, 
<column_2, sysname, c2> <datatype_for_column_2, , int> NOT NULL)

Answer 4

用ADO的链接对象执行创建表的SQL:
如conn.Excute 创建表的SQL语句另外可以使用ADOX(ADO扩展)来创建表

Answer 5

建表
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
    cn.Open
    cn.Execute "CREATE TABLE [bbb]([字段1]Text(20),[字段2]Integer,[字段3]Double，...)"
    cn.Close
End Sub
'删表
Private Sub Command2_Click()
    Dim cn As New ADODB.Connection
    cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
    cn.Open
    cn.Execute "DROP TABLE [bbb]"
    cn.Close
End Sub