field

[martinusso 0]

Como faço para recuperar todas as minhas tabelas do banco de dados FIREBIRD em uma vetor..Preciso do nomes das tabelas no formato String....Depois com o nome das tabela quero recuperar o nome dos campos delas

[thalesoli 0]

Boa tarde

 

Utilize o sql abaixo para obter todas as tabelas criadas por você

 

select rdb$relation_namefrom rdb$relationswhere ((rdb$system_flag = 0) or (rdb$system_flag is null)) and (rdb$view_source is null)order by rdb$relation_name

ai é so você pegar cada resposta e usar da maneira q quiser

 

espero ter ajudado

 

falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[martinusso 0]

Deu certo valews......Se alguem se interessar ta ae o codigo:QSql é uma query virtual tipo TIbQueryQSql.Sql.Clear; QSql.Sql.Add('Select distinct rdb$relation_Name From rdb$relation_constraints'); QSql.Sql.Add('order by rdb$relation_name'); QSql.Open; DBGridNetware1.Columns[3].PickList.Clear; While Not QSql.Eof Do Begin DBGridNetware1.Columns[3].PickList.Add(QSql.FieldByName('Rdb$relation_Name').AsString); QSql.Next; End;Valeu mesmo thalesoli