Ver Mensaje Individual
  #4  
Antiguo 26-04-2006
JCarlosas JCarlosas is offline
Miembro
 
Registrado: abr 2006
Ubicación: Habana. Cuba
Posts: 103
Reputación: 19
JCarlosas Va por buen camino
Aqui te envio una funcion que uso a diario.

El componente TZquery tienes que haberlo puesto de antemano en el formulario y haberlo conectado al TZConnection como ya conoces.
ConsultaSQL es una consulta correctamente formada de insercion o actualizacion.


Código Delphi [-]
function insertarSQL(var Qry: TZQuery; ConsultaSQL: String) : boolean;
 Begin
   result := true;
   try
    if  Qry.Active then Qry.Close;
    Qry.SQL.Clear ;
    Qry.SQL.Add(ConsultaSQL);
    Qry.ExecSQL;
   except on E: Exception do Begin
                               result := false; //Aqui podrias hacer otras cosas
                                                   // tambien en caso de que la  consulta fallase por estar mal formada 
//la consulta, porque intentas insertar una llave duplicada o por  bla bla bla ......

                             End;  //except on E: Exception do Begin
   end;  //  try
 end;

Espro que te sea util.
Saludos
Juan Carlos
Responder Con Cita