Error en Codigo SQL en consulta a base de datos Access

[[Caral]]

Hola
no llevo el siguimiento de lo que estas o quieres hacer.
lo mejor es poner en un zip el programa como lo tienes con la bd incluida y dar una explicacion detallada de lo que necesitas.
saludos

[feliz-58]

Empezado por Caral

Hola
no llevo el siguimiento de lo que estas o quieres hacer.
lo mejor es poner en un zip el programa como lo tienes con la bd incluida y dar una explicacion detallada de lo que necesitas.
saludos

aqui esta el proyecto, es en el form de facturacion.

Mi proyecto

este codigo en el boton de guardar

Código Delphi [-]
Var
  a,b,c : real;
begin
 a:= StrTofloat(cantidad.Text);
 b:= StrTofloat(precio.Text);
 c:= a * b;
 total.Text:= floatToStr(c);
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

gracias

[mcs]

He descargado tu proyecto, lo he mirado todo y te digo lo mismo que te ha dicho Casimiro: no puedes hacerlo.

Tu nivel de programación es nulo. Tu nivel de conocimientos de bases de datos es nulo.

Hazte un favor y leete La Cara Oculta de Delphi, ya sea el 4 o el 6. Son gratuitos, y aprenderás un montón.

Porqué la verdad, tirando componentes a un formulario y copiado código no vas a aprender nada. Yo (y gran parte de la gente que está por aquí) te podemos decir todas las tablas, procedures, clases, funciones y demás que necesita un programa de facturación, pero no te servirá de nada.

Ah, en el proyecto que has subido al SkyDrive no hay la query de inserción de facturas.

Y una primera lección, y MUY importante: pon nombres claros a TODO lo que uses: units, clases, dbedits, botones, etc! Sinó, dentro de cuatro días no sabrás que era el dbedit1, el label5 o que hay en unit7.pas.

Saludos, y buenas noches.

[feliz-58]

Caral, aqui esta la BD de usuarios. Espero tu respuesta. Gracias

[[Caral]]

Hola
Ya lo puedo ver, que quieres hacer ?
Saludos
Nota: Con precisión.

[feliz-58]

Empezado por Caral

Hola
Ya lo puedo ver, que quieres hacer ?
Saludos
Nota: Con precisión.

Simplemente, en el form de facturacion, quiero hacer las facturas de los diferentes articulos y de los diferentes clientes que pueda tener "lo común" el asunto es que hay muchas cosas que no tendré que usar, como Sub total, impuestos, descuentos,etc. solo lo que tengo en las bases de datos y algo esencial que tu creas que falte.

ese es el asunto. intente seguir tu tutorial pero como esas cosas no van se me complico un poco.


Saludos

[[Caral]]

Hola
Primero sácame de una duda
para que dos bases de datos ?
saludos

[feliz-58]

Empezado por mcs

He descargado tu proyecto, lo he mirado todo y te digo lo mismo que te ha dicho Casimiro: no puedes hacerlo.

Tu nivel de programación es nulo. Tu nivel de conocimientos de bases de datos es nulo.

Hazte un favor y leete La Cara Oculta de Delphi, ya sea el 4 o el 6. Son gratuitos, y aprenderás un montón.

Porqué la verdad, tirando componentes a un formulario y copiado código no vas a aprender nada. Yo (y gran parte de la gente que está por aquí) te podemos decir todas las tablas, procedures, clases, funciones y demás que necesita un programa de facturación, pero no te servirá de nada.

Ah, en el proyecto que has subido al SkyDrive no hay la query de inserción de facturas.

Y una primera lección, y MUY importante: pon nombres claros a TODO lo que uses: units, clases, dbedits, botones, etc! Sinó, dentro de cuatro días no sabrás que era el dbedit1, el label5 o que hay en unit7.pas.

Saludos, y buenas noches.

Excelente comentario, no se nada, nunca dije que supiera, no es mi intención hacer saber que se, me imagino que debes ser un genio, y me alegra, porque si no hubieran personas como tu, las personas como yo no sabríamos hacer nada gracias!


Suerte amigo!

[[Caral]]

Hola
No se si baje el correcto o no el asunto es que me indica que la BD Usuarios no esta.
Saludos

[cloayza]

Así a la rapida, detecto un error en la sentencia...

Código Delphi [-]
Var
  a,b,c : real;
begin
 a:= StrTofloat(cantidad.Text);
 b:= StrTofloat(precio.Text);
 c:= a * b;
 total.Text:= floatToStr(c);
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

Estas asignando un valor al parametro "Descripcion", el cual no existe ya que en el sql no esta precedido de los ":"...

Deberia ser:

Código Delphi [-]
 qry1.SQL.Text := 'Insert into Factura (CodFactura, Fecha, CodCliente, CodArticulo, Descripcion, Cantidad, Total) '+
  'VALUES (:CodFactura, :Fecha, :CodCliente, :CodArticulo, :descripcion, :Cantidad, :Total)';
qry1.Parameters.ParamByName('CodFactura').AsString := CodFactura.Text;
qry1.Parameters.ParamByName('Fecha').AsDate := Dtp1.Date;
qry1.Parameters.ParamByName('CodClient').AsString := CodClient.Text;
qry1.Parameters.ParamByName('CodArticulo').AsString := CodArticulo.Text;
qry1.Parameters.ParamByName('Descripcion').AsString := lbl9.Text;
qry1.Parameters.ParamByName('Cantidad').AsString := Cantidad.Text;
qry1.Parameters.ParamByName('Total').AsString := Total.Text;
qry1.ExecSQL;
end;

Saludos cordiales