Fórum Schema tabela Delphi #178414
29/08/2003
0
Oi pessoal,
Gostarai de saber como posso pegar o schema de uma tabela queró pegar os campos e não os dados de uma determinada tabela. Pra ser mais especifica tenho meu banco em Oracle e estou tentando pegar os campos de uma tabela e lista em um ListBox para que estej seja adicionado ou não em um relatório.
Tentei utilizar o TADOConnection utilizando a procedure:
procedure TADOConnection.GetFieldNames(const TableName: string;
List: TStrings);
da Classe ADO mas não conseguir fazer funcionar... Será que alguém pode me ajudar dando uma dica ou mesmo me mostrando um pedaço de codigo que eu possa utilizar como referencia?
Aguardo alguma ajuda... :oops:
Desde já
Obrigada
Tulipa
Gostarai de saber como posso pegar o schema de uma tabela queró pegar os campos e não os dados de uma determinada tabela. Pra ser mais especifica tenho meu banco em Oracle e estou tentando pegar os campos de uma tabela e lista em um ListBox para que estej seja adicionado ou não em um relatório.
Tentei utilizar o TADOConnection utilizando a procedure:
procedure TADOConnection.GetFieldNames(const TableName: string;
List: TStrings);
da Classe ADO mas não conseguir fazer funcionar... Será que alguém pode me ajudar dando uma dica ou mesmo me mostrando um pedaço de codigo que eu possa utilizar como referencia?
Aguardo alguma ajuda... :oops:
Desde já
Obrigada
Tulipa
Tulipa
Curtir tópico
+ 0
Responder
Posts
29/08/2003
Jurandi
:D
Oi Tulipa,
ai vai.
procedure xxxxx:
Var
TabCam : TFieldDefs;
I : Integer;
LFieldName : String;
begin
SuaQuery.Close;
SuaQuery.Sql.text := SELECT * FROM SUA_TABELA WHERE 1=2;
// WHERE 1=2 é só pra nãp trazer dado nenhum
SuaQuery.Open;
TabCam := SuaQuery.fielddefs;
For I := 0 to SuaQuery.FieldCount - 1 do
begin
// a cada ciclo vc obtem o proximo nome
LFieldName := TabCam[I].Name;
end;
SuaQuery.Close;
end;
Oi Tulipa,
ai vai.
procedure xxxxx:
Var
TabCam : TFieldDefs;
I : Integer;
LFieldName : String;
begin
SuaQuery.Close;
SuaQuery.Sql.text := SELECT * FROM SUA_TABELA WHERE 1=2;
// WHERE 1=2 é só pra nãp trazer dado nenhum
SuaQuery.Open;
TabCam := SuaQuery.fielddefs;
For I := 0 to SuaQuery.FieldCount - 1 do
begin
// a cada ciclo vc obtem o proximo nome
LFieldName := TabCam[I].Name;
end;
SuaQuery.Close;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)