I wrote a replaceall function to handle this problem and create a DLL with
common string functions:
Function ReplaceAll(ByVa l Buffer As String, ByVal FindWhat As String, _
ByVal ReplaceWith As String) As Variant
'
' Replaces all instances of FindWhat with ReplaceWith in the
' buffer
'
Dim intLenFind As Integer
Dim intLenReplace As Integer
Dim intPos As Integer
If Len(Buffer) = 0 Then
ReplaceAll = ""
Else
intLenFind = Len(FindWhat)
intLenReplace = Len(ReplaceWith )
intPos = 1
Do
intPos = InStr(intPos, Buffer, FindWhat)
If intPos > 0 Then
Buffer = Left(Buffer, intPos - 1) & _
ReplaceWith & Mid(Buffer, intPos + intLenFind)
intPos = intPos + intLenReplace
End If
Loop Until intPos = 0
End If
ReplaceAll = Buffer
End Function
"new" <ne*@asp.net> wrote in message
news:3f******** *************@n ews.frii.net...
Just wonder how you guys handle the single quatation marks when you
write the value of a text input into SQL server. Thanks!
* * * Sent via DevBuilder http://www.devbuilder.org * * *
Developer Resources for High End Developers.
