MultiStorm
Grünschnabel
Hallo Alle zusammen ..
Ich habe folgendes Problem,
ich möchte eine UPDATE Anweisung an eine MySQL DB Schicken ..
Soweit kein Problem.
nun ist eins der Felder ein decimal(8,2)
bei der update anweisung steht nun "Set Feld = 22,23"
das gefällt MySQL natürlich nicht da es eine Zahl in diesem Format erwartet: "22.23"
nun dachte ich mir nutze ich fie VB eigene Format Function ...
meine Lödung sieht wie folgt aus:
Das wirklich eigenartige daran ist das ergebis ist trotzdem "22,23"
VB scheint das immer wieder umzuwandeln ...
Aber warum und wie löse ich das Problem ?
Hilfe wäre Klasse
Ich habe folgendes Problem,
ich möchte eine UPDATE Anweisung an eine MySQL DB Schicken ..
Soweit kein Problem.
nun ist eins der Felder ein decimal(8,2)
bei der update anweisung steht nun "Set Feld = 22,23"
das gefällt MySQL natürlich nicht da es eine Zahl in diesem Format erwartet: "22.23"
nun dachte ich mir nutze ich fie VB eigene Format Function ...
meine Lödung sieht wie folgt aus:
Code:
Public Function cNuM(ByVal dNumber As Double) As String
If SHOW_ERROR = True Then
On Error GoTo Fehler
End If
If dNumber <> 0 Then
cNuM = Format(dNumber, "#####0.00")
Else
cNuM = "0"
End If
Exit Function
Fehler:
cNuM = "0"
ERROR_SYSTEM Err.Number, Err.Description, "MOD_Functionen", _
"cNuM", "dNumber: " & dNumber, _
"", ""
End Function
Das wirklich eigenartige daran ist das ergebis ist trotzdem "22,23"
VB scheint das immer wieder umzuwandeln ...
Aber warum und wie löse ich das Problem ?
Hilfe wäre Klasse