[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.6,1.7

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14312/Source/Brokers/ADO

Modified Files:
	InstantADO.pas 
Log Message:
Bug fixing

Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantADO.pas	10 Feb 2005 23:06:21 -0000	1.6
--- InstantADO.pas	10 Feb 2005 23:42:35 -0000	1.7
***************
*** 226,234 ****
            Parameter.Direction := TParameterDirection(Param.ParamType);
          Parameter.Attributes := [];
!         Parameter.NumericScale := Param.NumericScale;
!         Parameter.Precision := Param.NumericScale;
!         Parameter.Size := Param.Size;
          Parameter.Value := Param.Value;
- //        Parameter.Assign(Param);
        end;
      end;
--- 226,233 ----
            Parameter.Direction := TParameterDirection(Param.ParamType);
          Parameter.Attributes := [];
!         Parameter.NumericScale := 0;
!         Parameter.Precision := 0;
!         Parameter.Size := 0;
          Parameter.Value := Param.Value;
        end;
      end;