![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() Hola Amigos!!!:
Espero que alguien me pueda ayudar con este problemilla que a continuacion describo. Cuento con una BD's en Interbase 6.5 la cual ya he conectado a Delphi 7, y puedo manipular mis datos a través de una DBNavegator, y tambien escribiendo la cadena completa a buscar... procedure TPeliculas.tituloKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then { si es la tecla <enter> } begin IBDATASET2.SelectSQL.Clear; IBDATASET2.SelectSQL.ADD('SELECT TITULO,GENERO,FORMATO,CLASIFIC FROM PELICULAS WHERE PELICULAS.TITULO="'+titulo.Text +'"'); IBDATASET2.Active :=TRUE; titulo.Text:=''; end; end; y si obtnego resultados......PERO lo que en realidad deseo es lo siguiente: Escribir caracteres en un TEdit (escribo el titulo de una pelicula) y que mientras escribo (con el evento KeyPress) se ejecute una consulta que me permita desplagar por medio de un DBGrid aquellos registros que su campo Titulo coincida con lo que se va escribiendo. He probado usando la clausula LIKE pero no arroja los registros correctos (como si lo hace por medio del IBConsole, ya lei que el LIKE tiene problemas), tambien he intentado usando STARTING WITH ![]() Hice este procedimiento en Interbase 6.5 pero ni siquiera me lo crea porque me marca un error en :tit; SET TERM !!; create procedure busca_movie (tit char(30)) returns(tit_mov char(30),form_mov char(3),gen_mov char(20)) as begin select titulo,formato,genero from peliculas where titulo starting with :tit; end!! SET TERM ;!! No se como resolver esta consulta, espero que me puedan apoyar. De antemano muchas gracias y un saludo para todos. |
|
|
![]() |
|