Duda de principiante (Help!!!!)

taeyin · #1 04-06-2005

Hola. Soy un recién iniciado al Delphi y al Interbase, asi como al SQL. Tengo una dudilla, a ver si me podeis hechar un cable.

Tengo el siguiente código, que funciona sin problemas:

Cita:

var str:string;
begin
str:=box.text;

DataModule3.IBDataSet1.SelectSQL.Clear;
DataModule3.IBDataSet1.Close;
DataModule3.IBDataSet1.SelectSQL.text:=str;

DataModule3.IBDataSet1.OPEN;
end;

donde: box es una caja de texto
str representa la consulta (sentencia SQL) a ejecutar

Mi duda es:

Si en la caja de texto introduzco una sentencia que no sea del todo válida bien porque no exista la tabla nosequé o la columna nosecuantos o cualquier cosa, me da un error y el programa termina. ¿Hay alguna forma de "capturar" esos errores, hacer que el programa muestre un mensajito de error personalizado y NO termine el programa?

Muchas Gracias!!

vtdeleon · #2 04-06-2005

Saludos

Puedes usar Try Except:

Código Delphi [-]Begin
 ...
   try
     //Tu codigo para abrir
         DataModule3.IBDataSet1.OPEN;
   Except
  Showmessage('Tu Mensaje');
   end;
   end;

Puedes consulta esta Pagina(en ingles): Delphi Basics.

[Crandel] · #3 04-06-2005

Un detalle manor es borrar la consulta una vez cerrada tu DataSet:

Cita:

Empezado por taeyin

Código SQL [-]DataModule3.IBDataSet1.SelectSQL.Clear;
DataModule3.IBDataSet1.Close;
DataModule3.IBDataSet1.SelectSQL.text:=str;

DataModule3.IBDataSet1.OPEN;

por

Código SQL [-]DataModule3.IBDataSet1.Close;
DataModule3.IBDataSet1.SelectSQL.Clear;
DataModule3.IBDataSet1.SelectSQL.text:=str;

DataModule3.IBDataSet1.Open;

Realmente no modifica prácticamente tu código, pero la idea es borrar la consulta cuando esta cerrada y no antes.