É possível?

Delphi

14/02/2003

:(
Amigos, é possível criar um programa em Delphi para executar um script no banco Firebird v1.0?

Eu preciso executar este script contido em um arquivo txt

Valeu!


Anonymous

Anonymous

Curtidas 0

Respostas

Navoid

Navoid

14/02/2003

como assim script cara

me de um exemplo

até


GOSTEI 0
Anonymous

Anonymous

14/02/2003

como assim script cara me de um exemplo até


Executar varios comandos ddl:

Alter table...

Será que tem como passar parametros para ISQL?


GOSTEI 0
Navoid

Navoid

14/02/2003

bom cara, se tem como passar parametros num tenho a minima idéia, agora se vc quer executar um script pelo delphi vc pode fazer o seguinte
abra o arquivo e va lendo até encontrar o caracter ;, depois execute a instrução e vá para a próxima instrução até o final
segue abaixo um exemplo de como fazer isso:

****
procedure executa_script(nome_arquivo: string);
var
temp, instrucao: string;
i: integer;

conteudo: tstringlist;
query: tquery;
begin
conteudo:= tstringlist.create;
query:= tquery.create(nil);

try
conteudo.loadfromfile(nome_arquivo);
temp:= conteudo.text;
i:= pos(´;´, temp);

while i > 0 do
begin
instrucao:= copy(temp, 1, (i - 1));
delete(temp, 1, i + 1);
query.sql.text:= instrucao;
query.execsql;
i:= pos(´;´, temp);
end;

query.sql.text:= temp;
query.execsql;
finally
freeandnil(conteudo);
freeandnil(query);
end;
end;
****

eu num cheguei a testar no delphi, mas funciona, talvez tenha que depurar e ajustar as linhas copy e delete, se for o caso, me manda um script que eu testo e mando o código de novo.

espero ter ajudado

até


GOSTEI 0
Anonymous

Anonymous

14/02/2003

bom cara, se tem como passar parametros num tenho a minima idéia, agora se vc quer executar um script pelo delphi vc pode fazer o seguinte abra o arquivo e va lendo até encontrar o caracter ;, depois execute a instrução e vá para a próxima instrução até o final segue abaixo um exemplo de como fazer isso: **** procedure executa_script(nome_arquivo: string); var temp, instrucao: string; i: integer; conteudo: tstringlist; query: tquery; begin conteudo:= tstringlist.create; query:= tquery.create(nil); try conteudo.loadfromfile(nome_arquivo); temp:= conteudo.text; i:= pos(´;´, temp); while i > 0 do begin instrucao:= copy(temp, 1, (i - 1)); delete(temp, 1, i + 1); query.sql.text:= instrucao; query.execsql; i:= pos(´;´, temp); end; query.sql.text:= temp; query.execsql; finally freeandnil(conteudo); freeandnil(query); end; end; **** eu num cheguei a testar no delphi, mas funciona, talvez tenha que depurar e ajustar as linhas copy e delete, se for o caso, me manda um script que eu testo e mando o código de novo. espero ter ajudado até


Obrigado.


GOSTEI 0
POSTAR