Office: (Office 2016) Sonderzeichen per VBA / SQL ersetzen

Klaus S. aus B. · 23. März 2017

Hallo zusammen,

ich habe nochmal ein Problem.

Jetzt wo das ersetzen eines Sonderzeichens so gut funktioniert hat, wollte eine Schleife einbauen, um gleich mehrere Sonderzeichen zu Übersetzen.

Code:

' Array für Sonderzeichen füllen
Dim conn As New ADODB.Connection
Dim SZarr() As String
Dim i As Integer
Dim z As Integer
Dim AnzDS As Integer
Dim rst As New ADODB.Recordset

'On Error GoTo Fehler

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

With rst
.Open "tbl_SZersetz", conn, adOpenKeyset, adLockOptimistic
AnzDS = rst.RecordCount
Debug.Print AnzDS

End With

ReDim SZarr(1 To AnzDS, 1 To 3)

i = 1
For i = 1 To AnzDS Step 1
SZarr(i, 1) = "ChrW$(" & (rst!Dezi - 1) & ")"
SZarr(i, 2) = rst!zeichen
SZarr(i, 3) = """" & rst!Ersetz & """"
' Debug.Print SZarr(i, 1) & " | " & SZarr(i, 2) & " | " & SZarr(i, 3)
rst.MoveNext
Next i
rst.Close

' Sonderzeichen "übersetzen"
Const UPD_QRY2$ = _
"UPDATE Tbl_ETmech" & _
" SET F6 = Replace(F6, [@Search], [@Replace], 1, -1, 0)" & _
" WHERE F6 Is Not Null AND" & _
" Instr(Nz(F6), [@Search]) > 0;"

With CurrentDb()
' Debug.Print

' Schleife für alle Sonderzeichen

For z = 1 To AnzDS Step 1

With .CreateQueryDef(vbNullString, UPD_QRY2)
.Parameters("@Search") = SZarr(z, 1)
.Parameters("@Replace") = SZarr(z, 3)
.Execute dbFailOnError
End With

Next z

End With
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Array fülle ich aus einer Tabelle, in der die Sonderzeichen, ihr Dezimalwert (funktioniert beim Zusammensetzen irgendwie besser als mit Hexwerten) und der Ersetzungsstring liegt.
Das Array füllen klappt auch sehr gut.

Aber irgendwie wird keine Sodnerzeichen ersetzt.

Habe ich einen Denkfehler?

Gruß
Klaus

Nouba · 23. März 2017

Versuch's mal so: Code:

SZarr(i, 1) = ChrW$(rst!Dezi - 1)
SZarr(i, 3) = rst!Ersetz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder lade ein abgespecktes Beispiel zum Anschauen hoch.

Klaus S. aus B. · 23. März 2017

Hallo Nouba,

Super! Das war's. Vielen Dank!

...das mit den Anführungszeichen werde ich nie lernen... *frown.gif*

Gruß
Klaus

Nouba · 23. März 2017

Wie schon zuvor gesagt, in Parameterabfragen muss man sich um Anführungs- und Dezimaltrennzeichen oder Datumsformate absolut keine Gedanken machen.

Office: (Office 2016) Sonderzeichen per VBA / SQL ersetzen

Sonderzeichen per VBA / SQL ersetzen

Sonderzeichen per VBA / SQL ersetzen

Sonderzeichen per VBA / SQL ersetzen

Sonderzeichen per VBA / SQL ersetzen - Similar Threads - Sonderzeichen VBA SQL

Text nach bestimmten Zeichen trennen (variabel)

Serienbrief Excel Datenquelle

Excel Buchstaben anderer Länder korekt darstellen

Exel Sonderzeichen über VBA in Code einfügen

Eingabeproblem nach Sonderzeichen

Sonderzeichen finden per VBA

Sonderzeichen für Gültigen Dateinamen elemeniren