必須要知道IP地址的
sqlserver服務(wù)器-->開始菜單-->SQLserver-->服務(wù)器網(wǎng)絡(luò)實(shí)用工具-->
啟用 WinSock代理-->代理地址:(sqlserver服務(wù)器IP)-->代理端口-
->1433-->
利用ADOConnection組件,通過(guò)IP連接就可以了
或者建立.udl文件,給adoconnection.ConnectionString賦值可以動(dòng)態(tài)連接。
如
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=databasename;Data Source=10.12.111.33
連接主機(jī)不固定IP:自己輸入IP
可以真正的實(shí)現(xiàn)遠(yuǎn)程登陸,和不同局域網(wǎng)內(nèi)的登陸,遠(yuǎn)程主機(jī)要有指定的公網(wǎng)ip就的了。
我的遠(yuǎn)程登陸是這樣,沒問(wèn)題的:
procedure TForm_server.Button2Click(Sender: TObject);
var
servername,databasename,ad,password:string;
connect:string;
begin
check;
servername:=combobox1.Text; //對(duì)方IP
databasename:=combobox2.Text; //數(shù)據(jù)庫(kù)名稱
ad:=edit1.Text; //user id=SA
password:=edit2.Text;
form1.ADOConnection1.Close;
connect:=‘Provider=SQLOLEDB.1;Password=‘+password+‘;Persist Security Info=false;User ID=‘+ad+‘;Initial Catalog=‘+databasename+‘;Data Source=‘+servername;
form1.ADOConnection1.ConnectionString:=connect;
form1.ADOConnection1.CommandTimeout :=10;
try
form1.ADOConnection1.Open;
form1.ADOConnection1.Connected:=true;
form_server.login:=true;
//showmessage(‘服務(wù)器連接成功!‘);
form_server.Close;
except
messagedlg(‘服務(wù)器連接失敗,請(qǐng)檢查網(wǎng)絡(luò)設(shè)備是否正常工作,或輸入信息是否有誤!‘+#13+#13+‘系統(tǒng)將在2秒后自動(dòng)關(guān)閉。‘,mtWarning,[mbOk],0);
sleep(2000);
//form_server.login:=true;
//form_server.Hide;
//application.Terminate;
//application.run;
form1.Close;
end;
end;
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)
點(diǎn)擊舉報(bào)。