Hola,
La verdad es que no tengo mucha idea sobre base de datos, pero necesito hacer 1.
He intentado hace 1 base de datos que lleve el control de ventas en 1 concesionario, tanto de coches como de repuestos. El problema es a la hora de facturación, hay que ver que se ha vendido de coches y que de repuestos y
modificar la tabla de facturación.
He utilizado la sentencia
INSERT INTO.
Intenté hacerlo sin utilizar query y me encontré con el problema que me modificaba la tabla perfectamente, pero no me guardaba los datos.
En primer lugar, el fallo puede ser que no se que propiedades hay que cambiar en el elemento Query.
el código es el siguiente:
Table10->Active = true;
Query1->Close();
Query1->SQL->Clear();
AnsiString factura="INSERT INTO Facturacion(Cantidad, Id.Producto, Nombre del Producto, Id.Cliente, Nombre del cliente, Apellido del cliente, Teléfono del cliente, Precio de la compra) VALUES (" ;
factura =factura + "'";
factura =factura + Edit2->Text;
factura =factura + "','";
factura =factura + Table4->FieldValues["Id. Accesorio"];
factura =factura + "',";
factura =factura + Table4->FieldValues["Accesorio"];
factura =factura + "',";
//localizamos el cliente en la tabla de clientes
Table2->Locate("Nombre",Edit1->Text,Opt);
//introducimos los datos del cliente en la facturación
factura =factura + Table2->FieldValues["Clientes"];
factura =factura + "',";
factura =factura + Table2->FieldValues["Nombre"];
factura =factura + "',";
factura =factura + Table2->FieldValues["Apellidos"];
factura =factura + "',";
factura =factura + Table2->FieldValues["Teléfono"];
factura =factura + "',";
//comprobamos cuantas unidades de producto quiere el cliente para calcular su precio final
if ((Text=Edit2->Text.ToInt())!= 1)
{
factura =factura + (Text=((Edit2->Text.ToInt()) * Table4->FieldValues["Precio"]));
}
else if ((Text=Edit2->Text.ToInt())== 1)
{
factura =factura + Text=Table4->FieldValues["Precio"]; ;
}
factura=factura + ")";
Query1->SQL->Add(factura);
Query1->ExecSQL();
Table10->Refresh();
Al poner puntos de ruptura, me dí cuenta que factura lo calcula bien, el fallo está en la última línea (Query1->ExecSQL()
y me da 1 error que dice algo así como:"Invalid use of Keyword. Token del Line Number:1."
Gracias.