Doubling Quotes for SQL Statements

Doubling Quotes for SQL Statements

This routine parses a string and returns an equivalent string where all the instances of a given substring are doubled. This is especially useful for doubling quotes within SQL statements to be passed to Access or other database engines that expect double quote marks to represent a single quote mark:

 Public Function DoubleString ( _	ByVal str As String, _	ByVal strDoubleString As String) As String	Dim intStringLength As Integer	Dim intDoubleStringLength As Integer	Dim intPosition As Integer	Dim strTemp As String	intStringLength = Len(str)	intDoubleStringLength = Len(strDoubleString)	strTemp = str	If intStringLength >= _		intDoubleStringLength And _		intDoubleStringLength > 0 Then		intPosition = 1		Do While (intPosition > 0) And _			(intPosition  0 Then				strTemp = Left(strTemp, _					intPosition - 1 + _					intDoubleStringLength) & _					strDoubleString & _					Mid(strTemp, intPosition + _					intDoubleStringLength, _					intStringLength)				intStringLength = Len(strTemp)				intPosition = intPosition + _					(intDoubleStringLength * 2)			End If		Loop	End If	DoubleString = strTempEnd Function

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist