Advertisement
4_2005-2006 Databases/ Data Access/ DAO/ ADO #151674

SQL_Fix

Corrects for reserved SQL characters in SQL queries. This will correct your SQL statement if an apostrophe or 'pipe' character is in the SQL query. It is a better fix than the SQL functions which replace ' with '' because those will actually still fail in certain situations (such as in FindFirst commands).

AI

Resumen de IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Código fuente
original-source
Public Function SQL_Fix(ByVal sSQL as string) as string
  Dim sTempSQL as string
  'replace apostrophes
  sTempSQL = Replace(sSQL, "'", "' & Chr(39) & '")
  'replace pipe symbols
  SQL_Fix = Replace(sTempSQL, "|", "' & Chr(124) & '")
End Function

Comentarios originales (3)
Recuperado de Wayback Machine