62 respuestas en este tema

[luk2009]

delphi

SQL.Add(' where ' + ' (upper(ACMSUB.clientes COLLATE ES_ES_CI_AI )) LIKE ' +quotedstr('%' + edcliente.Text + '%')+'');   

quitando los collates y demas chequea la ultima parte, asi me funciona a mi en mi programa

[TiammatMX]

Bueno, por algo yo dije que quizá lo que decía era una tontería... sabiendo que eso es una de las primeras cosas que se chequean... pero también puede existir la posibilidad de que nos olvidemos.
No era mi intención ofenderte ni molestar.

Estoy pensando que otra alternativa se podría probar...

Saludos,

Te juro por mi madre que no me molesté, Delphius, al contrario, admiro tu forma de plantear una pregunta inteligente. Eso es para mí mejor, por que me obligan a pensar en posibles métodos de resolver un problema...

Es más..., para que veas que no hay "fijón"..., ahí te van unas frías... 

[TiammatMX]

¿ Ya intentaste con parametros ?

Salud OS

Sí, Eliseo. De hecho, el código original de ayer era exclusivamente con parámetros..., ¿y qué crees? Que no funcionó..., por eso me puse a hacer el proceso con el valor directo.

[TiammatMX]

...pero no puedo resolver UN CONDENADO LIKE EN UN TEXTO... 

¿No hablarás de un campo tipo TEXT? ¿no?

¿SQL.Text sirve para el caso? ¡¡ME CONFUNDEEESSSSSS!! jajajajajajajaja

[egostar]

¿ Ya intentaste con parametros ?

Salud OS

Sí, Eliseo. De hecho, el código original de ayer era exclusivamente con parámetros..., ¿y qué crees? Que no funcionó..., por eso me puse a hacer el proceso con el valor directo.

Me parece que no tienes problema con la sentencia LIKE, tienes el probema en otro lado, tal vez en el componente que estás usando, ¿ ya viste las imagenes que he subido ?

Salud OS

[TiammatMX]

Pues he probado mi teoría de parámetros tanto en IBExpert como en Delphi y funciona como lo soñe

Salud OS

Interesante aproximación..., la probaré en cuanto llegue a la oficina mañana. Hoy, seré solamente espectador de mi debacle...

Por cierto, ¿alguien está viendo el soccer?

[TiammatMX]

¿ Ya intentaste con parametros ?

Salud OS

Sí, Eliseo. De hecho, el código original de ayer era exclusivamente con parámetros..., ¿y qué crees? Que no funcionó..., por eso me puse a hacer el proceso con el valor directo.

Me parece que no tienes problema con la sentencia LIKE, tienes el probema en otro lado, tal vez en el componente que estás usando, ¿ ya viste las imagenes que he subido ?

Salud OS

ADOQuery's..., pero hasta el momento, han funcionado de perlas. El problema es que la falta de presupuesto no permite usar otra cosa. Sobre todo, por que el HHH Gobierno del Distrito Federal quiere usar MS SQL Server y no otra cosa menos compleja de manejar...

Y sí, ya ví las imágenes. Voy a probar mañana a primerísima hora.

Saludines.

[egostar]

¿ Ya intentaste con parametros ?

Salud OS

Sí, Eliseo. De hecho, el código original de ayer era exclusivamente con parámetros..., ¿y qué crees? Que no funcionó..., por eso me puse a hacer el proceso con el valor directo.

Me parece que no tienes problema con la sentencia LIKE, tienes el probema en otro lado, tal vez en el componente que estás usando, ¿ ya viste las imagenes que he subido ?

Salud OS

ADOQuery's..., pero hasta el momento, han funcionado de perlas. El problema es que la falta de presupuesto no permite usar otra cosa. Sobre todo, por que el HHH Gobierno del Distrito Federal quiere usar MS SQL Server y no otra cosa menos compleja de manejar...

Y sí, ya ví las imágenes. Voy a probar mañana a primerísima hora.

Saludines.

Pues he hecho la prueba con una base de datos MS SQL Server y ADO y me funciono de perlas. Te dejo la imagen para que veas.

Salud OS

Archivos adjuntos

•  1332_31d478f293232ff376fdc0bc58aef99819739aee.jpg   17,41KB   8 descargas
•  1330_a744071a3ca2e0d1a908ccedb7e46bf6bdbebc0d.jpg   119,42KB   8 descargas

[egostar]

Por cierto, ¿alguien está viendo el soccer?

¿ Quien juega ?

Salud OS

[kafastoforman]

Por cierto, ¿alguien está viendo el soccer?

¿ Quien juega ?

Salud OS

Pues juega México vs Corea del Norte.

Y si, lo estoy medio viendo jejejejeje, van 0-0

Saludos

KAfastoforman

[egostar]

Pues juega México vs Corea del Norte.

Y si, lo estoy medio viendo jejejejeje, van 0-0

Saludos

KAfastoforman

Ah vaya, pues suerte, que la fuerza los acompañe, porque yo no

Salud OS

[luk2009]

Les platico. Por motivos de una consulta general, se me ocurrió utilizar la sentencia LIKE en mi conjunto de sentencias SQL, por medio de éste código...

delphi

procedure TfrmBsqdDts.bitbttnBscrClick(Sender: TObject);
var
  wsSQLTxt : widestring;
  sArmr : string;
begin
 
  wsSQLTxt := 'SELECT Ca_Area, Ca_Titulo, Ca_Nombre, Ca_Paterno, Ca_Materno, '+
                     'Ca_institucion, Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud FROM carea'+
                     ' WHERE (ca_cancelado = 0) ';
 
  if (edtArea.Text <> '') OR
     (edtTitulo.Text <> '') OR
     (edtNombres.Text <> '') OR
     (edtAplldPaterno.Text <> '') OR
     (edtAplldMaterno.Text <> '') then
  begin
    if (edtArea.Text <> '') then
    begin
      sArmr := '%'+edtArea.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_area LIKE '+sArmr+')';
    end;
 
    if (edtTitulo.Text <> '') then
      wsSQLTxt := wsSQLTxt +
                  'AND (ca_titulo LIKE '+QuotedStr('%'+edtTitulo.Text+'%')+') ';
 
    if (edtNombres.Text <> '') then
      wsSQLTxt := wsSQLTxt +
                  'AND (ca_nombre LIKE '+QuotedStr('%'+edtNombres.Text+'%')+') ';
 
    if (edtAplldPaterno.Text <> '') then
      wsSQLTxt := wsSQLTxt +
                  'AND (ca_paterno LIKE '+QuotedStr('%'+edtAplldPaterno.Text+'%')+') ';
 
    if (edtAplldMaterno.Text <> '') then
      wsSQLTxt := wsSQLTxt +
                  'AND (ca_materno LIKE '+QuotedStr('%'+edtAplldMaterno.Text+'%')+') ';
  end;
  wsSQLTxt := wsSQLTxt +';';
 
  with dtamdlDts.ADOQryBsqd do
  begin
    Active := False;
    SQL.Clear;
    SQL.Text := wsSQLTxt;
    Active := True;
  end;
 
end;

Arrojándome éste valor para la variable wsSQLTxt:

sql

SELECT Ca_Area, Ca_Titulo,
            Ca_Nombre, Ca_Paterno,
            Ca_Materno, Ca_institucion,
            Ca_Dirg, Ca_Dir,
            Ca_Sub, Ca_Jud
  FROM carea
  WHERE (ca_cancelado = 0) AND (ca_area LIKE %APOYO%);

El problema esencial es que me envía éste error desde el SQLServer:
Project AreaTree.exe raised exception class EOleException with message '[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near 'APOYO'.

Y obviamente no ejecuta ni me muestra los datos que se requieren.

En mi confiabilísimo manejador de SQL Server, detecté parte del problema, que consiste en la inexistencia de dos comillas simples junto a los signos de porcentaje, y SQL Server acepta una sintaxis así:

sql

SELECT Ca_Area, Ca_Titulo, Ca_Nombre,
       Ca_Paterno, Ca_Materno, Ca_institucion,
       Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud
  FROM carea
  WHERE (ca_cancelado = 0) AND
        (ca_area LIKE '%APOYO%');

Mi pregunta va en el sentido, ¿cómo puedo asegurarme que solamente UNA comilla simple será añadida a mi texto? He usado QuotedStr() y juegos de comillas dentro del código, pero me pone DOS comillas simples y obviamente ésto genera un error dentro del motor de base de datos...

¿Algún consejo o solución que puedan aportarme, por favor?

Estoy con enecumene sobre el asunto de los OR  y tengo algo parecido y me funciona asi:

delphi

procedure TfrmBsqdDts.bitbttnBscrClick(Sender: TObject);
var
  wsSQLTxt : widestring;
 
begin
 
  wsSQLTxt := 'SELECT Ca_Area, Ca_Titulo, Ca_Nombre, Ca_Paterno, Ca_Materno, '+
                     'Ca_institucion, Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud FROM carea'+
                     ' WHERE (ca_cancelado = 0) ';
  
begin
    if (edtArea.Text <> '') then
    begin
    //  sArmr := '%'+edtArea.Text+'%';
    
  wsSQLTxt := wsSQLTxt + ' AND (ca_area LIKE '+QuotedStr('%'+Edtarea.Text+'%')+' 
    end
else
 
    if (edtTitulo.Text <> '') then
      wsSQLTxt := wsSQLTxt + ' AND (ca_titulo LIKE '+QuotedStr('%'+edtTitulo.Text+'%')+' 
 
else 
 
if (edtNombres.Text <> '') then
      wsSQLTxt := wsSQLTxt + ' AND (ca_nombre LIKE '+QuotedStr('%'+edtNombres.Text+'%')+'
 else
 
if (edtAplldPaterno.Text <> '') then
      wsSQLTxt := wsSQLTxt + ' AND (ca_paterno LIKE '+QuotedStr('%'+edtAplldPaterno.Text+'%')+'
 
else
    if (edtAplldMaterno.Text <> '') then
      wsSQLTxt := wsSQLTxt +' AND (ca_materno LIKE '+QuotedStr('%'+edtAplldMaterno.Text+'%')+' ;
 
 end;
 
 
 
 
  with dtamdlDts.ADOQryBsqd do
  begin
    Active := False;
    SQL.Clear;
    SQL.add(wsSQLtxt);
    sql.open;
  end;
 
end;     

Puede ser que haya algun error porque lo hice rapido, pero lo voy a depurar en un rato cuando llegue a la oficina.

[TiammatMX]

Mil disculpas a todos los compañeros, pero hoy no he podido tirar una sola línea de código, y posiblemente mañana en la mañana pruebe sus atinadas observaciones para solucionar éste problemita.

Como le comentaba a LUK en un correíto que me escribió, aparentemente el problema que tengo es el "parser" del MS SQL Server 2000 que estoy usando..., pero mientras no tenga una confirmación completa, seguimos en el hecho...

Saludines.

[TiammatMX]

Pues he hecho la prueba con una base de datos MS SQL Server y ADO y me funciono de perlas. Te dejo la imagen para que veas.

Salud OS

Creo que ya encontré la diferencia entre lo que me muestras aquí y lo que yo estoy haciendo.

Solamente como prueba de tu lado..., intenta SUBSTITUIR el contenido de la propiedad SQL del ADOQuery que usas, y añade una cadena que lo contenga, incluído el parámetro, a ver qué gestos te hace.

Es decir, que tengas algo como ésto...

delphi

procedure TfrmBsqdDts.bitbttnBscrClick(Sender: TObject);
var
  wsSQLTxt : widestring;
begin
 
  wsSQLTxt := 'SELECT Ca_Area, Ca_Titulo, Ca_Nombre, Ca_Paterno, Ca_Materno, '+
                     'Ca_institucion, Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud FROM carea'+
                     ' WHERE (ca_cancelado = 0) ';
 
  if (edtArea.Text <> '') OR
     (edtTitulo.Text <> '') OR
     (edtNombres.Text <> '') OR
     (edtAplldPaterno.Text <> '') OR
     (edtAplldMaterno.Text <> '') then
  begin
    if (edtArea.Text <> '') then
    begin
      dtamdlDts.ADOQryBsqd.Parameters.ParamByName('pArea').Value := '%'+edtArea.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_area LIKE :pArea)';
    end;
 
    if (edtTitulo.Text <> '') then
    begin
      dtamdlDts.ADOQryBsqd.Parameters.ParamByName('pTitulo').Value := '%'+edtTitulo.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_titulo LIKE :pTitulo) ';
    end;
 
    if (edtNombres.Text <> '') then
    begin
      dtamdlDts.ADOQryBsqd.Parameters.ParamByName('pNombre').Value := '%'+edtNombres.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_nombre LIKE :pNombre) ';
    end;
 
    if (edtAplldPaterno.Text <> '') then
    begin
      dtamdlDts.ADOQryBsqd.Parameters.ParamByName('pApPaterno').Value := '%'+edtAplldPaterno.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_paterno LIKE :pApPaterno) ';
    end;
 
    if (edtAplldMaterno.Text <> '') then
    begin
      dtamdlDts.ADOQryBsqd.Parameters.ParamByName('pApMaterno').Value := '%'+edtAplldMaterno.Text+'%';
      wsSQLTxt := wsSQLTxt + 'AND (ca_materno LIKE :pApMaterno) ';
    end;
  end;
 
  wsSQLTxt := wsSQLTxt +';';
 
  with dtamdlDts.ADOQryBsqd do
  begin
    Close;
    SQL.Clear;
    SQL.Text := wsSQLTxt;
    Open;
  end;
 
end;

Si te funciona a tí y a mí no, te juro que me pego un tiro..., o mejor aún, me tiro un pegue...

[Delphius]

Hola TiammatMX, me extraña el hecho de que primero referencias al parámetro y luego agregas a la cadena parte de la instrucción SQL.
Creo que debería ser al revés.

Por otro lado, creo que parte del error se debe a que en realidad no estás elaborando la instrucción SQL sino es hasta el final, cuando lo haces mediante la propidad Text. Recién allí existen los parámetros.

Internamente, cuando se asigna el SQL recién se captura los nombre de los parámetros y se crean los debidos parámetros.

El asunto es que los parámetros no existen, y por tanto no están disponibles, sino es hasta que está armada la instrucción SQL.

Deberías alterar tu código para que primeramente armar el SQL y luego hacer las asignaciones a los parámetros.

Al menos con los componentes que emplean las parámetros TParam el proceso es así: Primeramente se elabora la consulta y mediante un método denominado ParseSQL es que se recién se crean los parámetros. Luego es posible las asignaciones.

No recuerdo como es el caso de ADO y su TParameter pero si sigue la misma filosofía es primero el SQL y luego las asignaciones.

Saludos,

[kafastoforman]

Que tal tiammatmx, pues yo te recomiendo que crees un storedproc en la base de datos de la siguiente manera:

sql

CREATE PROCEDURE dbo.SePareceA
@PArea VARCHAR(255) = NULL,
@PTitulo VARCHAR(255) = NULL,
@PNombre VARCHAR(255) = NULL,
@PAPaterno VARCHAR(255) = NULL,
@PAMaterno VARCHAR(255) = NULL
AS
 
BEGIN
 
SELECT Ca_Area, Ca_Titulo, Ca_Nombre, Ca_Paterno, Ca_Materno, 
       Ca_institucion, Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud 
FROM carea
WHERE ca_cancelado = 0
	  AND (@PArea IS NULL OR ca_area LIKE '%' + @PArea + '%')
	  AND (@PTitulo IS NULL OR ca_titulo LIKE '%' + @PtITULO + '%')
	  AND (@Pnombre IS NULL OR ca_nombre LIKE '%'+ @PNombre+'%' )
	  AND (@PAPaterno IS NULL OR ca_paterno LIKE '%'+ @PAPaterno +'%')
	  AND (@PAMaterno IS NULL OR ca_materno LIKE '%' + @PAMaterno + '%')
 
END

Despues de eso, lo conectas con un TADOStoredProc, y entonces tu comparación seria la siguiente:

delphi

procedure TfrmBsqdDts.bitbttnBscrClick(Sender: TObject);
 
begin
 
  if (edtArea.Text <> '') OR
     (edtTitulo.Text <> '') OR
     (edtNombres.Text <> '') OR
     (edtAplldPaterno.Text <> '') OR
     (edtAplldMaterno.Text <> '') then
  with dtamdlDts.ADOStoredProc do
  begin
    Close;
    if (edtArea.Text <> '') then
      Parameters.ParamByName('@PArea').Value := edtArea.Text
    else 
      Parameters.ParamByName('@PArea').Value := null;
   
    if (edtTitulo.Text <> '') then
      Parameters.ParamByName('@PTitulo').Value := edtTitulo.Text
    else
      Parameters.ParamByName('@PTitulo').Value:= null;
 
                         .
                         .
                         .
 
    Open;
  end;
 
end;

ya solo tendrias que terminar la asignaciónd e parametros y se supone tendria que funcionarte, si eso no funciona, entonces si, que se arme la balacera jajajaja.

Saludos

Kafastoforman

PD si no te funciona "is null" en SQL lo puedes cambialo a "= null"

[TiammatMX]

Hola TiammatMX, me extraña el hecho de que primero referencias al parámetro y luego agregas a la cadena parte de la instrucción SQL.
Creo que debería ser al revés...

Es que los parámetros los tengo definidos explícitamente, no los creo "al vuelo"...

...Al menos con los componentes que emplean las  parámetros TParam el proceso es así: Primeramente se elabora la consulta  y mediante un método denominado ParseSQL es que se recién se crean los  parámetros. Luego es posible las asignaciones.

No recuerdo como  es el caso de ADO y su TParameter pero si sigue la misma filosofía es  primero el SQL y luego las asignaciones.

Eso es cierto..., pero como te comento, los parámetros YA están creados, solamente hago referencia directa a ellos...

[TiammatMX]

Que tal tiammatmx, pues yo te recomiendo que crees un storedproc en la base de datos de la siguiente manera:

sql

CREATE PROCEDURE dbo.SePareceA
@PArea VARCHAR(255) = NULL,
@PTitulo VARCHAR(255) = NULL,
@PNombre VARCHAR(255) = NULL,
@PAPaterno VARCHAR(255) = NULL,
@PAMaterno VARCHAR(255) = NULL
AS
 
BEGIN
 
SELECT Ca_Area, Ca_Titulo, Ca_Nombre, Ca_Paterno, Ca_Materno, 
       Ca_institucion, Ca_Dirg, Ca_Dir, Ca_Sub, Ca_Jud 
FROM carea
WHERE ca_cancelado = 0
     AND (@PArea IS NULL OR ca_area LIKE '%' + @PArea + '%')
     AND (@PTitulo IS NULL OR ca_titulo LIKE '%' + @PtITULO + '%')
     AND (@Pnombre IS NULL OR ca_nombre LIKE '%'+ @PNombre+'%' )
     AND (@PAPaterno IS NULL OR ca_paterno LIKE '%'+ @PAPaterno +'%')
     AND (@PAMaterno IS NULL OR ca_materno LIKE '%' + @PAMaterno + '%')
 
END

Despues de eso, lo conectas con un TADOStoredProc, y entonces tu comparación seria la siguiente:

delphi

procedure TfrmBsqdDts.bitbttnBscrClick(Sender: TObject);
 
begin
 
  if (edtArea.Text <> '') OR
     (edtTitulo.Text <> '') OR
     (edtNombres.Text <> '') OR
     (edtAplldPaterno.Text <> '') OR
     (edtAplldMaterno.Text <> '') then
  with dtamdlDts.ADOStoredProc do
  begin
    Close;
    if (edtArea.Text <> '') then
      Parameters.ParamByName('@PArea').Value := edtArea.Text
    else 
      Parameters.ParamByName('@PArea').Value := null;
   
    if (edtTitulo.Text <> '') then
      Parameters.ParamByName('@PTitulo').Value := edtTitulo.Text
    else
      Parameters.ParamByName('@PTitulo').Value:= null;
 
                         .
                         .
                         .
 
    Open;
  end;
 
end;

ya solo tendrias que terminar la asignaciónd e parametros y se supone tendria que funcionarte, si eso no funciona, entonces si, que se arme la balacera jajajaja.

Saludos

Kafastoforman

PD si no te funciona "is null" en SQL lo puedes cambialo a "= null"

De acuerdo, Kastaforman..., tú me acabas de proporcionar la última opción antes de tirarme el pegue, que diga, pegarme un tiro... 

[TiammatMX]

Gracias a Kastaforman y su solución dentro del servidor (lo cual plantea problemas de seguridad, pero ya no son mi responsabilidad...  ) se ha resuelto éste hilo.

Para la bitácora, el parser de SQL Server es EXTREMADAMENTE quisquilloso con la sentencia LIKE, de tal manera que las vueltas y revueltas de éste hilo se debieron no a Delphi, sino al bendito motor de base de datos...

Adoro Firebird cuando me encuentro con ésta clase de "detallitos" en productos de Microsoft.

P. D.: ¿Alguien podría dar por [RESUELTO] éste hilo? A mí no me deja... 

[egostar]

Ah caray, no está el prefijo, deja ver en el panel de admin que pasó

Salud OS