Comandos sql no delphi s�o direfentes???

Question

Fala Galera!� o seguinte...Eu tenho um programinha para executar comandos SQL no meu banco. Tem um pessoal aqui que recebe os scripts sql prontos, a �nica coisa q eles fazem � copiar o texto para o ca...

Bueno · Answer

Para n�o deixar d�vidas, a� est� o c�digo do bot�o para executar o script.
Algu�m sabe o q pode estar ocorrendo???

try
statusbar1.panels[0].text:=�Executando script...�;
 screen.cursor := crSQLWait;
 cursor:=crSQLwait;
 query.close;
 query.active:=false;
 query.sql.Clear;
 query.SQL.add(memo.text);
 query.open;
 query.active:=true;
 cursor:=crdefault;
 screen.cursor := crDefault;
 statusbar1.panels[0].text:=�Script executado com sucesso!�;
 except
 statusbar1.panels[0].text:=�Ocorreu algum erro ao executar o script!�;
 end;
 cursor:=crdefault;
 screen.cursor := crDefault;
end
else
begin
messagebox(form1.handle,�N�o existe script para ser executado.�,�ATEN��O�,0+0+64);
memo.setfocus;
exit;
end;

Fabio.hc · Answer

SQL com Insert, Update e Delete:[b:4f28706554]query.ExecSQL;[/b:4f28706554]no lugar de query.open;...

Bueno · Answer

F�bio, continuo com o mesmo problema. D� uma olhada no meu c�digo. Eu utilizo componentes da paleta ADO. Ser� q ter a ver???
Por favor, voc� ou algu�m teria alguma sugest�o para corrigir este problema???

if memo.text <> �� then
begin
try
statusbar1.panels[0].text:=�Executando script...�;
 screen.cursor := crSQLWait;
 cursor:=crSQLwait;
 query.close;
 query.active:=false;
 query.sql.Clear;
 query.SQL.add(memo.text);
 query.active:=true;
 query.Execsql;
 cursor:=crdefault;
 screen.cursor := crDefault;
 statusbar1.panels[0].text:=�Script executado com sucesso!�;
 except
 statusbar1.panels[0].text:=�Ocorreu algum erro ao executar o script!�;
 end;
 cursor:=crdefault;
 screen.cursor := crDefault;
end
else
begin
messagebox(form1.handle,�N�o existe script para ser executado.�,�ATEN��O�,0+0+64);
memo.setfocus;
exit;
end;

C eu fizer isso por exemplo: [b:bbfc2e0afd]insert into tabela (campo_1) values (�x�)[/b:bbfc2e0afd] e mandar rodar, acontece a escess�o na minha rotina, Pode ser a rotina o problema???

Dbergkamps · Answer

Pode ser s� um erro de digita��o mas ao inv�s de memo.text o correto n�o seria memo.lines?...

Andremuller · Answer

Eu copiei o teu script retirei os query.active que s�o desnecess�rios
e troquei o query.SQL.add(memo.text)
para SqlDataSet.CommandText:= memo.text j� que eu usei DbExpress
e o script rodou legal.

Mas como o outro colega disse, tu deve cuidar se o comando a ser executado � query.Open ou query.ExecSQL.

Espero ter ajudado,
Falou.

Bueno · Answer

Valew galera!Havia me esquecido desse detalhe do ExecSQL.Eu n�o sabia q era desnecess�rio o active... hehe...

F�rum Comandos sql no delphi s�o direfentes??? #215137