delphi ado

跨数据库访问 语句如下

select * from OPENDATASOURCE('SQLOLEDB','Data Source=server;User ID=sa;Password=123').erp_logon.dbo.yq_users where userNO = 'admin' and pwd = '' and db = '帐套1'

报错内容是：SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问，因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configure 启用 'Ad Hoc Distributed Queries'。有关启用 'Ad Hoc Distributed Queries' 的详细信息，请参阅 SQL Server 联机丛书中的 "外围应用配置器"。

下边为网上搜索来的 原网址为：http://www.htmer.com/article/922.htm

看错误提示就知道是因为SQL Server的Ad Hoc Distributed Queries组件被禁用了，这里我用的SQL Server版本是2005，只需要开启Ad Hoc Distributed Queries就可以了，方法如下：

1.开启Ad Hoc Distributed Queries组件，在sql查询编辑器中执行如下语句：

2.关闭Ad Hoc Distributed Queries组件，在sql查询编辑器中执行如下语句：