Schema tabela Delphi
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
Curtidas 0
Respostas
Jurandi
29/08/2003
: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;
GOSTEI 0