在delphi中怎样判断联接sql server 成功!(0分)

L

lhxs

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中怎样判断联接sql server 成功!
 
G

gear1023

Unregistered / Unconfirmed
GUEST, unregistred user!
简单的办法
{........}
Conn: TADOConnection
{........}
procedure ....
var
sOut: string;
begin
Conn.Connected := False
Conn.ConnectionString := 'Provider=SQLOLEDB.1;Password=delphi;Persist Security Info=True;User ID=sa;Initial Catalog=Master;Data Source=XXXSERVER;'
sOut := 'Connecting...';
try
Conn.Connected := True;
sOut := 'Connect OK';
Except
sOut := 'Connect ERROR';
end;
ShowMessage(sOut);
end;
 
F

fsse4000

Unregistered / Unconfirmed
GUEST, unregistred user!
W

winmax

Unregistered / Unconfirmed
GUEST, unregistred user!
用一个adoconnection控件,然后直接连接一下数据库不就行了吗~~
 
L

lhxs

Unregistered / Unconfirmed
GUEST, unregistred user!
那怎样屏蔽错误返回信息?
 
L

lxrlxr2002

Unregistered / Unconfirmed
GUEST, unregistred user!
eExcept
sOut := 'Connect ERROR';//把这句去掉不就成了
end;
 
B

bill_won

Unregistered / Unconfirmed
GUEST, unregistred user!
try
Conn.Connected := True;
sOut := 'Connect OK';
Except
sOut := 'Connect ERROR';
end;

同意,并补充:)
CONN.CONNECTION:=TRUE;

CONN.OPEN;
效果是一样的,就是如果open了再open会错,不过,close了再close不会错,所以,我一般,open前先close:)
当open的时候,如果打不开,系统就会抛一个错误,用try检测就可以。
 
S

sik

Unregistered / Unconfirmed
GUEST, unregistred user!
测试速度很慢啊.
 

皓月千里

Unregistered / Unconfirmed
GUEST, unregistred user!
设置ADOConnection.ConnectTimeOut := 3;
//3秒后告诉你联通了没有, 本机设为1就行了.
 
L

lhxs

Unregistered / Unconfirmed
GUEST, unregistred user!
哦,原来是在调试程序时,要显示。而在编译完了以后不显示哦!谢谢各位
 
Y

yonggang402

Unregistered / Unconfirmed
GUEST, unregistred user!
对呀,你运行一次之后,run-〉reset,然后再执行可执行文件,.exe文件,这样就不会出错了,可能是因为sql语句的错误吧
 

Similar threads

顶部