[gelöst] Integer/Dezimal aus der Datenbank auslesen?

Hallo,

ich verbinde mich über ADO an eine FOXPro Datenbank. hier gibt es diverse Integer und Dezimal Felder die ich in Navision eintragen will. Wenn ich das Feld aus der Datenbank jetzt so auslese:

Code:

MischprotokolleMH.Artnr := ADOrs.Fields.Item('Artnr').Value;

Bekomme ich immer einen String Wert zurück.

Meine Frage, ob ich den Wert auch anders aus der Datenbank auslesen kann, oder den Wert in ein Integer / dezimal Wert umwandeln, weil ja eigentlich ehh keine Zeichen drin stehen.

Danke schon mal...

Zuletzt geändert von tommi am 26. Mai 2008 10:47, insgesamt 1-mal geändert.

Hi!

Schau' Dir mal dazu den EVALUATE Befehl an:

EVALUATE (Variable)
Use this function to evaluate a string representation of a value into its normal representation. The system assigns the result to a variable.

[Ok :=] EVALUATE(Variable, String[, Number])
Ok

Data type: boolean

A return code that tells you whether or not an error occurred during the evaluation of the string.

If Ok is...
It means...

TRUE
No errors occurred during the evaluation of the string. The system assigned the value to Variable.

FALSE
Errors occurred during the evaluation of the string. The system did not modify the original value of Variable.


If you omit this optional return value and an error occurs during the evaluation of the string, a run-time error occurs. If you include it, the system assumes you will handle any errors.

Variable

Data type: boolean, integer, option, date, time, text constant, code or GUID.

Any type of variable. The value of the string is assigned to the variable.

String

Data type: text constant or code

A string containing a value of any simple C/AL data type.

Number

Data type: integer

This optional value can be used when exporting data with an XMLport. The only valid value is 9 and this indicates that the data must be converted from XML format to C/SIDE format.

Example
This example shows how the EVALUATE function works when called with three different types of variables.

Value := '010196';
Ok1 := EVALUATE(VarInteger, Value);
Ok2 := EVALUATE(VarDate, Value);
Ok3 := EVALUATE(VarYesNo, Value);
MESSAGE(Text000 + Text001 + Text002,
VarInteger, Ok1, VarDate, Ok2, VarYesNo, Ok3)

Create the following text constants in the C/AL Globals window:

Text Constant
ENU Value

Text000
'VarInteger = #1######, and the return code is: %2\'

Text001
'VarDate = #3######, and the return code is: %4\'

Text002
'VarYesNo = #5######, and the return code is: %6'


The message window shows:

VarInteger = 10196 , and the return code is: Yes
VarDate = 01/01/96, and the return code is: Yes
VarYesNo = No , and the return code is: No

This example shows that while the system can interpret Value ('010196') as both an integer and a date expression, it cannot interpret it as a boolean expression. This causes an error, shown in the return code Ok3 (=FALSE).

Danke, die funktion hatte ich auch gerade gefunden, nur steht bei mir dann immer 0 drin, oder ich mache was falsch?

Code:

IF EVALUATE(i, ADOrs.Fields.Item('Reznr').Value) THEN
   MischprotokolleMH.Reznr := i;


Versuchs mal auf dem direkten Weg:

Code:

IF NOT EVALUATE(MischprotokolleMH.Reznr, ADOrs.Fields.Item('Reznr').Value) THEN BEGIN
  // z.B. eine Hinweismeldung der Art "Umwandlung nicht erfolgt");
END;

Danke, aber funktioniert scheinbar auch nicht...
Scheinbar ist das aber doch kein String Wert... ich habe Versucht mir das Feld über

Code:

MESSAGE(FORMAT(ADOrs.Fields.Item('Protokoll').Value));

ausgeben zu lassen, aber bekomme dann die Meldung
"Diese Meldung ist für C/AL-programmierer:

Dieser Datentyp wird von C/SIDE nicht unterstüzt.
Sie haben Zugriff auf Daten der folgenden Datentypen:
VT_VOID, VT_I2, VT_I4, VT_R4, VT_R8, VT_CY, VT_Date, VT_BSTR und VT_BOOL"

Versuch doch mal das:

Code:

TextTmp := ADOrs.Fields.Item('Reznr').Value;
IF EVALUATE(IntTmp, TextTmp) THEN
   MischprotokolleMH.Reznr := IntTmp;


Danke, aber da kommt die selbe Fehlermeldung wie oben.
Es liegt scheinbar an dem Datentyp, wie er in der Datenbank gespeichert ist. Bei den normalen Char Feldern aus der Datenbank funktioniert das.

wenn ich weiß das es sich um ein numerisches Feld handelt, kann ich das denn noch anders aus der Datenbank auslesen? Oder nur über die Value Eigenschaft?

Kann es nicht sein, dass der Fehler nur bei Feldern auftritt die in der dBase Tabelle leer sind?

Gruss

Ne, wenn ich einen view auf die Tabelle mache, steht in jedem Feld ein Wert drin

Code:

VariantTmp := ADOrs.Fields.Item('Reznr').Value;
IF EVALUATE(IntTmp, FORMAT(VariantTmp)) THEN
   MischprotokolleMH.Reznr := IntTmp;


ah, das steht ja schon da... zu spaet gesehen..

Beim EVALUATE bekomme ich wieder die Fehlermeldung von oben, das der Datentyp von C/SIDE nicht unterstüzt wird...

Code:

IF EVALUATE(i, FORMAT(VariantTmp)) THEN

Habs jetzt hinbekommen...

New Function:

Code:

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);

Code:

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