FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Buscar texto indistintamente en Mayusculas o minusculas
Hola, quisiera saber como puedo indicar que en una busqueda de datos no distinga entre Mayúsculas o Minúsculas, en un campo Memo.
En el ejemplo siguiente trabaja bien con un campo texto como es "RESUMEN", pero como puedo hacer para que en el campo TEXTO que es un "memo", la busqueda de datos no distinta mayusculas o minusculas, ya que si pongo fDatabase.q_pre.SQL.add('or UPPER(TEXTO) LIKE :buscar') me da un error del tipo Mismatch. Estoy trabajando con Dbase, Delphi 6. Un saludo Jose Manuel ................................................................................... procedure TfRegistro.buscar_por_textoClick(Sender: TObject); var aBuscar: string; ClickedOK: Boolean; begin aBuscar := 'escriba texto a buscar'; ClickedOK := InputQuery('Texto a Buscar', 'texto:', aBuscar); if ClickedOK then begin aBuscar:=UPPERCASE(aBuscar); fDatabase.q_pre.active:=false; fDatabase.q_pre.SQL.clear; fDatabase.q_pre.SQL.add('Select * from PREGUNTA'); fDatabase.q_pre.SQL.add('where UPPER(RESUMEN) LIKE :buscar'); // BIEN ->fDatabase.q_pre.SQL.add('or TEXTO LIKE :buscar'); // <-- CAMPO MEMO fDatabase.q_pre.SQL.add('order by ID'); fDatabase.q_pre.Params[0].AsString := '%'+abuscar+'%'; fDatabase.q_pre.active:=true; end; end; |
|
|
|