Reply to thread

Message

[QUOTE="bloukewer, post: 2915, member: 384"]
[b]HERE's SOME CODE[/b]

You can use this piece of code I wrote for an application of mine.  I placed the function in a module so that I were able to call it up whenever I wrote to my database.  Feel welcome to copy and paste it.  It works 100%.

'******************************************************

Friend Function ParseToSql(ByVal InputString As String) As String
        Dim strtemp As String
        strtemp = ""
        Dim cnt As Integer

For cnt = 0 To InputString.Length - 1
            If InputString.Substring(cnt, 1).Equals("'") Then
                strtemp &= "''"
            ElseIf InputString.Substring(cnt, 1).Equals("""") Then
                strtemp &= """"
                'MessageBox.Show(cnt & " replaced. New string = " & strtemp)
            Else
                strtemp &= InputString.Substring(cnt, 1)
            End If
        Next
        Return strtemp
    End Function

'**********************************************

Please note... It might look like double quotes, but it's not.  It's double single quotes inside single double quotes  :D   ENJOY!
[/QUOTE]

Verification