hola denuevo:
he hecho esto
Código Delphi
[-]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; ComboBox1: TComboBox; DBGrid1: TDBGrid; Query1: TQuery; DataSource1: TDataSource; procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin query1.Open; end; procedure TForm1.Edit1Change(Sender: TObject); var Filtro : String; begin If (Edit1.Text <> '') then begin Query1.Filtered := False; case combobox1.ItemIndex of 0:Filtro := 'Nombre Like '+Edit1.Text + '*'''; 1:Filtro := 'Codigo Like '+Edit1.Text + '*'''; end; Query1.Filter := Filtro; Query1.Filtered := True end else Query1.Filtered := False; end; procedure TForm1.FormDestroy(Sender: TObject); begin Query1.Close; end; end.
1º hice una table con campos Nombre y codigo nada mas, llenando nombres y codigos al asar (jose - 3411, luis - 3415,.......).
2º coloque en el SQL del query
Select*
from busqueda (busqueda es el nombre de la tabla de 2 campos)
3º al ejecutar el programa no me salen errores, pero al digitar 'j' en el edit me sale el error (Query1: Field 'j' not found) y logico no busca nada o algo parecido
4º no se
como le hiciste o que es
ATClientesCodCliente: TIntegerField;
ATClientesNombreCliente: TWideStringField; en tus codigos
quiza aqui este mi problema.
podrias explicame donde esta mi gravisimo error
Saludos y gracias por tu tiempo.