VBScript Function That Escapes an Entire SQL String

The following is a VBScript function that will escape an entire SQL string, not just individual field values. This is so that ' becomes '' when it's supposed to. The code can be easily converted to Visual Basic, as it was created initially using VB.Net.

 
Function DString(sSQL)
    Dim DataElements(9999)
    Dim CurrentElement
    Dim LastElement
    Dim NextElement
    Dim All

    For I = 1 To Len(sSQL)
        DataElements(I - 1) = Mid(sSQL, I, 1)
    Next
    For I = LBound(DataElements) To UBound(DataElements)
        CurrentElement = DataElements(I)
        If CurrentElement =


														Kevin Swarts
														 
														
															
																
																	
																		
																			
																				
																			
																		
																		
																			Submit a Tip
																		
																		
																			
																				
																			
																		
																		
																			Browse "Visual Basic" Tips
																		
																		
																			
																				
																			
																		
																		
																			 Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute