declare @err int,@src varchar(255),@desc varchar(255)
declare @adoobj int,@dbobj int--创建对象
exec @err=sp_oacreate 'adodb.connection',@adoobj out
if @err<>0
begin
exec sp_oageterrorinfo @adoobj,@src out,@desc out
select cast(@err as binary(4)) as 错误号,@src as 错误源,@desc as 错误描述
end
declare @adoobj int,@dbobj int--创建对象
exec @err=sp_oacreate 'adodb.connection',@adoobj out
if @err<>0
begin
exec sp_oageterrorinfo @adoobj,@src out,@desc out
select cast(@err as binary(4)) as 错误号,@src as 错误源,@desc as 错误描述
end
declare @adoobj int--创建对象
exec @err=sp_oacreate 'adodb.connection',@adoobj out
if @err<>0
begin
exec sp_oageterrorinfo @adoobj,@src out,@desc out
select cast(@err as binary(4)) as 错误号,@src as 错误源,@desc as 错误描述
end--连接服务器
exec @err=sp_oamethod @adoobj,'open',null,'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=zj'
if @err<>0
begin
exec sp_oageterrorinfo @adoobj,@src out,@desc out
select cast(@err as binary(4)) as 错误号,@src as 错误源,@desc as 错误描述
end--显示当前数据库名
exec @err=sp_oagetproperty @adoobj,'defaultdatabase',@src output
select @src as 数据库名
if @err<>0
begin
exec sp_oageterrorinfo @adoobj,@src out,@desc out
select cast(@err as binary(4)) as 错误号,@src as 错误源,@desc as 错误描述
end