Error con LIKE y apóstrofe

[Tecnic2]

Hola a todos,

Tengo que hacer una búsqueda en mi aplicación de un camp de texto, para éllo utilizo una consulta SQL con la instrucción LIKE. El problema me viene cuando lo que tengo que buscar son nombres de ciudades como L'Hospitalet, el cual contiene un apóstrofe que el SQL interpreta como final de cadena y me genera un error.

Cómo puedo solventar éste problema?

Gracias por adelantado.

[Investment]

Yo lo que hago normalmente es sustituir el apóstrofe por un acento en la tabla para poder buscar sin problemas

L'Hospitalet se convierte en L´hospitalet y ya puedes buscar sin problemas.

[Tecnic2]

Garcias por respoder.

Ésta solución ya la había pensado yo, pero al buscar después no encuentran L'Hospitalet porque me escriben un acento seguido de espacio, sinó una apóstrofe.

Alguna solución mas?

[[basti]]

Hola

Tienes que sustituir la comilla simple por dos comillas simples, de manera que te quede así: L''Hospitalet

un saludo

[Neftali [Germán.Estévez]]

Empezado por Tecnic2

..El problema me viene cuando lo que tengo que buscar son nombres de ciudades como L'Hospitalet, el cual contiene un apóstrofe que el SQL interpreta como final de cadena y me genera un error.

Puedes utilizar una función similar a ésta para pasársela a la cadena antes de hacer la búsqueda; Lo que hace es sustituir una comilla simple por dos; Supongo que puedes programar otras variantes; Busca en la ayuda de delphi sobre Pos, para buscar un caracter (y no tener que recorrer toda la cadena), o incluso la función AnsiReplaceStr, para sustituir directamente (que en las últimas versiones de Delphi ya viene); Pero bueno mientras tanto...

Código Delphi [-]
function ReplaceSimpleQuote(str : string): string;
const
  QUOTE = #39;
var
  i   : integer;
begin
  Result := STR_EMPTY;
  // recorrer la cadena
  for i:=1 to length(str) do begin
    // si encuentra comilla....
    if str[i]= QUOTE then begin
      // añado dos en lugar de una
      result := result + QUOTE + QUOTE;
    end
    else begin
      // dejo el caracter que estaba....
      result := result + str[i];
    end;
  end;
end;

[Tecnic2]

Por lo que veo, con las soluciones que me dais, lo que se hace es no solucionar el problema sinó que evita que salga el error.

De todas formas, muchas gracias por las respuestas.

[[basti]]

Hola

A mi me funciona, te pongo un ejemplo.

Código SQL [-]
   Select Codigo, Nombre, Direccion from clientes where poblacion like oblacion

Código Delphi [-]
    QClientes.ParamByName('poblacion').AsString := AnsiReplaceStr(Edit1.Text, '''', '''''');
    QClientes.Open;

El segundo parámetro de AnsiReplaceStr son cuatro comillas y el último seis comillas.
Si no tienes esta función en tu delphi puedes usar la función que te dio Neftali.


un saludo