小弟日前遇到一新问题!就是不知道怎样判断ADO控件连接数据是否成功!!以前我用的是TRY
ADOConnect1.Connected := True;
.......
Except
Showmessage('数据库连接不成功!')
.......
End;但现在我必须用ADO控件本身的方法来判断是否连接数据库成功!!请问一下该怎么做呀!
ADOConnect1.Connected := True;
.......
Except
Showmessage('数据库连接不成功!')
.......
End;但现在我必须用ADO控件本身的方法来判断是否连接数据库成功!!请问一下该怎么做呀!
stOpen Connection object is inactive, but connected to a database.
stConnecting Connection object is in the process of connecting to a atabase.
stExecuting Connection object is currently executing.
stFetching Connection object is retrieving data from the database.
begin
if stClosed in ADOConnection1.State then
ShowMessage('Close');
if stOpen in ADOConnection1.State then
ShowMessage('Open');
if stConnecting in ADOConnection1.State then
ShowMessage('Connecting');
//.....
end;end.
...//连上了
esle
...//没连上
begin
showmessage('ok');
end else
begin
showmessage('error');
end;
adoquery.open;或adoquery.execsql;
.......
Except
Showmessage('数据库连接不成功!')
.......
End;
if ado.active =true then
showmessage()
else
showmessage();
窗体中的测试链接即可。