 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
wjuniordias
Profissional
Registrado: Sexta-Feira, 16 de Março de 2012
Mensagens: 667
|
 Enviada: Qui Fev 07, 2019 12:50 pm Assunto: Comandos isql Firebird no Delphi |
 |
|
Help-me
Estou tentando pelo método do Delphi WinExec executar alguns comandos para criar um banco de dados Firebird em runtime e não estou conseguindo. Quero rodar os comandos usando o próprio isql do Firebird. Preciso criar um banco de dados em seguida uma tabela, alguém sabe como fazer?
Comando:
| Código: |
SET SQL DIALECT 3;
SET NAMES ISO8859_1;
SET CLIENTLIB 'fbclient.dll';
CREATE DATABASE 'C:\BANCO\IMG.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1 COLLATION ISO8859_1;
|
Quem souber como fazer com que este comando funcione usando o WinExec, e puder me dar uma ajuda, ficarei muito grato. Tentei pesquisar na internet mas os exemplos que encontrei não funcionam, sem contar que, a maioria ensina utilizando o componente IBScript, que também não funcionou.
Obrigado.
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles) |
|
| Voltar ao Topo |
|
 |
rique_neves
Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873
|
| Enviada: Dom Fev 24, 2019 6:53 pm Assunto: Re: Comandos isql Firebird no Delphi |
|
|
Não sei se irá funcinar, as quem sabe pode de dar uma ideia de algo.
Deixe o arquivo isql junto a aplicação.
| Código: | var
CaminhoBD: string;
CaminhoISQL: string;
ParametrosISQL: string;
CaminhoArqSQL : String;
TISQL : TThread;
begin
CaminhoBD := Format('"%s"', [edtbanco.Text]);
CaminhoISQL := Format('"%s\isql.exe"', [ExtractFileDir(Application.ExeName)]);
ArqSQL := 'c:\arquivo.sql'; \\ passe aqui o local do arquivo que deseja executar
TISQL := TThread.CreateAnonymousThread(procedure
NomeArquivoLog :='C:\ArquivosSQL\Arquivolog.txt';
ParametrosISQL := Format('%s -m -b -i %s -q -u SYSDBA -p masterkey -o %s',[CaminhoBD, CaminhoArqSQL ,NomeArquivoLog]);
ShellExecute(0, nil, PWideChar(CaminhoISQL), PWideChar(ParametrosISQL), nil, SW_HIDE);
end); |
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
