Office中国论坛/Access中国论坛

标题: 请问在adp中怎样用代码创建新表? [打印本页]
作者: donlly    时间: 2002-10-7 00:43
标题: 请问在adp中怎样用代码创建新表?
在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    时间: 2002-10-7 01:16
docmd.runsql "create table ...."

[em26]
作者: donlly    时间: 2002-10-7 17:46
请问如何修改视图?为何adp不支持adox的创建表,修改表,创建视图,修改视图
作者: HG    时间: 2002-10-7 17:49
生成視圖可以用上貼zhuyiwen的作法嘛
docmd.rusql "create view viewname...."
作者: zhuyiwen    时间: 2002-10-7 21:50
adox不支持SQL Server, 可以用SQLDMO,与adox类似，呵呵
作者: donlly    时间: 2002-10-7 23:55
什么是 SQLDMO?
作者: HG    时间: 2002-10-8 00:21
還是不要去了解這個吧，這個難度絕對比學TˍSQL大的多。還不如您學好點TˍSQL，然後一個docmd.runsql()就可以搞定一切。
作者: donlly    时间: 2002-10-8 00:25
但只有创建视图没有修改视图的TˍSQL?
作者: freemanager    时间: 2002-10-8 00:53
建新表的方式有N种，不过这里要澄清一点的是：
    ADOX的产生就是为了给程序员在前端开发提供至各种不同的数据库通用的操作接口，如果连微软自己的SQL Sever都不支持，微软岂不是在不知所云吗？
   只需要在此句：
   Set cat.ActiveConnection = CurrentProject.Connection
   紧接一句：
   Set Tbl.ParentCatalog =Cat
   应该就可以了。总得让人家微软知道你要在哪个库里建表嘛。
至于SQLDEMO是什么东东，随便找本Sql Sever的书瞧瞧就知道了。
   
   
作者: donlly    时间: 2002-10-9 01:21
情况还是一样?

运行时错误'3251'
对象或提供程序不能执行所需的操作.
作者: freemanager    时间: 2002-10-9 19:41
最好把你的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    时间: 2002-10-10 20:16
正常运行!所有表和视图都能print!
作者: freemanager    时间: 2002-10-16 19:14
<><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    时间: 2002-10-16 19:45
老師您怎麼可以鑽到ADP中去哪，我連門都找不到，更別說鑽進去啦。
老師教教我，怎麼鑽進出的，好嘛!
作者: donlly    时间: 2002-10-17 17:32

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

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

无论是新建的adp还是示例数据库,窗体和表中导航按钮中"红色删除按钮"总是灰色无效,
不过记录可以通过菜单或者代码删除,请问是什么原因?
作者: zhuyiwen    时间: 2005-1-29 05:45
以下是引用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    时间: 2008-10-6 19:58
学习了
作者: chenyingfengsx    时间: 2009-12-3 10:45
haohao



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3