Hola, tengo un problema, mi base de datos esta en mysql, y guardo en la tabla una serie de valores provenientes de edits, 1 combobox, y 2 maskedit, 2 edits contienen valores con punto decimal crrespondientes a precio, el caso es que al hacer la consulta en un dbgrid me mostraba si era entero el puro entero sin .00, si era real me ponia .9 o .11, lo guardo como:
ADOtblProducto.FieldByName('CveProd').
AsString:=EditCve.Text;
Todos los campos los tengo como .AsString, se me ocurrio poner .AsCurrency o .AsFloat en los campos q contienen los datos con punto decimal, pero no me funciono, porque los enteros si me los pone bien pero los valores decimales, en vez del valor me pone una serie de numeros que ni al caso, lo volvi a poner como .AsString pero igual, me pone su monton de numeros, pero en la tabla si me los visualiza bien, si los guarda correctamente.. No se cual sea el problema..
Este es mi código:
Código Delphi
[-]
procedure TfrmProductoAdd.BitGuardarClick(Sender: TObject);
begin
ADOtblProducto.Open;
with ADOtblProducto do
begin
ADOtblProducto.Insert;
ADOtblProducto.FieldByName('CveProd').AsString:=EditCve.Text;
ADOtblProducto.FieldByName('Descripcion').AsString:=EditDes.Text;
ADOtblProducto.FieldByName('Presentacion').AsString:=EditPres.Text;
ADOtblProducto.FieldByName('Clasificacion').AsString:=ComboClas.Text;
ADOtblProducto.FieldByName('Laboratorio').AsString:=EditLab.Text;
ADOtblProducto.FieldByName('Existencias').AsString:=EditExis.Text;
ADOtblProducto.FieldByName('FechaEnt').AsString:=EditFechaEnt.Text;
ADOtblProducto.FieldByName('FechaCad').AsString:=EditFechaCad.Text;
ADOtblProducto.FieldByName('PrecioC').AsString:=EditPrecioC.Text;
ADOtblProducto.FieldByName('PrecioV').AsString:=EditPrecioV.Text;
ADOtblProducto.Post;
ADOtblProducto.Refresh;
ADOtblProducto.Close;
end;
end;