✔ Recordsetausgabe --> Formatänderung?

[tesarolle]

Dim objDBConnLX As New ADODB.Connection
Dim objDBRSLX As New ADODB.Recordset
objDBConnLX.Open conDBConn
objDBRSLX.Open "SELECT COUNT(*) as Anzahl FROM LX", objDBConnLX, 3, 3
LXZähler.Text = objDBRSLX!Anzahl

Ich lasse mir mit obiger Funktion die Anzahl der Datensätze in einer Tabelle ausgeben, ich erhalte z.B. 10000 als Anzahl. Ich möchte Dezimaltrennzeichen einfügen. So dass aus 10000 dann 10.000 wird.

Wie mache ich das?

 

[Zorck]

Du kannst ganz einfach das Format der Zahl festlegen.
Hier nun ein Beispiel:

LXZähler.Text = Format(objDBRSLX!Anzahl,"###,###,###")

Wenn du andere Formatierungen benötigst, musst du einfach mal in der MSDN nachschauen, da ist alles ausführlich erklärt.

Hoffe geholfen zu haben!

Zorck