Error de Sintaxis en SQL

[feliz-58]

Código SQL [-]
begin
Qtemp.Close;
Qtemp.SQL.Clear;
Qtemp.SQL.add('INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre,');
Qtemp.SQL.add('Terminos, CodVendedor, PorcDescuento, TasaImpuesto, Subtotal,');
Qtemp.SQL.add('Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque,');
Qtemp.SQL.add('MntOtro, Pagado, Saldo) Values '+QuotedStr(CODFact)+',');
Qtemp.SQL.add(''+QuotedStr(lfecha.Caption)+','+QuotedStr(Ecodigo.Text)+',');
Qtemp.SQL.add(''+QuotedStr(lnombrecliente.Caption)+','+QuotedStr(CBtipo.Text)+',');
Qtemp.SQL.add(''+QuotedStr(Lvendedor.Caption)+','+QuotedStr(FLEPorcDesc.Text)+',');
Qtemp.SQL.add(''+IntTosTr(18)+','+QuotedStr(FloatToStr(Subtotal))+',');
Qtemp.SQL.add(''+QuotedStr(FloatToStr(Desc))+','+QuotedStr(FloatToStr(Impuesto))+',');
Qtemp.SQL.add(''+QuotedStr(FloatToStr(Total))+','+Mntcontado+','+Mnttarjeta+','+MntCheque+',');
Qtemp.SQL.add(''+Mntotro+','+MntPagado+','+MntSaldo+'');
Qtemp.ExecSQL;
end;

Me pueden Decir donde esta el Error.

[[AgustinOrtu]]

Para que estan los parser de SQL?

[feliz-58]

Empezado por AgustinOrtu

Para que estan los parser de SQL?

No te entiendo :S

[[AgustinOrtu]]

Si ejecutas esa consulta, me imagino que te dice cual es el error

Eso es porque el parser interpreta tu consulta y te dice "en la linea numero tal tenes un error", o "luego de la palabra fulano tenes un error"

Mirando muy rapido, es INSERT INTO [Tabla] (Campos) VALUES (Valores)

Te faltan los parentesis

(QuotedStr(CODFact) + ',') = "[ValorCodFact],"

Creo que quisiste poner QuotedStr(CODFact) + ','

[feliz-58]

Empezado por AgustinOrtu

Si ejecutas esa consulta, me imagino que te dice cual es el error

Eso es porque el parser interpreta tu consulta y te dice "en la linea numero tal tenes un error", o "luego de la palabra fulano tenes un error"

ahh disculpa,
Error de sintaxis en la instruccion Insert Into

[Casimiro Noteví]

Incluso se puede ver el lugar del error mirando el cambio de color que se produce

[feliz-58]

Empezado por AgustinOrtu

Si ejecutas esa consulta, me imagino que te dice cual es el error

Eso es porque el parser interpreta tu consulta y te dice "en la linea numero tal tenes un error", o "luego de la palabra fulano tenes un error"

Mirando muy rapido, es INSERT INTO [Tabla] (Campos) VALUES (Valores)

Te faltan los parentesis

(QuotedStr(CODFact) + ',') = "[ValorCodFact],"

Creo que quisiste poner QuotedStr(CODFact) + ','

Amigo no entendi nada de lo que dijiste, sorry.

Empezado por Casimiro Notevi

Incluso se puede ver el lugar del error mirando el cambio de color que se produce

Casimiro, no es ese el problema (y por si las moscas cambien la expresion del Desc)

[Casimiro Noteví]

Empezado por feliz-58

Amigo no entendi nada de lo que dijiste, sorry.
Casimiro, no es ese el problema (y por si las moscas cambien la expresion del Desc)

Los dos te estamos diciendo donde está el error.
¿Cuál es el problema entonces?

[roman]

Empezado por feliz-58

Me pueden Decir donde esta el Error.

A ojo de buen cubero yo diría que el error está en que no hay paréntesis que rodeen la lista de valores. La sintaxis general de INSERT es:

Código SQL [-]
INSERT INTO tabla
(columna, columna, columna, ...)
VALUES (valor, valor, valor, ...)

Te faltan los paréntesis marcados en rojo.

LineComment Saludos

[feliz-58]

Empezado por roman

A ojo de buen cubero yo diría que el error está en que no hay paréntesis que rodeen la lista de valores. La sintaxis general de INSERT es:

Código SQL [-]
INSERT INTO tabla
(columna, columna, columna, ...)
VALUES (valor, valor, valor, ...)

Te faltan los paréntesis marcados en rojo.

LineComment Saludos

Código SQL [-]
begin
Qtemp.Close;
Qtemp.SQL.Clear;
Qtemp.SQL.add('INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre,');
Qtemp.SQL.add('Terminos, CodVendedor, PorcDescuento, TasaImpuesto, Subtotal,');
Qtemp.SQL.add('Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque,');
Qtemp.SQL.add('MntOtro, Pagado, Saldo) Values ('+QuotedStr(CODFact)+',');
Qtemp.SQL.add(''+QuotedStr(lfecha.Caption)+','+QuotedStr(Ecodigo.Text)+',');
Qtemp.SQL.add(''+QuotedStr(lnombrecliente.Caption)+','+QuotedStr(CBtipo.Text)+',');
Qtemp.SQL.add(''+QuotedStr(Lvendedor.Caption)+','+QuotedStr(FLEPorcDesc.Text)+',');
Qtemp.SQL.add(''+IntTosTr(18)+','+QuotedStr(FloatToStr(Subtotal))+',');
Qtemp.SQL.add(''+QuotedStr(FloatToStr(Descuent))+','+QuotedStr(FloatToStr(Impuesto))+',');
Qtemp.SQL.add(''+QuotedStr(FloatToStr(Total))+','+Mntcontado+','+Mnttarjeta+','+MntCheque+',');
Qtemp.SQL.add(''+Mntotro+','+MntPagado+','+MntSaldo+')');
Qtemp.ExecSQL;
end;

Lo puse de esta forma y esta el mismo error.

[roman]

Examina la propiedad Qtemp.SQL.Text después del último ADD y ponla aquí. Eso nos mostrará la sentencia SQL final y podremos ver mejor dónde está el error.

LineComment Saludos

[feliz-58]

Comencé a escribir el codigo de nuevo paso a paso, y comienza a dar error cuando comienzo a agregar los términos de +Mntcontado+ este y los otros (+Mnttarjeta+ +MntCheque+ +Mntotro+ +MntPagado+ +Mntsaldo+) son variables String,
necesitan alguna conversión o algo mas para que el código no de error?

[[AgustinOrtu]]

Es que una consulta SQL escrita asi es un lio para entender

Te recomiendo, como siempre decimos, que uses parametros.

Refactoriza tu codigo para que siga mas o menos este estilo

Código Delphi [-]
  QTemp.SQL.Add(' INSERT INTO Factura (Campo1, Campo2, ...CampoN) ');
  QTemp.SQL.Add(' VALUES (:Campo1, :Campo2, ... :CampoN ');

  // es posible que en algunos casos tengas que especificar el tipo del parametro
  // en la mayoria de los casos lo "reconoce" solo
  QTemp.Parameters.ParamByName('Campo1').DataType:= ftString;
  QTemp.Parameters.ParamByName('Campo2').DataType := ftInteger;
  QTemp.Parameters.ParamByName('Campo3').DataType := ftCurrency;

  // para los componentes ADO se usa Query.Parameters.ParamByName
  QTemp.Parameters.ParamByName('Campo1').Value := ValorCampo1;
  QTemp.Parameters.ParamByName('Campo2').Value := ValorCampo2;

  // el resto de los componentes de acceso a datos, directamente Query.ParamByName
  QTemp.ParamByName('Campo1').Value := ValorCampo1;
  QTemp.ParamByName('Campo2').Value := ValorCampo2;