Hola Delphitest.
Creo recordar que trabajas con
ADO y
Access, te pongo entonces ejemplos basados en la tabla
Employee de
dbdemos:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:= 'SELECT FIRSTNAME + '' '' + LASTNAME AS FULLNAME, * FROM EMPLOYEE';
Open;
end;
with DBLookupComboBox1 do
begin
KeyField := 'EMPNO';
ListField := 'FULLNAME';
ListSource:= DataSource1;
end;
end;
Si quisieras realizar una búsqueda incremental desde el evento
OnChange de un
TEdit, sería similar:
Código Delphi
[-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT FIRSTNAME+'' ''+LASTNAME AS FULLNAME, * FROM EMPLOYEE');
SQL.Add('WHERE FIRSTNAME +'' ''+LASTNAME LIKE :PARAM');
Parameters.ParamByName('PARAM').Value:= Edit1.Text + '%';
Open;
end;
end;
Saludos