Foros Club Delphi
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Error de Sintaxis en SQL (https://www.clubdelphi.com/foros/showthread.php?t=89875)

feliz-58 23-02-2016 04:09:06
Error de Sintaxis en SQL
 
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 23-02-2016 04:29:14
Para que estan los parser de SQL?

feliz-58 23-02-2016 04:52:13
Cita:
Empezado por AgustinOrtu (Mensaje 502449)
Para que estan los parser de SQL?
No te entiendo :S

AgustinOrtu 23-02-2016 04:58:37
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 23-02-2016 05:00:39
Cita:
Empezado por AgustinOrtu (Mensaje 502451)
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 23-02-2016 10:43:33
Incluso se puede ver el lugar del error mirando el cambio de color que se produce :D

feliz-58 23-02-2016 15:38:47
Cita:
Empezado por AgustinOrtu (Mensaje 502451)
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 (Mensaje 502456)
Incluso se puede ver el lugar del error mirando el cambio de color que se produce :D
Casimiro, no es ese el problema (y por si las moscas cambien la expresion del Desc)

Casimiro Notevi 23-02-2016 16:42:03
Cita:
Empezado por feliz-58 (Mensaje 502471)
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 23-02-2016 16:53:49
Cita:
Empezado por Casimiro Notevi (Mensaje 502476)
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 23-02-2016 16:58:54
Cita:
Empezado por feliz-58 (Mensaje 502448)
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 23-02-2016 17:12:30
Cita:
Empezado por roman (Mensaje 502482)
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 23-02-2016 17:32:51
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 23-02-2016 18:31:59
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 23-02-2016 19:22:35
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 23-02-2016 19:33:56
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 23-02-2016 20:01:27 
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, :Descuento, '+ 
                      ':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 23-02-2016 20:04:18
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 23-02-2016 20:18:42
Cita:
Empezado por feliz-58 (Mensaje 502511) 
Código SQL [-]
'Values (:CodFactura, :Fecha, :codCliente, :NombreCliente, :Tipo, :Vendedor, :PorcDescuento, :Impuesto, :SubTotal, :Descuento, '+

hay esta mis Hijos xD ;)
¡Qué cambio! ¡Hasta el código se puso contento!

LineComment Saludos

feliz-58 23-02-2016 20:25:34
1 Archivos Adjunto(s)
Cita:
Empezado por feliz-58 (Mensaje 502511) 
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, :Descuento, '+ 
                      ':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 23-02-2016 20:33:06
Cita:
Empezado por roman (Mensaje 502518)
¡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)"


La franja horaria es GMT +2. Ahora son las 11:24:54.
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi