Res: RES: [delphi-br] Comando com mais de um INSERT no TSQLQuery

[Eduardo Gushiken]

Oi Tiago,
Uma idéia que funciona, apesar de não ter um bom desempenho, é reescrever o 
SQL.Text
do TSQLQuery para cada INSERT.
Você poderia pegar o arquivo de script com os INSERT's e colocar as linhas em 
uma variável,
depois executa o SQL e passa para a próxima linha do script.
Mais ou menos assim:

while not Arq.EOF then begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Text := VARIAVEL_INSERT;
  SQLQuery1.ExecSQL();
  Arq.Next   // Aqui vai o código para passar para a próxima linha do arquivo, 
mas eu não me
  // lembro exatamente qual é
end;

Eu acho que essa ainda não é a melhor solução, mas eu sei que é melhor que ter 
um SQLQuery1000.
O código acima deve ter algum erro na estrutura, mas é só para ter uma idéia do 
que eu quis dizer.


[]'s
Eduardo M. O. Gushiken


De: Tiago F. Zacchi tiago_zac...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 26 de Fevereiro de 2009 21:36:50
Assunto: RES: [delphi-br] Comando com mais de um INSERT no TSQLQuery


Ok... Então se eu precisar executar um arquivo SQL com 1.000 instruções de
INSERT por exemplo teria que fazer uma a uma mesmo... não tem a
possibilidade de executar este arquivo SQL através do Delphi? 

Obrigado...


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

RES: RES: [delphi-br] Comando com mais de um INSERT no TSQLQuery

[Tiago F. Zacchi]

Olá,

 

Obrigado pela dica... fiz algo parecido com a idéia que vc
sugeriu. E tbm utilizei o conceito de transações como o Rubem Nascimento
sugeriu.. e funcionou o como eu queria... 

 

Obrigado...

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo Gushiken
Enviada em: quinta-feira, 26 de fevereiro de 2009 23:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Comando com mais de um INSERT no TSQLQuery

 

Oi Tiago,
Uma idéia que funciona, apesar de não ter um bom desempenho, é reescrever o
SQL.Text
do TSQLQuery para cada INSERT.
Você poderia pegar o arquivo de script com os INSERT's e colocar as linhas
em uma variável,
depois executa o SQL e passa para a próxima linha do script.
Mais ou menos assim:

while not Arq.EOF then begin
SQLQuery1.Close;
SQLQuery1.SQL.Text := VARIAVEL_INSERT;
SQLQuery1.ExecSQL();
Arq.Next // Aqui vai o código para passar para a próxima linha do arquivo,
mas eu não me
// lembro exatamente qual é
end;

Eu acho que essa ainda não é a melhor solução, mas eu sei que é melhor que
ter um SQLQuery1000.
O código acima deve ter algum erro na estrutura, mas é só para ter uma idéia
do que eu quis dizer.

[]'s
Eduardo M. O. Gushiken


De: Tiago F. Zacchi tiago_zac...@yahoo.com.br
mailto:tiago_zacchi%40yahoo.com.br 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Quinta-feira, 26 de Fevereiro de 2009 21:36:50
Assunto: RES: [delphi-br] Comando com mais de um INSERT no TSQLQuery

Ok... Então se eu precisar executar um arquivo SQL com 1.000 instruções de
INSERT por exemplo teria que fazer uma a uma mesmo... não tem a
possibilidade de executar este arquivo SQL através do Delphi? 

Obrigado...

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com



Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.0.237 / Banco de dados de vírus: 270.11.3/1975 - Data de
Lançamento: 02/27/09 07:05:00



[As partes desta mensagem que não continham texto foram removidas]