vb@rchiv · Tipps & Tricks · Zeilenumbrüche im SQL UPDATE-Statement

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.967
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