kcris Postado Fevereiro 10, 2005 Denunciar Share Postado Fevereiro 10, 2005 Pessoal gostaria de saber como exibir os dados no tdbComboBox puxando de um Banco de dados do Acess. Fiz uma parte do código, mas não sei como continuar...procedure TfrmPrincipal.cbCulturasChange(Sender: TObject);//type Vetor = array [1..qryCulturas.MaxRecords] of Integer; {Array de ComboBoxes }var Indice: Integer;begin Indice := 0; While (Indice <= qryCulturas.MaxRecords) do Begin cbCulturas.Items := qryCulturas.DataSource.DataSet.FieldList; Indice := Indice + 1; End;end;É no onChange mesmo, o que devo fazer? Muito obrigadaCarla Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Fevereiro 10, 2005 Denunciar Share Postado Fevereiro 10, 2005 Olá Carla,Num precisa disso não,coloque um DataSource linkado com o a sua query (qryCulturas) e no DBCombobox, na opção DataSource coloque esse DataSource que você incluiu, e na opção DataField o campo de você quer mostrar no DBComboBox.Abs. Progr'amador. Link para o comentário Compartilhar em outros sites More sharing options...
0 kcris Postado Fevereiro 11, 2005 Autor Denunciar Share Postado Fevereiro 11, 2005 Eu fiz isso, só que na query eu faço um select, pois na tabela tem vários campos e eu só quero que exiba um, então no combo só aparece o 1º da lista quando eu rodo. Nesse caso o que faço? Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Fevereiro 11, 2005 Denunciar Share Postado Fevereiro 11, 2005 Eu fiz isso, só que na query eu faço um select, pois na tabela tem vários campos e eu só quero que exiba um, então no combo só aparece o 1º da lista quando eu rodo.Vou tentar explicar como fiz passo a passo: Coloquei um adoconection, conectei com meu banco access, depois liguei um ADOtable, com um datasource e uma query, então interliguei-os com o ComboBox. Tente fazer um exemplo rápido do modo que eu fiz, com os mesmos componentes, puxando dados de uma tabela do access, o que acontece no seu? Nesse caso o que faço? Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Fevereiro 11, 2005 Denunciar Share Postado Fevereiro 11, 2005 Mais uma coisa, estava vendo outros exemplos, será que tenho que fazer algo deste tipo? Onde faço, no onChange do combo, no onCreate do form?qryCulturas.First; while not qryCulturas.Eof do begin cbCombo.Items.Add(qryCulturas.FieldByName('Nome').AsString); qryCulturas.Next; end; Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Fevereiro 11, 2005 Denunciar Share Postado Fevereiro 11, 2005 Olá,Num sei se entendi bem, mas nesse caso você teria que usar outra query pro bdcombobox.Posta ae sua select?Pra que eu possa entender melhor: qual seria a finalizadade do dbcombobox nesse form?Abs. Progr'amador. Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Fevereiro 11, 2005 Denunciar Share Postado Fevereiro 11, 2005 A tabela é mais ou menos assim : Cod Culturas índice u 1 Feijão 1 2 Banana 0,25 O nome da Tabela é culturas, e o campo que quero exibir no combo é o campo culturas. Fiz assim: Select Culturas from Culturas Depois de escolher qual cultura ele quer, terá outros combos que dependem dele. Por exemplo, se ele escolher a cultura feijão, no próximo combo terá que aparecer só os tipos de solo para plantar o feijão, e assim por diante. Mas se não conseguir resolver este probleminha, não consigo prosseguir... Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Visitante Postado Outubro 31, 2006 Denunciar Share Postado Outubro 31, 2006 (editado) Editado Editado Novembro 1, 2006 por Progr'amador Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
kcris
Pessoal gostaria de saber como exibir os dados no tdbComboBox puxando de um Banco de dados do Acess. Fiz uma parte do código, mas não sei como continuar...
procedure TfrmPrincipal.cbCulturasChange(Sender: TObject);
//type Vetor = array [1..qryCulturas.MaxRecords] of Integer; {Array de ComboBoxes }
var Indice: Integer;
begin
Indice := 0;
While (Indice <= qryCulturas.MaxRecords) do
Begin
cbCulturas.Items := qryCulturas.DataSource.DataSet.FieldList;
Indice := Indice + 1;
End;
end;
É no onChange mesmo, o que devo fazer?
Muito obrigada
Carla
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados