设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 8679|回复: 17
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2002-10-7 00:43:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
在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中怎样用代码创建新表?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
18#
发表于 2009-12-3 10:45:40 | 只看该作者
haohao
17#
发表于 2008-10-6 19:58:12 | 只看该作者
学习了

点击这里给我发消息

16#
发表于 2005-1-29 05:45:00 | 只看该作者
以下是引用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的地方也应该注意这个问题。即数据提供者与数据驱动的区别。








好贴!
15#
 楼主| 发表于 2002-10-17 17:32:00 | 只看该作者

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

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

无论是新建的adp还是示例数据库,窗体和表中导航按钮中"红色删除按钮"总是灰色无效,
不过记录可以通过菜单或者代码删除,请问是什么原因?
14#
发表于 2002-10-16 19:45:00 | 只看该作者
老師您怎麼可以鑽到ADP中去哪,我連門都找不到,更別說鑽進去啦。
老師教教我,怎麼鑽進出的,好嘛!
13#
发表于 2002-10-16 19:14:00 | 只看该作者
<><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编辑过]

12#
 楼主| 发表于 2002-10-10 20:16:00 | 只看该作者
正常运行!所有表和视图都能print!
11#
发表于 2002-10-9 19:41:00 | 只看该作者
最好把你的ActiveConnectiong打出来看看,上次只所以说"应该就可以了",就是想着也许你的数据驱动设定并不能保证ADOX能正常运行。
    本人现在已经很少用ADP来做东东了,没法验证。
    理论上是完全没有问题的,用VB和Delphi操作ADOX对象都没有问题何况是在ADO的老家?
   先试试
   For each Tbl In Cat.Tables
    Debug.Print Tbl.Name
   Next
   看看能不能正常运行吧。

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

10#
 楼主| 发表于 2002-10-9 01:21:00 | 只看该作者
情况还是一样?

运行时错误'3251'
对象或提供程序不能执行所需的操作.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:42 , Processed in 0.103989 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表