No encuentro el error en esta sentencia Sql.....

[Casimiro Noteví]

Pero copia y pega aquí el mensaje exacto, que tenemos la bola de cristal en el servicio técnico y hasta el lunes no está lista.

[verito_83mdq]

Código SQL [-]
with QueryDataModule.ConyugeZQuery do 
                begin 
                     If active then close; 
                     SQL.Clear; 
                     SQL.Add('Insert Into cliente(Apellido,Nombre)'); 
                     SQL.Add('Values (:Apel,:Nom)'); 
                     ParamByName('Apel').Value:=AltasForm.ApellidoEdit.Text; 
                     ParamByName('Nom').Value:=AltasForm.NombreEdit.Text; 
                     ExecSQL; 
                end; 
              end;

Código Delphi [-]
  QueryDataModule.ClienteZQuery.Close;

                 flag:=False;

                 NuevaTarjetaForm.Close;

                 AltasForm.Close;

                 release;

Código Delphi [-]
[Error] DatosVentas.pas(419): Declaration expected but identifier 'QueryDataModule' found

Ahí Esta Todo, lo que te explicaba hoy es que abajo de la consulta tengo el código que sigue
si anulo el ClienteZQuery.Close, me tira error en flag, y así continuo hasta el End.
Saludos!

[Casimiro Noteví]

¿Y qué hay antes de
QueryDataModule ?

[verito_83mdq]

Esta la consulta y seguido a esta el codigo. Y antes de la consulta no hay nada. Que opinas que puede ser? Gracias!!!

[defcon1_es]

Hola, creo que te sobra un end;

Código Delphi [-]
with QueryDataModule.ConyugeZQuery do 
begin 
  If active then close; 
  SQL.Clear; 
  SQL.Add('Insert Into cliente(Apellido,Nombre)'); 
  SQL.Add('Values (:Apel,:Nom)'); 
  ParamByName('Apel').Value:=AltasForm.ApellidoEdit.Text; 
  ParamByName('Nom').Value:=AltasForm.NombreEdit.Text; 
  ExecSQL; 
  end; //Este sobra.
end;

[microbiano]

umm creo que el problema esta en que no tienes declarado el el uses el form de donde tomas los datos , ahora si es el mismo por que no pruebas de la siguiente manera.

Código Delphi [-]
with QueryDataModule.ConyugeZQuery do
     begin
      SQL.Clear;
      SQL.Add('insert into cliente(apellido,nombre)');
      SQL.Add('values(:Papellido,:Pnombre)');
      Parameters.ParamByName('Papellido').Value:=self.ApellidoEdit.text;
      Parameters.ParamByName('Pnombre').Value:=self.Nombreedit.text;     
      try
       ExecSQL;
       Application.MessageBox('Registro Almacenado con Éxito','Error', MB_OK + MB_ICONINFORMATION);       
      except
      on E:EOleException do
       begin
        MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
       end;
      end;
     end;

tienes que hacer mencion a la libreria ComObjs para que funcione, es este caso al menos capturamos el mensaje para ver que es.

[[Chris]]

mmm.. amigo, debes saber que en algunos tipos de error Delphi indica visualmente que el problema está en la línea 15 cuando en realidad está en la línea 14 por ejemplo. En otras ocaciones hay varias líneas de diferencia. Es por eso que lo mejor sería que nos proporcionaras todo el código del procedimiento para ayudarte a debugearlo.

Saludos,
Chris

[verito_83mdq]

No se enojen muchachos pero el ganador es defcon1, le borre el end y compilo lo mas bien, tenia entendido que llevaba el end, es mas vi varios ejemplos de consultas en varias lines y el with se cerraba con el end
Me siento mal por hacerles perder tiempo por semejante pavada! Lo cómico es que tengo una consulta partida en varias lineas pero de Update y si le saco el end no compila! Que opinan ustedes, acepto criticas!
Saludos!