Trazer os dados do Banco de Dados para o combobox

Delphi

08/05/2003

var
Op1 : integer;
Opcao1 : integer;
Posicao1 : Integer;
Pos1 : integer;
Opca1 : integer;
Posic1 : integer;
begin
Op1 := -1;
Opcao1 := ComboDia.Items.IndexOf(IBQCliente.FieldByName(´Dia´).AsString);
If Opcao1 >= Op1 Then
ComboDia.ItemIndex := Opcao1;
Pos1 := -1;
Posicao1 := ComboMes.Items.IndexOf(IBQCliente.FieldByName(´Mes´).AsString);
If Posicao1 >= Pos1 then
ComboMes.itemIndex := Posicao1;
Opca1 := -1;
Posic1 := ComboMes.Items.IndexOf(IBQCliente.FieldByName(´Ano´).AsString);
If Posic1 >= Opca1 then
ComboAno.ItemIndex:= Posic1;
por que não aparece o dado no combobox quando quero recuperar os dados do banco de dados interbase. Os campos da tabela são char


Oziasl

Oziasl

Curtidas 0
POSTAR