bitte löschen
Announcement
Collapse
No announcement yet.
Aus einem Komma ein Punkt ersetzen für einen SQL-Insert Befehl
Collapse
X
-
Mal ein Auszug von mir. Brauchst noch die Connection, aber die wirste ja haben...
Vielleicht hilft Dir das ja weiter...
Code: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()
Comment
-
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
Originally posted by Sirus View PostGuten 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 ---
Comment
Comment