Buenas tardes , les comento mi inquietud no encuentro manera de ejecutar mi consulta update
al ejecutarla parece que funciona todo bien con el mensaje de una supuesta inserción, pero luego me figura el siguiente error Token unknow - line1, colum9 SET
Código Delphi
[-]
procedure TForm4.btnAceptarClick(Sender: TObject);
var
pro_IDproducto:String;
pro_Nombre: String;
pro_IDproveedor: String;
pro_precioventa: String;
pro_preciocosto: String;
pro_stock: String;
pro_estado: String;
pro_categoria: String;
consulta: String;
begin
pro_IDproducto:= DBEdit8.Text;
pro_nombre:= DBENombre.Text;
pro_IDproveedor:= DBEdit1.Text;
pro_precioventa:= DBEPVenta.Text;
pro_preciocosto:= DBEPCosto.Text;
pro_stock:= DBEStock.Text;
pro_estado:= DBEEstado.Text;
pro_categoria:=DBECategoria.Text;
consulta:='UPDATE PRODUCTOS SET PRO_IDPROVEEDOR=:'+pro_IDproveedor+', PRO_NOMBRE=:'+pro_nombre+', PRO_PRECIOVENTA=:'+pro_precioventa+',
PRO_PRECIOCOSTO=:+'pro_preciocosto+', PRO_STOCK=:'+pro_stock+', PRO_ESTADO=:'+pro_estado+', PRO_CATEGORIA=:'+pro_categoria+' WHERE PRO_IDPRODUCTO=:'+pro_IDproducto+'';
SQLQPROVEEDORES.SQL.text:=consulta;
SQLQPROVEEDORES.ExecSQL;
SQLQPROVEEDORES.ApplyUpdates;
ShowMessage(consulta);
Espero por favor que alguien me pueda auxiliar! Gracias de antemano.
creo que lo publique en el sector equivocado al tema,por favor alguien lo podría mover si es así gracias!