/* Caros amigos estou utilizando o Firebird 1.5 com Delphi 7.0 Vejam o seguinte código :
{$R *.dfm}
Procedure TForm1.TComboBox1(Sender:TObject);
Var
i:Integer;
Begin
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select Descricao_Da_Natureza From Natureza_Ocorrencia');
IBQuery1.Open;
ComboBox1.Items.Clear;
For i:=1 to IBQuery1.RecordCount do Begin
ComboBox1.Items.Add(IBQuery1.FieldByName('Descricao_Da_Natureza').AsString);
IBQuery1.Next;
end;
ComboBox1.ItemIndex:=0;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
TComboBox1(Sender);
end;
end.
O que o código acima deveria fazer : carregar várias opções no combo para que eu selecione uma e por sua vez preencha os dados restantes da tabela ; muito bem porém o que acontece ? o combo carrega somente o primeiro registro isso quando feito utlizando firebird , porém se feito no paradox vem normal ou seja todos os registros para ser escolhido , onde estaria errado ? PS se puder me dizer também quais os componentes da paleta que eu devo usar para trazer os resultados , ficaria grato pois acho que os componentes do firebird são os mesmos do interbase então se puderem explanar quais paletas seria ótimo . Obrigado e T+ */