Executar script para um banco paradox
Boa tarde
Caros colegas eu tenho que fezer a mibração de um banco de dados firebird para um paradox, ja gerei os scripts, mas acho que o SQL Explorer que trabalhar com o paradox não executa script, alguém pode me ajudar?
Obrigado,
Eliézio Mesquita
Obrigado,
Eliézio Mesquita
Eliézio Mesquita
Curtidas 0
Respostas
Efraim Santana
26/01/2011
você pode fazer um aplicacao em delphi usando o Tquery para roda o script, comando por comando.
coloca tudo dentro de um memo e rodo linha por linha.
exemplo.
Insert into cidade (codigo) values (01);
Insert into cidade (codigo) values (01);
Insert into cidade (codigo) values (01);
var
iRow : Integer;
begin
for iRow := 0 to Memo1.Lines.Count - 1 do
begin
with Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add( Memo1.Lines.Strings[iRow] );
ExecSQL;
end;
end;
end; o componente Tquery fica na guia DBE.
iRow : Integer;
begin
for iRow := 0 to Memo1.Lines.Count - 1 do
begin
with Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add( Memo1.Lines.Strings[iRow] );
ExecSQL;
end;
end;
end; o componente Tquery fica na guia DBE.
GOSTEI 0
Eliézio Mesquita
26/01/2011
Efraim vou fazer um teste como você está indicando.
O Codigo abaixo devo colocar em um botão?
var
iRow : Integer;
begin
for iRow := 0 to Memo1.Lines.Count - 1 do
begin
with Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add( Memo1.Lines.Strings[iRow] );
ExecSQL;
end;
end;
end;
O Codigo abaixo devo colocar em um botão?
var
iRow : Integer;
begin
for iRow := 0 to Memo1.Lines.Count - 1 do
begin
with Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add( Memo1.Lines.Strings[iRow] );
ExecSQL;
end;
end;
end;
GOSTEI 0
Efraim Santana
26/01/2011
Sim... Só colocar no botao e configurar o Tquery para encontrar as tabelas do paradox.
GOSTEI 0
Eliézio Mesquita
26/01/2011
Obrigado vou fazer um teste!
GOSTEI 0