can't read integer field from database (ADO)

tommi

Hello,

i try to read a integer field from a database an write it into a field in navision, but i always get error messages.

I tried this:

NavTab.Reznr := ADOrs.Fields.Item('Reznr').Value;

but i got the message that this type is not supported in C/SIDE

The Evaluate function also doesn't work:

EVALUATE(MischprotokolleMH.Reznr, ADOrs.Fields.Item('Reznr').Value);

can somebody help me?

kine

Check that there is no NULL value in the field. You cannot work with the NULL values in NAV and you need to test the field value size before you try to read the value.

tommi

The value in the field is never NULL there ist alwas an integer between 1 and 1000.
What do you mean with testing the value size? That it is not bigger than "2147483647"?

kine

No. There is property which tells you how big is the value saved in the field. If it is 0, it means that the value is NULL. If it is different, all is OK... it is used to detect NULL values.

I am not sure, is it really possible to "address" the item through text? Did you try to address the item through integer? (indexing by integer and not text)...

tommi

Sorry i'm not so good in Navision programming. I don't realy know, what you mean.

It works fine, when i want to read out a String field from the Database and write it into a String field in Navision:

NavTab.Name := ADOrs.Fields.Item('Name').Value;

but i can't find a way to read out an integer and write it into a navision integer field

Eugene

a field in a database table can have a value assigned to it or it can have no value assigned. The latter is usually reffered to as NULL value

IF your integer type field was never assigned a number then it has no value assigned (has NULL value). NULL and 0 are not the same. Do not expect ADO to retun you value = 0 when the field in question has no value assigned (has NULL value)

ayhan06

today i used this way (thanks Miklos Hollender)

    LOCAL PROCEDURE VariantToInteger@50002180(Variant@50002176 : Variant;VAR RetInt@50002175 : Integer) : Integer;
    BEGIN
      IF ISCLEAR(ADOStream) THEN
        CREATE(ADOStream);
      ADOStream.Open;
      ADOStream.WriteText(Variant);
      ADOStream.Position:= 0;
      EVALUATE(RetInt,ADOStream.ReadText);
      ADOStream.Close;
      EXIT(RetInt);
    END;

possible usage is like that:

IF VariantToInteger(ADORs.Fields.Item('Status').Value,OldStatusID2) = OldStatusID THEN

tommi

Thanks Ayhan that works:

New Function:

VarianttoInteger(AVariant : Variant) RetInt : Decimal
      IF ISCLEAR(ADOStream) THEN
        CREATE(ADOStream);
      ADOStream.Open;
      ADOStream.WriteText(AVariant);
      ADOStream.Position:= 0;
      EVALUATE(RetInt,ADOStream.ReadText);
      ADOStream.Close;
      EXIT(RetInt);

NavTab.Protokoll := VariantToInteger(ADOrs.Fields.Item('Protokoll').Value);