Access: VB: ADOX: Dezimalstellenanzeige

[lexl]

Hallo,

ich suche nach einer Möglichkeit die Dezimalstellenanzeige beim Felddatentyp Long Integer per VB Programm zu setzten. Dies sollte wohl über ADO(X) gehen. Nur stehe ich vor dem Problem das ich nicht genau weiß mit welcher Methode der ADOX Klasse zu machen ist bzw. welchen Sting ich hier benötige...

Gruß lexl

[Wolle]

ich suche nach einer Möglichkeit die Dezimalstellenanzeige beim Felddatentyp Long Integer per VB Programm zu setzten.

Long Integer ist eine Ganzzahl, da gibt es keine Nachkommastellen. Du müßtest einen anderen Datentyp verwenden.

[lexl]

Gut, ich gebe zu, das Beispiel war ein wenig schlecht gewählt. Dann sagen wir halt mal es gibt einen Feld mit Datentyp Double.

Eine Verbindung mit der MDB habe ich über ADO erstellt.

Mit nachfolgendem Code versucht die Dezimalstellenanzeige zu setzten, leider ohne Erfolg...

  

   Set m_oCat.ActiveConnection = m_oCn

   Set m_oTbl = m_oCat.Tables(strTableName)

   Set m_oCol = m_oTbl.Columns(strColumnName)


   m_oCol.Properties("DecimalPlaces") = 2   

Die Properties von m_oCol (DecimalPlaces) scheinen falsch zu sein. (Den String DecimalPlaces hatte von vbarchiv.net)

[TheyCallMeGeek]

Gibt da noch die "Precision", sonst guck halt mal in die Properties-Collection rein.

Aber warum willst du das unbedingt da lösen? Warum nicht in der Ausgebenden Schicht = Oberfläche?

[lexl]

Precision als Long gibt es... Dort steht generell 15 drin. Allerdings kann ich den Wert auch mit meinem Provider "Microsoft.Jet.OLEDB.4.0" nicht ändern. Meint zumindest VB.

In den Properties finde ich leider nichts was danach ausschaut.

Wozu könnte denn der folgende Code gehören, ADO ist nicht, könnte es DAO sein?

Db.TableDefs("Tabelle").Fields("Name").Properties("Decimals") = 2