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

freemanager

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

freemanager

最好把你的ActiveConnectiong打出来看看，上次只所以说"应该就可以了"，就是想着也许你的数据驱动设定并不能保证ADOX能正常运行。
    本人现在已经很少用ADP来做东东了，没法验证。
    理论上是完全没有问题的，用VB和Delphi操作ADOX对象都没有问题何况是在ADO的老家？
   先试试
   For each Tbl In Cat.Tables
    Debug.Print Tbl.Name
   Next
   看看能不能正常运行吧。

[此贴子已经被作者于2002-10-9 11:41:00编辑过]

freemanager

<><FONT face=Verdana>钻到ADP里试了一下，问题出在这一句：

Set cat.ActiveConnection = CurrentProject.Connection

用Debug.Print CurrentProject.Connection.ConnectiongString可以发现（罗斯文示例库）：
<FONT color=#880000>rovider=MSDataShape.1;   '主要是这句不灵。</FONT>
Persist Security Info=False;Data Source=MANAGER;User ID=sa;Initial      
Catalog=NorthwindCS;Data Provider=SQLOLEDB.1

MSDataShape全称为：Microsoft Data Shaping Service for OLE DB提供的功能很单一。

即数据提供者并不是ADOX所需要的SQLOLEDB（即ADO For SQL sever），也可以说不是正宗的ADO吧，所以并不能提供所需操作。
正确的代码如下：

<FONT face="Courier New">Dim tbl As New Table
Dim cat As New ADOX.Catalog
Dim cn As New ADODB.Connection
</FONT><FONT face="Courier New"><FONT color=#008800>' 以下USERID、Datasource以及NorthwindCS要根据你的实际情况修正，
' 我这是用的罗斯文，计算机名为Manager。</FONT>
cn.ConnectionString = "ROVIDER=SQLOLEDB.1;" &amp; _
                   "PERSIST SECURITY INFO=FALSE;" &amp; _
                   "User ID=sa;" &amp; _
                   "INITIAL CATALOG=NorthwindCS;" &amp; _
                   "DATA SOURCE=MANAGER"
cn.Open
Set cat.ActiveConnection = cn
tbl.Name = "MyTable"
Set tbl.ParentCatalog = cat

tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
End Sub</FONT></FONT></P>
<P><FONT face=Verdana><B>以后碰到需用到ADOX的地方也应该注意这个问题。即数据提供者与数据驱动的区别。</B></FONT></P>

[此贴子已经被zhuyiwen于2005-1-28 21:44:23编辑过]