Componente TFDScript
ola,
alguem sabe o que posso estar fazendo de errado ou se nao é exatamente dessa forma que usa esse componente de script...?!
dm.Script.SQLScriptFileName := Caminho+'\\'+Name;
try
dm.Script.ValidateAll;
if dm.Script.ExecuteAll then
begin
Result := True;
end
else
begin
result := False;
end;
except
On E:Exception do
begin
ShowMessage(E.Message);
result := False;
end;
end;
O problema é o seguinte: Quando eu mando executar o comando ExecuteAll sempre o resultado é false para a execução do script e nao é gerado por exceção e sim que a função retorna false normalmente e nao executa o comando... eu tentei fazer um insert simples pra testar e mesmo assim ainda nao obtive sucesso... o motivo de usar esse componente é por eu ter achado q seria mais pratico pra executar todos os scripts de uma pasta e atualizar minha base de dados sempre que necessario e com TFDQuery (que eu costumo usar com mais frequencia) eu nao tava conseguindo executar esses scripts...
alguem sabe o que posso estar fazendo de errado ou se nao é exatamente dessa forma que usa esse componente de script...?!
dm.Script.SQLScriptFileName := Caminho+'\\'+Name;
try
dm.Script.ValidateAll;
if dm.Script.ExecuteAll then
begin
Result := True;
end
else
begin
result := False;
end;
except
On E:Exception do
begin
ShowMessage(E.Message);
result := False;
end;
end;
O problema é o seguinte: Quando eu mando executar o comando ExecuteAll sempre o resultado é false para a execução do script e nao é gerado por exceção e sim que a função retorna false normalmente e nao executa o comando... eu tentei fazer um insert simples pra testar e mesmo assim ainda nao obtive sucesso... o motivo de usar esse componente é por eu ter achado q seria mais pratico pra executar todos os scripts de uma pasta e atualizar minha base de dados sempre que necessario e com TFDQuery (que eu costumo usar com mais frequencia) eu nao tava conseguindo executar esses scripts...
Bruno
Curtidas 0