Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 23-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Para que estan los parser de SQL?
Responder Con Cita
  #3  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Para que estan los parser de SQL?
No te entiendo :S
Responder Con Cita
  #4  
Antiguo 23-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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) + ','
Responder Con Cita
  #5  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
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
Responder Con Cita
  #6  
Antiguo 23-02-2016
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Incluso se puede ver el lugar del error mirando el cambio de color que se produce

Responder Con Cita
  #7  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
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 Ver Mensaje
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)

Última edición por feliz-58 fecha: 23-02-2016 a las 16:44:14.
Responder Con Cita
  #8  
Antiguo 23-02-2016
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por feliz-58 Ver Mensaje
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?
Responder Con Cita
  #9  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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
Responder Con Cita
  #10  
Antiguo 23-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por feliz-58 Ver Mensaje
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
Responder Con Cita
  #11  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por roman Ver Mensaje
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.
Responder Con Cita
  #12  
Antiguo 23-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #13  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
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?
Responder Con Cita
  #14  
Antiguo 23-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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;
Responder Con Cita
  #15  
Antiguo 23-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #16  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
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
Responder Con Cita
  #17  
Antiguo 23-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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?
Responder Con Cita
  #18  
Antiguo 23-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por feliz-58 Ver Mensaje
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
Responder Con Cita
  #19  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por feliz-58 Ver Mensaje
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
Imágenes Adjuntas
Tipo de Archivo: jpg prueba.jpg (34,7 KB, 14 visitas)
Responder Con Cita
  #20  
Antiguo 23-02-2016
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Cita:
Empezado por roman Ver Mensaje
¡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)"
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 07:18:40.


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