客户端有一个服务程序 连接数据库如下:我现在的问题是,当我服务器数据库没有打开的情况下,我的客户端在执行 Connected:=True时候竟然没有任何反应,也不报错,也不执行下去,我写过try except ,但except也不执行,但是当我服务器端的数据库起起来后,连接就没有问题,真的让我很头疼啊,各位帮帮忙啊
v_String:=GetSQLServerADODefaultConnectString(A_DB_Name,A_Datasource);
StringToWideChar(v_String,v_Connect,Length(v_String)*2);
with AdoConn do
begin
AdoConn.Close;
Connected:=False;
LoginPrompt:=False;
IsolationLevel:=ilCursorStability;
CursorLocation:=clUseClient;
ConnectOptions:=coConnectUnspecified;
ConnectionTimeout:=15;
CommandTimeout:=30;
KeepConnection:=True;
ConnectionString:= v_Connect;
Connected:=True;
end;
v_String:=GetSQLServerADODefaultConnectString(A_DB_Name,A_Datasource);
StringToWideChar(v_String,v_Connect,Length(v_String)*2);
with AdoConn do
begin
AdoConn.Close;
Connected:=False;
LoginPrompt:=False;
IsolationLevel:=ilCursorStability;
CursorLocation:=clUseClient;
ConnectOptions:=coConnectUnspecified;
ConnectionTimeout:=15;
CommandTimeout:=30;
KeepConnection:=True;
ConnectionString:= v_Connect;
Connected:=True;
end;
with AdoConn do
begin
AdoConn.Close;
Connected:=False;
LoginPrompt:=False;
IsolationLevel:=ilCursorStability;
CursorLocation:=clUseClient;
ConnectOptions:=coConnectUnspecified;
ConnectionTimeout:=15;
CommandTimeout:=30;
KeepConnection:=True;
ConnectionString:= v_Connect;
Connected:=True;
end;
exceptend;