Error de Sintaxis en SQL

roman · #1 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 · #2 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 · #3 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 · #4 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] · #5 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 · #6 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 · #7 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] · #8 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 · #9 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 · #10 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

Neftali [Germán.Estévez] · #11 25-02-2016

Cita:

Empezado por 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;

Pues iba a escribir lo mismo y he visto que Agustín lo ha comentado.
Mucho más sencillo de escribir, mucho más claro y mucho menos propenso a errores, sobre todo en campos a convertir como fechas, floats, cadenas,...

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