Error al hacer varias busquedas con adoquery

[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.

[cucuy]

Mira le estuve moviendo a dale y dale al sistema hasta que lo hice llorar, lo que hice fue con el ejecutable lo corri entonces me salio el error antes mencionando de runtime error le puse aceptar y despues le volvi a mover al edit y me salio una ventanita error inesperado y despues de esa enseguida me sale una que dice que un objeto estaba abierto y de ahy ya no me puedo mover.

[vtdeleon]

Me parece que ese error que te sale no es causado (directamente) por el código que has puesto. Debe haber algun evento, procedimiento o función que está provocando esa llamada.

Si es posible, muestranos los procedimientos o funciones involucrados de esa unidad. Y usa las etiquetas para los códigos. Edita tu primer mensaje, en donde he puesto las etiquetas para que veas como se utilizan.

Saludos

[cucuy]

hola que tal oye quieres que te pase la unidad de codigo donde me manda el error?

 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
type
  TForm1 = class(TForm)
    B: TButton;
    ADOConnection1: TADOConnection;
    qbuscar: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    edtbuscar: TEdit;
    ADOConnection2: TADOConnection;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    wbuscar: TADOQuery;
    contrato: TEdit;
    pedido: TEdit;
    Button1: TButton;
     procedure edtbuscarChange(Sender: TObject);
    procedure contratoChange(Sender: TObject);
    procedure pedidoChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.contratoChange(Sender: TObject);
begin
  wbuscar.Close;
  wbuscar.SQL.Clear;
  wbuscar.SQL.Add('select * from PEDIDOS where (PEDIDO LIKE:n)');
  wbuscar.Parameters.ParamByName('n').DataType:=ftstring;
  wbuscar.Parameters.ParamByName('n').Value:='%'+trim(contrato.Text)+'%';
  wbuscar.Open;
end;
procedure TForm1.pedidoChange(Sender: TObject);
begin
  wbuscar.Close;
  wbuscar.SQL.Clear;
  wbuscar.SQL.Add('select * from CLIENTES,PEDIDOS where (PEDIDO LIKE:n) and (PEDIDOS.CLIENTE = CLIENTES.CLIENTE)');
  wbuscar.Parameters.ParamByName('n').DataType:=ftstring;
  wbuscar.Parameters.ParamByName('n').Value:='%'+trim(pedido.Text)+'%';
  wbuscar.Open;
end;
end.

mira truena en cualquier de los dos onchange de los edit el queri lo tengo ligado a un adoconection y tengo un dbgrid q muestra los y este oviamente ta ligado a un tdatosource ligado al adoquery

[[egostar]]

No necesitas la opcion de DataType = ftString, quitala y prueba.

Salud OS.

[[Caral]]

Hola cucuy
Yo intentaria esto primero y luego por parametros:

Código Delphi [-]
qbuscar.Close;
qbuscar.SQL.Clear;
qbuscar.SQL.Add('select * from CLIENTES where NOMBRE like' +QuoteStr(edtbuscar.Text));
qbuscar.Open;

Creo que se ve mas facil, por lo menos para empezar
Saludos

[[Caral]]

Hola
La verdad yo haria un simple filtro asi:
Pensando que pedidos es numerico:

Código Delphi [-]
procedure TForm1.contratoChange(Sender: TObject);
var
   Filtro : String;
begin
  wbuscar.Filtered := False;
  Filtro := 'PEDIDOS Like '+contrato.Text;
  wbuscar.Filter := Filtro;
  wbuscar.Filtered := True
end;

Si pedidos es texto:

Código Delphi [-]
procedure TForm1.contratoChange(Sender: TObject);
var
   Filtro : String;
begin
  wbuscar.Filtered := False;
  Filtro := 'PEDIDOS Like '''+contrato.Text+ '*''';
  wbuscar.Filter := Filtro;
  wbuscar.Filtered := True
end;

Teniendo en cuenta que wbuscar se encuentra abierto.
Saludos

[cucuy]

Hola Caral Como estas mira eso de quitarle la instruccion de datatype lo tenia antes asi y me mandaba errror mas rapido, y entonces me puse a hacer tu segunda recomendacion que es la de poner un simple filtro en el onchange en lugar de estar haciendo un select, el problema fue que puse el filtro que me dijiste ocacion lo hace bien pero a la segunda me manda un error que dice: ABC. exe raised exception class EOle Exception with message 'Argumentos incorrectos', fuera del intervalo permitido o en conflicto con otro. La configuracion que tengo de los componentes que utilizo en esta operacion es la que viene de foul, solo ago la conexion del adoconection con la base de datosy ligo el adoquery a el adoconection osea que no le e movido a nada de los tipos de cursores y esas cosas, por que lo intente y el resultado era el mismo o el peor por que que en veces no me mostraba informacion.

procedure TForm1.contratoChange(Sender: TObject);
var
filtro:string;
begin
  wbuscar.Filtered := False;
  Filtro := 'PEDIDO Like '''+contrato.Text+ '*''';
  wbuscar.Filter := Filtro;
  wbuscar.Filtered := True