Cita:
|
Empezado por rruz
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not ADOConnection1.Connected then
begin
ADOConnection1.Connected:=True;
ADODataSet1.Close;
ADODataSet1.CommandText:=('SELECT curtime()');
ADODataSet1.Open;
label1.Caption:=ADODataSet1.Recordset.Fields.Item[0].value;
end else
begin
ADOConnection1.Open
end;
end; |
Con esto debería funcionar, fijate donde pones el "
ADOConnection1.Open".
Podes usarlo en la excepción en vez de en el else. Además como lo tenes en un timer cuando se levante la DB se va a volver a conectar sin problemas. Si queres, para que no te salga el cartel de error podes poner todo el bloque en una excepcion y si no se conecta no haces nada, total volves a intentar cuando se ejecute el timer.
Saludos y cualquier duda prgunta tranquilo.