象楼上说的 用timer控件 begin try ADOconnection1.Connected := True; except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功! Exit; end; end;
象楼上说的 用timer控件 begin try ADOconnection1.Connected := True; except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功! Exit; end; end;
begin
try ADOconnection1.Connected := True;
except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功!
Exit;
end;
end;
begin
try ADOconnection1.Connected := True;
except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功!
Exit;
end;
end;