Listar campos...

[AbraaoRamiro 1]

Galera, gostaria de saber como posso listar os campos de uma tabela selecionada em um LisBox...

Em php é só executar a seginte SQL e ele lhe retorna os campos "SHOW FIELDS FROM" mais em Delphi não deu certo... Uso o banco de dedos Interbase 5.1 e o FireBrird mais gostaria se possível que table postasem resposta com o paradox... pos estou temtando fazer um convesor de dados....

 

já tô ficando maluco de procurar SQL's.... :wacko:

 

há se não poder em SQL postem um comoando ou um função ai... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[proteus 0]

procedure TForm1.Button1Click(Sender: TObject);var i:integer;beginfor i:=0 to table1.Fields.Count -1 do   begin   ListBox1.Items.Add(table1.Fields[i].FieldName);   end;end;

isso de um tdataset..

 

Do banco,

extrair-se pode da tabela do banco que contem o nome das tabelas...

em oracle seria cols...

em firebird,,, eu não me lembro o nome...

[AbraaoRamiro 1]

Aí proteus, muito obrigado pela dica, já ajudou um pouco... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

mais ele só funciona se os campos já tiverem sidos adicionados no TDataSet... se tiver em branco não lista..

 

 

Queria pegar os campo assim como o IB Expert pega, acho que deve ser através de SQL...

 

O IB EXpert pega os nomes das Tabelas e dos Campos... massa né...

 

 

De qualquer forma obrigado... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

Mais o Tópico ainda continua aberto para novas dicas e script's... B)

 

 

 

 

.

[araujo 0]

Falaa...Bom parcero... axo que você poderia usar o componente DBLookupListBox... dai você linka ele com a tabela e ja era... nao precisa de nenhum comando não.. espero que essa seja a solução...{%}'s

[proteus 0]

Como retornar o nome da tabela, a chave primaria, indice e campos do indice de determinada tabela no FB? Comando:SELECT RDB$RELATION_CONSTRAINTS.RDB$RELATION_NAME AS TABELA,RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_NAME AS CHAVE,RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME AS INDICE_DA_CHAVE,RDB$INDEX_SEGMENTS.RDB$FIELD_NAME AS CAMPO,RDB$INDEX_SEGMENTS.RDB$FIELD_POSITION AS POSICAOFROM RDB$RELATION_CONSTRAINTS,RDB$INDICES,RDB$INDEX_SEGMENTSWHERE RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY'AND RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME = RDB$INDICES.RDB$INDEX_NAMEAND RDB$INDEX_SEGMENTS.RDB$INDEX_NAME = RDB$INDICES.RDB$INDEX_NAMEORDER BY RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_NAME,RDB$INDEX_SEGMENTS.RDB$FIELD_POSITION

http://www.firebird.com.br/faq.php?topic=4#faq41

[AbraaoRamiro 1]

Descupe a burricy mais tentei colocar isso ai no campo SQL de um componente IBQuery com tudas as ligações com o IBTransaction1,IBDatabase1 e DataSource2 com um DBGrid... no grid aparece o come das colunas certinho mais não lista nenhuma informação como se não tivese nehum cadastro...

mais a tabela liga (Active=true) direitinho....

 

Acho que não soube usar direito o código... podem me esplicar o q houve.... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif