Problema resolvido, mas caso alguém queira a instrução para carregar tabelas
e campos do SQL Server que eu montei segue abaixo:
with ADOQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
(NOLOCK)');
Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name');
//Somente Tabelas
Open;
DBCmbTabelas.Items.Clear;
while not eof do
begin
DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
ADOQuery1.Next;
end;
end;
Instrução para extração da Tabela informada no ComboBox
Screen.Cursor := crSqlWait;
with ADOQueryTabelas do
begin
Close;
Sql.Clear;
Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
st.name as [Tipo_Dado], sc.length as [Precisao]');
Sql.Add('FROM SysObjects so WITH (NOLOCK)');
Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
Sql.Add('where so.type = ''u'' and so.name = :prTabela');
Sql.Add('order by sc.colorder');
Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
Open;
vSqlInstrucao := '';
vSqlInstrucao := 'SELECT ';
vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
while not eof do
begin
vSqlInstrucao := vSqlInstrucao +
ADOQueryTabelas.FieldbyName('Nome_Columa').Value
+ ', ';
Next;
end;
vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
('Nome_Tabela').Value;
vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
end;
edtInstrucao.Clear;
edtInstrucao.Text := vSqlInstrucao;
btnInstrucaoMEC.Onclick(Sender);
Screen.Cursor := crDefault;
I love you GOOGLE.
Em 04/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
> Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> assunto na semana passada. Dá uma olhada nas mensagens antigas do grupo que
> tem alguma coisa.
>
> Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> link... nesse caso vai ter que buscar mesmo pelo Google.
>
> Sds,
> Ricardo.
>
> Jorge Ericsson <[EMAIL PROTECTED] <jericssonsup%40gmail.com>>
> escreveu: Olá amigos delphianos,
>
>
> Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> ORACLE
> e gostaria de saber como faço para pegar parâmetros como nome da tabela,
> todos os seus campos e tipos de campos.
>
> Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> capturar
> os dados e inserir em uma TQuery os mesmos dados.
>
> Desculpe se não fui muito claro.
>
> Grato,
>
> Jorge Ericsson S. Pinheiro
> Analista/Projetista de Sistemas
> Ericsson Sistemas e Soluções
> http://www.jericssonsup.com.br
> 61 9667-4785 / 3966-4535
> Brasília- DF
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> _
>
> ---------------------------------
> Novo Yahoo! Cadê? - Experimente uma nova busca.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericssonsup.com.br
61 9667-4785 / 3966-4535
Brasília- DF
[As partes desta mensagem que não continham texto foram removidas]
