PDA

Ver la Versión Completa : mensaje de respuesta a error


jhcaboverde
23-01-2007, 19:08:11
aqui les pongo un pedazo del codigo para que me ayuden a como cuando de ur error adentro poder captarlo y devolver un mensaje al usuario.

ADOTable1.Active:=false;
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'\BDCOMBUSTIBLE97.mdb;Persist Security Info=False';
ADOTable1.TableName:='Vehiculo';
ADOTable1.Active:=True;

Bicho
23-01-2007, 19:18:53
Hola, ¿has probado a encerrar ese código dentro de un bloque try..except?


try
ADOTable1.Active:=false;
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'\BDCOMBUSTIBLE97.mdb;Persist Security Info=False';
ADOTable1.TableName:='Vehiculo';
ADOTable1.Active:=True;
except
on e:AquiVaElTipoDeExcepcionATratar(BuscaTeclaAyudaDelphi) do
ShowMessage('Aqui va el mensaje que quieras mostrar al usuario');
end;


Revisa en la ayuda de Delphi los tipos de excepciones a tratar para poder capturarlas y mostrar un mensaje adecuado a cada uno.

Espero te sirva.

Saludos