sql服務器調通了外網連接,需要解決的問題是:
(1)接入內網時,通過內網ip連接到資料庫
(2)接入外網時,通過外網ip連接到資料庫
目前我在資料模塊用try except end可以實作功能,但問題是當地址1不能連接時需要好長時間才能連接到地址2,即,運行程式后,如果地址1不能連接時要過好長時間才能出來登陸界面。請教各位前輩有沒有更好的辦法解決。
下面是我用到的代碼:
procedure TDM.DataModuleCreate(Sender: TObject);
begin
conn1.Connected:=false;
try
conn1.ConnectionString:='Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=sa;Initial Catalog=dbname;Data Source=內網ip';
conn1.LoginPrompt:=false;
conn1.Connected:=true;
except
conn1.connected:=false;
conn1.ConnectionString:='Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=sa;Initial Catalog=dbname;Data Source=外網ip';
conn1.LoginPrompt:=false;
conn1.Connected:=true;
end;
end;
uj5u.com熱心網友回復:
有個簡單的辦法, 就是開兩個執行緒同時連接,誰先連上了就用誰,是不是可以uj5u.com熱心網友回復:
TimeOut設短些轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/107249.html
標籤:數據庫相關
上一篇:delphi6.0
