• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Clean Text before insertion into an SQL Server Database

Clean Text before insertion into an SQL Server Database

Clean Text before insertion into an SQL Server Database

Rate Clean Text before insertion into an SQL Server Database

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'// This routine just cleans up any strings with offending characters like "'" which
'// cause a problem during an Execute method while updating a database table
'// the first argument is for the string to clean, the second argument is the
'// offending character

'// Author:   Jan Mohamed
'// Date:     2nd January 2003
'// Warning:  Author name must be retained (as if anyone is going to listen)
'//***************************************************************************

Public Function CleanText(ByVal sTextToClean As String, ByVal sBadText As String) As String

    Dim vPosition, lStart As Long
    
    CleanText = Trim(sTextToClean)
    lStart = 1
Start_Check:
    vPosition = InStr(lStart, CleanText, sBadText)
    
    If vPosition Then
        CleanText = Left(CleanText, vPosition) & sBadText & _
                    Mid(CleanText, vPosition + 1, Len(CleanText))
        lStart = vPosition + 2
        GoTo Start_Check
    End If
    

End Function