Aus einem Komma ein Punkt ersetzen für einen SQL-Insert Befehl

[Sirus]

bitte löschen

[Bernhard Geyer]

Verwende parametrisierte Inserts.

[Thomas Rith]

Mal ein Auszug von mir. Brauchst noch die Connection, aber die wirste ja haben...

Vielleicht hilft Dir das ja weiter...

            Dim aSetCommand As New OleDb.OleDbCommand("insert into test(Wert1, Wert2) values (@wert1, @wert2)", mConnection)
            aSetCommand.CommandType = CommandType.Text
            aSetCommand.Parameters.AddWithValue("@Wert1", Me.Wert1)
            aSetCommand.Parameters.AddWithValue("@Wert2", Me.Wert2)
            aSetCommand.ExecuteNonQuery()

[Womble]

Hi Sirus,

nochmal zu Deinem ursprünglichen Problem, denn das wurde ja nur umgangen und nicht gelöst. Du hast da einen winzigen Fehler drinnen. (siehe meine Kommentare im Code).

Du hängst cell.Value an Deinen SQL dran und prüfst danach erst ob Du den eigentlich formatieren wolltest und hängst das Ergebnis wieder dran.

Mich wundert nur warum in Deinem Ergebnis das Datum nicht auch doppelt vorkommt. (Was allerdings sein kann wenn die Kommentare vom If vorher nicht da waren )

Gruß Womble

Guten Abend VBler,
--- div. gestrichen ---
[highlight=vbnet]For Each DataRow As DataGridViewRow In DataGridViewEinlesen1.Rows
StrSQLDatensatzEinfuegen = "insert into test values("

For Each cell As DataGridViewCell In DataRow.Cells

'If cell.ValueType.Name = "Decimal" Then
StrSQLDatensatzEinfuegen += Replace(cell.Value, ",", ".") ''' Hier passiert der erste Insert
'End If

If cell.ValueType.Name = "DateTime" Then
'Datum in das US Format konvertieren
StrSQLDatensatzEinfuegen += String.Format("{0:#MM\/dd\/yyyy#},", cell.Value)
Else
StrSQLDatensatzEinfuegen += String.Format("{0},", cell.Value) ''' ... und hier der zweite
End If

Next

[/highlight]
--- div. gestrichen ---