Office: Hochkomma in SQL String bei late Binding af DB

Hallo zusammen!
Ich habe heute eine Fehlermeldung bekommen, als in einem Text, der aus Excel an eine DB übermittelt wird ein Hochkomma enthalten ist.
Kennt jemand für das Problem eine Lösung?
Im Moment entferne ich einfach das Hochkomma, aber das ist am Ende auch keine dauerhafte Lösung.

Hier der Ausschnitt

Code:

strBemerkVertriebExcel = "LKW'S"
Set objUpdateDB = CreateObject("ADODB.Connection")
strAdoConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMyDBPath & ";User Id=admin;Password=;"
objUpdateDB.Open strAdoConnectString
'ohne replace
strSQL_Query = "Update TBL_Daten set Bemerkung_Vertrieb = '" & CStr(Trim(strBemerkVertriebExcel)) & "' where [Auftragsnr] = " & sngSDNrExcel & " And [Hauptpos] = " & lngPosExcel
'mit Replace
strSQL_Query = "Update TBL_Daten set Bemerkung_Vertrieb = '" & Replace(CStr(Trim(strBemerkVertriebExcel)), "'", "") & "' where [Auftragsnr] = " & sngSDNrExcel & " And [Hauptpos] = " & lngPosExcel
objUpdateDB.Execute strSQL_Query
objUpdateDB.Close

Vielen Dank für die Hilfe!!

 

Du könntest versuchen, andere Textbegrenzungszeichen zu benutzen.

Neben dem ' (Apostroph) geht normalerweise auch immer noch das " (Anführungszeichen) und teilweise könnte auch das ` (Accent d'aigu) funktionieren.

Nun könntest Du dann natürlich gucken, ob eines der Zeichen im String vorkommt und das entsprechende Begrenzungszeichen dann nicht verwenden und auf eine der Alternativen umschalten. pseudo-code in der art:

Code:

z1=Apostroph
z2=anführungszeichen
z3=accent d'aigu
t=0
if pos(z1...) then t=t or 1
if pos(z2...) then t=t or 2
if pos(z3...) then t=t or 4
select case t
    2,4,6: z1 verwenden
    1,4,5: z2 verwenden
    1,2,3: z3 verwenden
    else / 7: alle alternativen belegt
end select

Spätestens wenn alle Begrenzungszeichen dann auch innerhalb des Strings stecken, wird's dann wieder haarig.

Ich bin mir aber nicht sicher, ob Du nicht vielleicht auch was mit "escapen" werden könntest. Das " wird dann durch \" ersetzt und der Empfänger weiß damit, daß nach dem \ das nächste Zeichen direkt so übernommen und nicht interpretiert wird. Das dürfte dann aber direkt von dert DB-Engine abhängen...

Gruß, Michael