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