Il giorno giovedì 6 dicembre 2018 17:26:32 UTC+1, @Alex ha scritto:
> Hai provato come ti ho proposto io...?
>
> @Alex
ho creato
Public Function RaddoppiaApiciDoppipici(sTesto As String) As String
RaddoppiaApiciDoppipici = Replace(sTesto, "'", "''")
RaddoppiaApiciDoppipici = Replace(sTesto, Chr(34), Chr(34) & Chr(34))
End Function
per cui la costruzione della stringa
sSQL_web = "INSERT INTO Destination_web ( Cognome, Nome, Citta ) " & _
"VALUES (" & _
Chr(34) & RaddoppiaApiciDoppipici(!Cognome) & Chr(34) & "," & _
Chr(34) & RaddoppiaApiciDoppipici(!Nome) & Chr(34) & "," & _
Chr(34) & RaddoppiaApiciDoppipici(!Citta) & Chr(34) & _
")"
e la stringa
viene
INSERT INTO Destination_web ( Cognome, Nome, Citta )
VALUES ("D'Almine","Via D'Angiò ""Detto Angio""","L'Aquila")
INSERT INTO Destination_web ( Cognome, Nome, Citta )
VALUES ("D'Amico","G""iovanni","Roma")