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

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编辑过]

donlly

正常运行!所有表和视图都能print!

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编辑过]

hg

老師您怎麼可以鑽到ADP中去哪，我連門都找不到，更別說鑽進去啦。
老師教教我，怎麼鑽進出的，好嘛!

donlly

原来是这样!果然是高手!多谢freemanmager的回答!

还有一个关于adp的问题总不能解决:

无论是新建的adp还是示例数据库,窗体和表中导航按钮中"红色删除按钮"总是灰色无效,
不过记录可以通过菜单或者代码删除,请问是什么原因?

zhuyiwen

以下是引用freemanager在2002-10-16 11:13:30的发言：





钻到ADP里试了一下，问题出在这一句：





Set cat.ActiveConnection = CurrentProject.Connection





用Debug.Print CurrentProject.Connection.ConnectiongString可以发现（罗斯文示例库）：


Provider=MSDataShape.1;   '主要是这句不灵。


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吧，所以并不能提供所需操作。


正确的代码如下：





Dim tbl As New Table


Dim cat As New ADOX.Catalog


Dim cn As New ADODB.Connection


' 以下USERID、Datasource以及NorthwindCS要根据你的实际情况修正，


' 我这是用的罗斯文，计算机名为Manager。


cn.ConnectionString = "ROVIDER=SQLOLEDB.1;" & _


                   "ERSIST SECURITY INFO=FALSE;" & _


                   "User ID=sa;" & _


                   "INITIAL CATALOG=NorthwindCS;" & _


                   "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


以后碰到需用到ADOX的地方也应该注意这个问题。即数据提供者与数据驱动的区别。

好贴!

yiwancn

学习了

chenyingfengsx

haohao