Ver Mensaje Individual
  #1  
Antiguo 05-06-2011
manuFP manuFP is offline
Registrado
NULL
 
Registrado: jun 2011
Posts: 6
Reputación: 0
manuFP Va por buen camino
Como Tratar Excepciones En Delphi Al Ejecutar Sentencia Sql

Hola a todos.

Primero me presento, soy Manuel y esta es la primera vez que escribo por aquí.

He intentado buscar algo referente a ésto en los distintos foros y no he sido capaz de encontrar nada.

Si no supe buscar bien pido disculpas y os ruego ayuda agradeciéndoos de antemano.

Tengo un objeto memo en un formulario, a través del cuál escribo las sentencias sql que cargo en la propiedad correspondiente de un query, lo que quiero es que cuando introduzca algún dato en la consulta con errores de escritura en la frase sql, que no me corte el programa y tenga que volverlo a ejecutar escribiendo de nuevo toda la frase sql.

Supongo que eso se hace con manejo de excepciones?

el caso es que lo he intentado aplicar y no hay forma humana de que me funcione.

El trozo concreto de código es el siguiente:
Código Delphi [-]
 
...
  try
    dmquerys.Query1.ExecSQL;
  except
      on E:Exception do
      begin
        SHOWMESSAGE('Fallo en Sentencia SQL');
        DMQUERYS.Query1.SQL.Clear;
        DMQUERYS.QUERY1.SQL.Add('SELECT * FROM [tabla]');
      end;
  END;
  DMQUERYS.QUERY1.Open;
....
cuando me equivoco en la sentencia sql (en tiempo de ejecución), nada más llegar a la línea que hay a continuación de la sentencia try me dispara en error de EDBEngineerror......

¿Hay alguna manera de solucionarlo de forma que no se corte la ejecución del programa y que pueda sacar el típico mensaje "Error en sentencia sql" o algo similar?

Muchas Gracias.
Manuel.

Última edición por ecfisa fecha: 05-06-2011 a las 22:05:28. Razón: Etiquetas [DELPHI] [/DELPHI]
Responder Con Cita