Office中国论坛/Access中国论坛

标题: 晕,求救高手,"不支持此接口？" [打印本页]

作者: pangluo 时间: 2006-9-28 07:51
标题: 晕,求救高手,"不支持此接口？"
测试代码如下：环境为ACCESS 2003+SQL Server 2000

Sub test1()
Dim Cat As New ADOX.Catalog
Dim Cmd As New ADODB.Command
Dim Tmp_i As Integer

Set Cat.ActiveConnection = CurrentProject.Connection
For Tmp_i = 0 To Cat.Procedures.Count
Debug.Print Cat.Procedures(Tmp_i).Name
Set Cmd = Cat.Procedures(Tmp_i).Command
Debug.Print Cmd.CommandText
Next
End Sub

错误提示为："不支持此接口"，请高手解答，不胜感激！[em06]

作者: pangluo 时间: 2006-9-28 18:44
从目前了解到的情况来看，可能是SQL SERVER不支持访问command属性了，但如果我要生成动态的查询，如：
Set Qry = CurrentDb.QueryDefs("Temp")
Qry.sql = "SELECT A.包装物编码, A.包装物名称, A.单位 FROM 包装物 AS A" '该语句是动态的
Qry.Close
怎么办？？？？期待高手指点！[em06]

[此贴子已经被作者于2006-9-28 10:45:30编辑过]

作者: pangluo 时间: 2006-9-28 21:05
继续关注

作者: gzh97730 时间: 2006-10-2 23:00
文中 Set Cat.ActiveConnection = CurrentProject.Connection，可能会造成某些功能限制。

兄台用连接字符串连接数据库再试试！

作者: pangluo 时间: 2006-10-8 22:20
晕，还是不行。

Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Cmd As New ADODB.Command
Dim Tmp_i As Integer

cnn.Open "

rovider=Microsoft.Access.OLEDB.10.0;Data Source=AA\SONG;User ID=***

assword=***;Initial Catalog=PX_Data;Data Provider=SQLOLEDB.1"
Set Cat.ActiveConnection = cnn
For Tmp_i = 0 To Cat.Procedures.Count
Debug.Print Cat.Procedures(Tmp_i).Name
Set Cmd = Cat.Procedures(Tmp_i).Command
Debug.Print Cmd.CommandText
Next

还是不行，怎么办？在线等！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)