752
社区成员
发帖
与我相关
我的任务
分享
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_UpDown]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_UpDown]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
SET ANSI_WARNINGS ON
GO
CREATE PROC P_UpDown
AS
Insert test(aa,bb) Select aa,bb From Zd.test.dbo.test
RETURN
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET ANSI_WARNINGS ON
GO
DECLARE P1 PROCEDURE FOR P_UpDown;
EXECUTE P1;
IF sqlca.sqlcode = -1 THEN
Messagebox('',sqlca.sqlerrtext)
RollBack;
ELSE
Commit;
messagebox('','OK')
END IF
IF EXISTS (select * from master..sysservers where srvname = 'ZD')
exec sp_dropserver 'ZD', 'droplogins'
exec sp_addlinkedserver 'ZD', '', 'SQLOLEDB', '192.168.1.85'
exec sp_addlinkedsrvlogin 'ZD', 'false', null, 'sa', ''
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "test"
SQLCA.ServerName = "127.0.0.1"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = false
SQLCA.DBParm = ""