Rubrik: Datenbanken · ADO | VB-Versionen: VB6 | 30.04.12 |
Zeilenumbrüche im SQL UPDATE-Statement Dieser Tipp zeigt, wie man in einer UPDATE-Anweisung Feldinhalt mit Zeilenumbrüchen zuweisen kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 13.981 |
www.tools4vb.de | System: WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Die Aktualisierung von Daten in einer Datenbank-Tabelle lässt sich bekanntlich entweder über ein Recordset-Objekt vornehmen, oder aber auch direkt über die Execute-Anweisung des Connection-Objekts. Letztere Variante ist in jedem Fall schneller und benötigt auch kein gesondertes Recordset-Objekt.
Die allgemeine Syntax hierzu lautet: oConn.Execute "UPDATE Tabelle SET Feldname = Feldinhalt WHERE ..."
Das Ganze funktioniert auch wunderbar, solange sich im neuen Feldinhalt keine Zeilenumbrüche befindet. Handelt es sich bei dem Datenbankfeld um ein Memofeld kommt es aber durchaus vor, dass der Text ein oder mehrere Zeilenumbrüche beinhaltet.
Um solche Feldinhalte ebenfalls per UPDATE-Anweisung zuweisen zu können, müssen die Zeilenumbrüche in ein für das Datenbanksystem verarbeitbaren Code umgewandlet werden. Bei Access-Datenbanken verwendet man hierfür die CHR-Funktion, bei einem MS-SQL Server hingegen die CHAR-Funktion.
Das bedeutet also, dass man die Zeilenumbrüche vor der Zuweisung entsprechend umwandeln muss.
Hierfür lässt sich nachfolgende Funktion einsetzen.
' Text-Felder für Zuweisung in INSERT INTO / UPDATE vorbereiten Public Function dbSaveValueAcc(ByVal sValue As String) As String ' Hochkomma durch doppelte Hochkomma ersetzen If InStr(sValue, "'") > 0 Then sValue = Replace(sValue, "'", "''") ' Wenn es sich um eine Access-Datenbank handelt: If InStr(sValue, vbCrLf) > 0 Then sValue = Replace(sValue, vbCrLf, "' + CHR(13) + CHR(10) + '") Else If InStr(sValue, Chr$(13)) > 0 Then sValue = Replace(sValue, Chr$(13), "' + CHR(13) + '") If InStr(sValue, Chr$(10)) > 0 Then sValue = Replace(sValue, Chr$(10), "' + CHR(10) + '") End If dbSaveValueAcc = "'" & sValue & "'" End Function
' Text-Felder für Zuweisung in INSERT INTO / UPDATE vorbereiten Public Function dbSaveValue(ByVal sValue As String) As String ' Hochkomma durch doppelte Hochkomma ersetzen If InStr(sValue, "'") > 0 Then sValue = Replace(sValue, "'", "''") ' Wenn es sich um eine MS SQL-Datenbank handelt: If InStr(sValue, vbCrLf) > 0 Then sValue = Replace(sValue, vbCrLf, "' + CHAR(13) + CHAR(10) + '") Else If InStr(sValue, Chr$(13)) > 0 Then sValue = Replace(sValue, Chr$(13), "' + CHAR(13) + '") If InStr(sValue, Chr$(10)) > 0 Then sValue = Replace(sValue, Chr$(10), "' + CHAR(10) + '") End If dbSaveValue = "'" & sValue & "'" End Function
Beispiel für die Aktualisierung eines Memo-Feldes in der Datenbank-Tabelle:
Dim sSQL As String sSQL = "UPDATE tblKunden SET Bemerkungen=" & dbSaveValue(txtMemo.Text) & " WHERE Id=..." oConn.Execute sSQL