jsc
15-09-2005, 15:48:14
:confused:
Tengo problemas a la hora de querer tratar los errores que me da una simple aplicación creada en Delphi 5.0 como puede ser una agenda.
Utilizo componentes TADOQuery para hacer consultas ya que al situarme sobre los registros, muestro una foto del contacto de la agenda si es que hubiera.
El caso es que cuando ejecuto una consulta para mostrar unos contactos, en ocasiones obtengo el siguiente error: " ... raised exception class EOleException... " y la aplicación finaliza.
El código que utilizo es el siguiente para hacer la consulta:
procedure BuscarEnLista(Letra : string);
begin
Form1.ADOQueryP.Close ;
Form1.ADOQueryP.Parameters.Clear ;
Form1.ADOQueryP.SQL.Clear ;
Form1.ADOQueryP.SQL.Add ('SELECT Registro, Nombre, Apellidos, Telefono, Movil, Fax, Foto FROM Agenda') ;
Form1.ADOQueryP.SQL.Add ('WHERE Nombre Like :Texto') ;
Form1.ADOQueryP.Parameters.ParamByName ('Texto').Value := Letra + '%' ;
If Not Form1.ADOQueryP.Prepared Then
Begin
Form1.ADOQueryP.Close ;
Form1.ADOQueryP.Open ;
End;
Form1.ADOQueryS.Close ;
Form1.ADOQueryS.Parameters.Clear ;
Form1.ADOQueryS.SQL.Clear ;
Form1.ADOQueryS.SQL.Add ('SELECT E_Mail_1, E_Mail_2, Direccion, Comentarios FROM Agenda') ;
Form1.ADOQueryS.SQL.Add ('WHERE Registro = :Reg') ;
Form1.ADOQueryS.Parameters.ParamByName ('Reg').Value := Form1.ADOQueryP.FieldByName ('Registro').Value ;
If Not Form1.ADOQueryS.Prepared Then
Begin
Form1.ADOQueryS.Close ;
Form1.ADOQueryS.Open ;
End;
end;
Utilizo las instrucciones "Try...Except" para darle un tratamiento al error conseguir que la aplicación no finalice:
{...}
If Not Form1.ADOQueryP.Prepared Then
Begin
Form1.ADOQueryP.Close ;
Try
Form1.ADOQueryP.Open ;
Except
On E : Exception Showmessage (E.Message) ;
End;
End;
{...}
El problema es que las nuevas línes de código que hacen referencia a "Try...Except" es como si no estuvieran ya que no consigo lo deseado.
He probado con todo y nada.
Agradecería que alguien me echara una mano
Tengo problemas a la hora de querer tratar los errores que me da una simple aplicación creada en Delphi 5.0 como puede ser una agenda.
Utilizo componentes TADOQuery para hacer consultas ya que al situarme sobre los registros, muestro una foto del contacto de la agenda si es que hubiera.
El caso es que cuando ejecuto una consulta para mostrar unos contactos, en ocasiones obtengo el siguiente error: " ... raised exception class EOleException... " y la aplicación finaliza.
El código que utilizo es el siguiente para hacer la consulta:
procedure BuscarEnLista(Letra : string);
begin
Form1.ADOQueryP.Close ;
Form1.ADOQueryP.Parameters.Clear ;
Form1.ADOQueryP.SQL.Clear ;
Form1.ADOQueryP.SQL.Add ('SELECT Registro, Nombre, Apellidos, Telefono, Movil, Fax, Foto FROM Agenda') ;
Form1.ADOQueryP.SQL.Add ('WHERE Nombre Like :Texto') ;
Form1.ADOQueryP.Parameters.ParamByName ('Texto').Value := Letra + '%' ;
If Not Form1.ADOQueryP.Prepared Then
Begin
Form1.ADOQueryP.Close ;
Form1.ADOQueryP.Open ;
End;
Form1.ADOQueryS.Close ;
Form1.ADOQueryS.Parameters.Clear ;
Form1.ADOQueryS.SQL.Clear ;
Form1.ADOQueryS.SQL.Add ('SELECT E_Mail_1, E_Mail_2, Direccion, Comentarios FROM Agenda') ;
Form1.ADOQueryS.SQL.Add ('WHERE Registro = :Reg') ;
Form1.ADOQueryS.Parameters.ParamByName ('Reg').Value := Form1.ADOQueryP.FieldByName ('Registro').Value ;
If Not Form1.ADOQueryS.Prepared Then
Begin
Form1.ADOQueryS.Close ;
Form1.ADOQueryS.Open ;
End;
end;
Utilizo las instrucciones "Try...Except" para darle un tratamiento al error conseguir que la aplicación no finalice:
{...}
If Not Form1.ADOQueryP.Prepared Then
Begin
Form1.ADOQueryP.Close ;
Try
Form1.ADOQueryP.Open ;
Except
On E : Exception Showmessage (E.Message) ;
End;
End;
{...}
El problema es que las nuevas línes de código que hacen referencia a "Try...Except" es como si no estuvieran ya que no consigo lo deseado.
He probado con todo y nada.
Agradecería que alguien me echara una mano