Problema con una consulta y un like

[julioccz84]

Hola a todos, bueno antes que nada dejenme decirles que este foro me ha gustado mucho, he podido hacer algunas pequeñas bases de datos consultando solo los temas ya escritos por los demas, hasta hoy. Me encontre con una query que no me funciona y no se porque...

La idea es realizar una busqueda en la tabla "Alumnos", la busqueda se realizara escribiendo todo o parte del "Nombre" del alumno, despues que aparezcan todas las coincidencias mostrarlas en un DbGrid, y que al darle doble click a un nombre me permita modificar ese registro.

Tengo ya otro formulario igual, en otra base de datos y me funciona perfecto, pero este me marca el error: Project SysTila.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][Controlador ODBC Microsoft Access] Pocos Parámetros. Se esperaba 1.'. Process stopped.

Utilizo como se abran dado cuenta, a mi base de datos en access, cree un alias para utilizar los componentes DBE. Como les digo ya habia trabajado asi en otra base de datos, pero aqui no quiere...

Código SQL [-]Query1.SQL.Clear;
query1.sql.add('select * from Alumnos where Nombre like "%'+Edit1.text+'%" order by (Nombre) ');
query1.active:=true;




les agradeceria mucho si alguien me pudiera ayudar un poco saludos.

[[poliburro]]

no uses BDE, mejor usa ado.


Prueba con esto

Código Delphi [-]
 
Query1.Close;
Query1.Text :=  'Select * from Alumnos where Nombre like ''%'+Edit1.text+'%'' order by Nombre';
Query1.Open;

[julioccz84]

hola poliburro, pues muchas gracias por tu ayuda y el interes en ayudarme, queria comentarte que si funciono perfecto asi la consulta, lo hice solo modificando las comillas(") por dos apostrofes (' ') como tu lo hiciste
aunque sigo trabajando en BDE saludos y gracias de nuevo

[ozsWizzard]

Jo, siento ser quisquilloso pero a mí, personalmente, no me gusta usar las comillas tanto (al final te puedes hacer un lío con tanta comilla), para estos casos uso QuotedStr, quedaría de esta forma:

Código Delphi [-]
Query1.Close;
Query1.Text :=  'Select * from Alumnos where Nombre like ' + QuotedStr('%' + Edit1.Text + '%') + ' order by Nombre';
Query1.Open;