Error al hacer varias busquedas con adoquery

[vtdeleon]

Saludos

Trata con esta modificación en esta linea:

Código Delphi [-]
qbuscar.Parameters.ParamByName('n').Value:=QuoteStr('%'+edtbuscar.Text+'%');

Usa las Etiquetas para que el codigo aparezca resaltado.

[cucuy]

Hola mira de la forma en que tenia el codigo la forma anterior no me marcaba error pero al momento de buscar no encontraba nada, entonces decidi cambiar en la sentencia igual por el like, ahy si encuentra pero al hacer un numero determinado de busquedas me vuelve a presentar el mismo error, me vuelve a presentar la fea pantalla con el titulo de CPU.

qbuscar.Close;
qbuscar.SQL.Clear;
qbuscar.SQL.Add('select * from CLIENTES where NOMBRE LIKE:n');
qbuscar.Parameters.ParamByName('n').DataType:=ftstring;
qbuscar.Parameters.ParamByName('n').Value:=('%'+trim(edtbuscar.Text)+'%');
qbuscar.Open;

[vtdeleon]

Que error te tira?

Quitale los parentesis que te puse en rojo.

qbuscar.Parameters.ParamByName('n').Value:=('%'+trim(edtbuscar.Text)+'%');

Saludos

[cucuy]

Hola que ondas oye mira ya le quite los parentesis que me dijiste pero me sigue saliendo ese error, lo que hace ahora es que por ejemplo encuentra el registro que busco pero al ejecutar la busqueda pa ver otros archivos me vuelve a salir la ventana de CPU, es la pantalla donde viene el codigo ensamblador, el titulo de la pantalla es CPU, no me falta de configurarle algo al adoquery o al adoconecction que quiza sea lo que me provoke no poder hacer las busquedas que necesito?

[vtdeleon]

Ok, creo entender a lo que te refieres con "Ventana de CPU". Ejecuta tu programa fuera de Delphi. Y escribe aqui el error que te dá el sistema.

Sin conocer ese error estamos fritos.

Saludos

[cucuy]

Oye con la novedad de que el error corriendolo desde el ejecutable fuera de delphi funciona a la perfeccion pero corriendolo con F9 malas ahy es donde truena, entonces ya mi duda seria si no me dara problemas mas adelante ese error que me salia, por que ahorita estoy intentandolo hacer que truene y de plano no falla fuera de delphi. Muchas gracias por tu ayuda y aqui paso el codigo con el que me esta funcionando por si alguien mas le sirve;

qbuscar.Close;
qbuscar.SQL.Clear;
qbuscar.SQL.Add('select * from CLIENTES where NOMBRE LIKE:n');
qbuscar.Parameters.ParamByName('n').DataType:=ftstring;
qbuscar.Parameters.ParamByName('n').Value:='%'+trim(edtbuscar.Text)+'%';
qbuscar.Open;

[cucuy]

hola ya volvi pues con la mala noticia de que estaba ejecutando mi sistema fuera de delphi i por fin me salio el error que pense que se habia ido para no volver mira el errror que me sale es Runtime error Program ABC.Exe R6025 pure virtual function call.