FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con Consulta Sql en Una Búsqueda
Buenas tardes Amigos tengo un problema con el uso del procedimiento que mas abajo les presento, el problema consiste en que si el campo que el usuario selecciono para buscar esta vacio en la tabla porque este Campo permite valores nulos (Campo último número utilizado) en el Grid que estoy mostrando los datos de la consulta cuando limpio los datos en el edit no me muestra todos los registros que deberian mostrarse en el Grid de tres registros que habia en la tabla uno no se muestra despues de buscar por este campo vacio, despues con los que si estan llenos no pasa esto.
Me gustaria si es posible saber que tengo que modificarle para que no me suceda esto. Utilizo una base de datos en Sql Server y un TRadioGroup para que el usuario seleccione el campo por el cual quiere realizar la busqueda. Muchas GRacias de antemano por la ayuda que me puedan dar al respecto y por su valioso tiempo. procedure TFBuscarNumerosdeSerie.EValorChange(Sender: TObject); const // Consulta Sql STRSQL = 'Select * From Numeros_de_Serie'; STRORDER = 'ORDER BY Codigo'; begin QDatos.Close; // Está vacío if (Evalor.Text = '') then begin QDatos.SQL.Text := STRSQL; end else If rgbuscarpor.ItemIndex = 0 then begin // montamos la sql QDatos.SQL.Text := STRSQL + ' WHERE (Codigo) LIKE (' + QuotedStr('%' + Evalor.Text + '%') + ')' + // Añadimos el WHER // Añadimos el orden STRORDER; end; If RGBuscarpor.ItemIndex = 1 then begin LValor.Caption:='Descripción'; // montamos la sql QDatos.SQL.Text := STRSQL + ' WHERE (Descripcion) LIKE (' + QuotedStr('%' + Evalor.Text + '%') + ')' + // Añadimos el WHER // Añadimos el orden STRORDER; end; If RGBuscarpor.ItemIndex = 2 then begin // montamos la sql QDatos.SQL.Text := STRSQL + ' WHERE (Numero_Inicial) LIKE (' + QuotedStr('%' + Evalor.Text + '%') + ')' + // Añadimos el WHER // Añadimos el orden STRORDER; end; If RGBuscarpor.ItemIndex = 3 then begin // montamos la sql QDatos.SQL.Text := STRSQL + ' WHERE (Numero_Final) LIKE (' + QuotedStr('%' + Evalor.Text + '%') + ')' + // Añadimos el WHER // Añadimos el orden STRORDER; end; If RGBuscarpor.ItemIndex = 4 then begin // montamos la sql QDatos.SQL.Text := STRSQL + ' WHERE (Ultimo_Numero_Utilizado) LIKE (' + QuotedStr('%' + Evalor.Text + '%') + ')' + // Añadimos el WHER // Añadimos el orden STRORDER; end; QDatos.Open; end; Última edición por hondaalberto fecha: 13-02-2012 a las 21:10:53. Razón: error en el titúlo del mensaje |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda consulta de busqueda en lista | inad20 | Firebird e Interbase | 9 | 22-05-2011 19:36:26 |
consulta para busqueda | mikylin | SQL | 2 | 14-12-2007 13:43:37 |
Problemas en busqueda | destrukthor | Conexión con bases de datos | 13 | 01-08-2006 12:58:37 |
consulta sobre busqueda... | fergape | Varios | 5 | 02-06-2006 16:02:45 |
Consulta Busqueda Incremental | Gustavo Gowdak | SQL | 1 | 13-12-2004 09:27:08 |
|