请问在adp中怎样用代码创建新表?

donlly

在mdb文件中通过的代码,在adp中 手动创建新表也没有问题
但用代码却说
   
运行时错误'3251'
对象或提供程序不能执行所需的操作.

代码如下
Dim tbl As New Table
Dim cat As New ADOX.Catalog

Set cat.ActiveConnection = CurrentProject.Connection

    tbl.Name = "MyTable"
    tbl.Columns.Append "Column1", adInteger
    tbl.Columns.Append "Column2", adInteger
    tbl.Columns.Append "Column3", adVarWChar, 50
    cat.Tables.Append tbl


请问在adp中怎样用代码创建新表?

zhuyiwen

docmd.runsql "create table ...."

[em26]

donlly

请问如何修改视图?为何adp不支持adox的创建表,修改表,创建视图,修改视图

HG

生成視圖可以用上貼zhuyiwen的作法嘛
docmd.rusql "create view viewname...."

zhuyiwen

adox不支持SQL Server, 可以用SQLDMO,与adox类似，呵呵

donlly

什么是 SQLDMO?

HG

還是不要去了解這個吧，這個難度絕對比學TˍSQL大的多。還不如您學好點TˍSQL，然後一個docmd.runsql()就可以搞定一切。

donlly

但只有创建视图没有修改视图的TˍSQL?

freemanager

建新表的方式有N种，不过这里要澄清一点的是：
    ADOX的产生就是为了给程序员在前端开发提供至各种不同的数据库通用的操作接口，如果连微软自己的SQL Sever都不支持，微软岂不是在不知所云吗？
   只需要在此句：
   Set cat.ActiveConnection = CurrentProject.Connection
   紧接一句：
   Set Tbl.ParentCatalog =Cat
   应该就可以了。总得让人家微软知道你要在哪个库里建表嘛。
至于SQLDEMO是什么东东，随便找本Sql Sever的书瞧瞧就知道了。
   
   

donlly

情况还是一样?

运行时错误'3251'
对象或提供程序不能执行所需的操作.