Error de Sintaxis en SQL

feliz-58 · #1 23-02-2016

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] · #2 23-02-2016

Para que estan los parser de SQL?

feliz-58 · #3 23-02-2016

Cita:

Empezado por AgustinOrtu

Para que estan los parser de SQL?

No te entiendo :S

[AgustinOrtu] · #4 23-02-2016

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 · #5 23-02-2016

Cita:

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 Notevi · #6 23-02-2016

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

feliz-58 · #7 23-02-2016

Cita:

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.

Cita:

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 Notevi · #8 23-02-2016

Cita:

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?

feliz-58 · #9 23-02-2016

Cita:

Empezado por Casimiro Notevi

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

arregle el detalle que me dijiste, en vez de utilizar la variable "Desc" la cambie por Descuento.

pero lo que me explico el otro compañero, no lo entiendo, puedes explicarmelo para yo aplicarlo al codigo

roman · #10 23-02-2016

Cita:

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 · #11 23-02-2016

Cita:

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 · #12 23-02-2016

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 · #13 23-02-2016

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] · #14 23-02-2016

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;

roman · #15 23-02-2016

Totalmente de acuerdo. Es casi imposible detectar nada en ese código. Aún sin llegar a lo que comenta Agustín (y hay que llegar a ello), hay que tratar de ser más prolijos. Por ejemplo, ¿para qué son todas esas cadenas vacías que concatenas en la últimas líneas? ¿Para qué conviertes 18 en cadena pudiendo colocarlo directamente en el resto de la cadena? ¿Por qué introduces valores numéricos como cadenas teniendo que hacer una doble conversión?

Además, armar las consultas SQL línea a línea y sobre la marcha es algo que debería estar "prohibido". Código confuso y de difícil mantenimiento garantizado.

LineComment Saludos

feliz-58 · #16 23-02-2016

Código SQL [-]with Qtemp do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre, Terminos, CodVendedor, PorcDescuento, TasaImpuesto, ' + 
                      'Subtotal, Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque, MntOtro, Pagado, Saldo) ' +
                      'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+ 
                      ':Impuesto, :Total, :Contado, :tarjeta, :Cheque, :Otro, :Pagado, :Saldo)';
Parameters.ParamByName('CodFactura').Value:= CODFact;
Parameters.ParamByName('Fecha').Value:= lfecha.Caption;
Parameters.ParamByName('CodCliente').Value:= Ecodigo.Text;
Parameters.ParamByName('NombreCliente').Value:= lnombrecliente.Caption;
Parameters.ParamByName('Tipo').Value:= CBtipo.Text;
Parameters.ParamByName('Vendedor').Value:= Lvendedor.Caption;
Parameters.ParamByName('PorcDescuento').Value:= FLEPorcDesc.Text;
Parameters.ParamByName('Impuesto').Value:= IntTosTr(18);
Parameters.ParamByName('SubTotal').Value:= FloatToStr(Subtotal);
Parameters.ParamByName('Descuento').Value:= FloatToStr(Descuent);
Parameters.ParamByName('Impuesto').Value:= FloatToStr(Impuesto);
Parameters.ParamByName('Total').Value := FloatToStr(Total);
Parameters.ParamByName('Contado').Value:= Mntcontado;
Parameters.ParamByName('Tarjeta').Value:= Mnttarjeta;
Parameters.ParamByName('Cheque').Value:= MntCheque;
Parameters.ParamByName('Otro').Value:= Mntotro;
Parameters.ParamByName('Pagado').Value:= MntPagado;
Parameters.ParamByName('Saldo').Value:= Mntsaldo;
  ExecSQL;
 end;

hay esta mis Hijos xD

[AgustinOrtu] · #17 23-02-2016

Lo bueno de usar parametros es que no hay que estar convirtiendo a string

Simplemente le pones "el valor que va" y el componente se las va a arreglar para mandar a la BD el parametro

Ahora funciona o da error? Cual?

roman · #18 23-02-2016

Cita:

Empezado por feliz-58

Código SQL [-]'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+

hay esta mis Hijos xD

¡Qué cambio! ¡Hasta el código se puso contento!

LineComment Saludos

feliz-58 · #19 23-02-2016

Cita:

Empezado por feliz-58

Código SQL [-]with Qtemp do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'INSERT INTO Factura (CodFactura, fecha, CodCliente, Nombre, Terminos, CodVendedor, PorcDescuento, TasaImpuesto, ' + 
                      'Subtotal, Descuento, Impuesto, Total, MntContado, MntTarjeta, MntCheque, MntOtro, Pagado, Saldo) ' +
                      'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, escuento, '+ 
                      ':Impuesto, :Total, :Contado, :tarjeta, :Cheque, :Otro, :Pagado, :Saldo)';
Parameters.ParamByName('CodFactura').Value      := CODFact;
Parameters.ParamByName('Fecha').Value              := lfecha.Caption;
Parameters.ParamByName('CodCliente').Value       := Ecodigo.Text;
Parameters.ParamByName('NombreCliente').Value := lnombrecliente.Caption;
Parameters.ParamByName('Tipo').Value                 := CBtipo.Text;
Parameters.ParamByName('Vendedor').Value         := Lvendedor.Caption;
Parameters.ParamByName('PorcDescuento').Value := FLEPorcDesc.Text;
Parameters.ParamByName('Impuesto').Value         := 18;
Parameters.ParamByName('SubTotal').Value          :=Subtotal;
Parameters.ParamByName('Descuento').Value        := Descuent;
Parameters.ParamByName('Impuesto').Value         := Impuesto;
Parameters.ParamByName('Total').Value              := Total;
Parameters.ParamByName('Contado').Value           := Mntcontado;
Parameters.ParamByName('Tarjeta').Value            := Mnttarjeta;
Parameters.ParamByName('Cheque').Value            := MntCheque;
Parameters.ParamByName('Otro').Value                := Mntotro;
Parameters.ParamByName('Pagado').Value            := MntPagado;
Parameters.ParamByName('Saldo').Value               := Mntsaldo;
  ExecSQL;
 end;

hay esta mis Hijos xD

Arreglado sin las converciones, y el error

feliz-58 · #20 23-02-2016

Cita:

Empezado por roman

¡Qué cambio! ¡Hasta el código se puso contento!

LineComment Saludos

jajajaja, cuando me llego el correo de tu respuesta, pensé que era Casimiro y de una pensé: "Hay viene el viejo con su sarcasmo xD (hay! si me lee xD)"

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Error de Sintaxis en Sentencia SQL	edwin.simon	OOP	5	10-09-2014 20:31:13
Error en Sintaxis Invisible	martini002	Conexión con bases de datos	5	23-08-2012 04:23:06
Error de sintaxis INSERT INTO	AlanSlash	SQL	11	02-11-2011 03:40:05
Cual es el error de la sintaxis	sierraja	SQL	9	20-05-2008 02:31:47
!!!error de sintaxis en el INSERT INTO	huwabe78	SQL	5	05-12-2006 00:45:55