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?
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?