Cita:
Empezado por pepe1853
...
la segunda que me proporcionaste me tira el siguiente error "invalid varian type cast", ya no se que hacer, mi consulta insert funciona de maravilla pero con el update no logro hacerla funcionar. agrego como esta confeccionada mi tabla de datos por las dudas.
Código SQL [-]
PRO_IDPRODUCTO: INTEGER
PRO_IDPROVEEDOR: INTEGER
PRO_NOMBRE: VARCHAR
PRO_PRECIOVENTA: FLOAT
PRO_PRECIOCOSTO: FLOAT
PRO_STOCK : SAMLLINT
PRO_ESTADO: CHAR(40)
PRO_CATEGORIA: CHAR (40)
|
Dado el mensaje de error que mencionas, intenta asignar los valores de las columnas indicando su tipo:
Código Delphi
[-]
...
qy.ParamByName('IDPROVEED').AsInteger := StrToInt( DBEdit1.Text ); qy.ParamByName('NOMBRE').AsString := DBENombre.Text;
qy.ParamByName('PVENTA').AsFloat := StrToFloat( DBEPVenta.Text ); qy.ParamByName('PCOSTO').AsFloat := StrToFloat( DBEPCosto.Text );
qy.ParamByName('STOCK').AsInteger := StrToInt( DBEStock.Text );
qy.ParamByName('ESTADO').AsString := DBEEstado.Text;
qy.ParamByName('CATEG').AsString := DBECategoria.Text;
qy.ParamByName('IDPRODUC').AsInteger := StrToInt(DBEdit8.Text);
...
Estoy suponiendo que usas los componentes
dbExpress, lo anterior podría no ser así con otros. Por cierto, ¿ A que RDBMS te estas conectando ?
Saludos
