在注册表
HKEY_LOCAL_MACHINE-----SOFTWARE-----MICROSOFT---MSSQLSERVER--CLIENT---CONENECTTO
中添加如下字符值:'SERVERNAME',‘DBMSSOCN,192.168.0.1,1433’
^^___你的另一服务器名称 ^^对应的IP地址也可以在某台服务器上再注册一个新服务器连接到另一服务器然后将数据库连接部件连接到SERVERNAME即可像访问本地服务器一样。
HKEY_LOCAL_MACHINE-----SOFTWARE-----MICROSOFT---MSSQLSERVER--CLIENT---CONENECTTO
中添加如下字符值:'SERVERNAME',‘DBMSSOCN,192.168.0.1,1433’
^^___你的另一服务器名称 ^^对应的IP地址也可以在某台服务器上再注册一个新服务器连接到另一服务器然后将数据库连接部件连接到SERVERNAME即可像访问本地服务器一样。
SQL.Add('Where SrvName =:SrvName');
ParamByName('SrvName').AsString:=sServer_Name;
Open;
if eof then
Try
SQL.Clear;
SQL.Add('sp_AddLinkedServer :SrvName');
ParamByName('SrvName').AsString:=sServer_Name;
ExecSQL;
SQL.Clear;
SQL.Add('sp_addlinkedsrvlogin :SrvName, ''false'', NULL, :UserName, :UserPass');
ParamByName('SrvName').AsString:=sServer_Name;
ParamByName('UserName').AsString:=sUser_Name;
ParamByName('UserPass').AsString:=sPassword;
ExecSQL;
except
Raise Exception.Create('备份数据库配置错误!');
end;
//以下是使用:
sServerID:=sServer_Name+'.'+sServer_DataBase+'.dbo.';
with qrybkServer do
begin
SQL.Clear;
sString:='Select * into TABLE1 from '+sServerID+'TABLE2';
SQL.Add(sString);
ExecSQL;
end;