Sobre criacao de alias em runtime.
Opa pessoal, tudo bem?
Bem, tenho um probleminha besta e acho que voces podem me ajudar. (h[ha seculos nao programava em delphi, acho que desde o 4 e agora to com o Codegear na mao, rs)
Eu estou criando uma aplicacao pra migrar um banco de dados para uma versao mais nova, ok. Essa aplicacao se divide em 5 partes:
1. Localizar o arquivo .INI que diz aonde esta o banco de dados.
2. Fazer a conexao com o banco de dados
3. Verificar se a base de dados e compativel com o dicionario de dados
4. Gerar o reverso e logfile
5. Migrar os dados.
Mas bem, estou com um probleminha na parte de fazer a conexao com o Banco de Dados.
Tenho um banco Firebird, com o nome ´Banco.not´ (not e a extensao da empresa). Quando o software le o caminho do banco, esse nome e gravado em uma variavel chamada CaminhoBDANTIGO, do tipo String.
Mas o que acontece, estou usando o componente IBPLUS, e quando vou setar o FibDataBase1, desejo que o nome da variavel CaminhoBDANTIGO seja aonde eu vou conectar. Mas o fato e que eu simplesmente nao consigo fazer isso, parece coisa besta, mas nao to conseguindo. Abaixo, um pequeno trecho do codigo.
procedure TFPrincipal.FormCreate(Sender: TObject);
begin
//1 ETAPA. LOCALIZAR O CAMINHO DO BANCO DE DADOS.
begin
LeIni(CaminhoBDANTIGO); //Executando a procedure LeIni.
if (CaminhoBDANTIGO = ´´) then //Caso nao ache o Local_text...
begin
Application.CreateForm(TFOpenBox, FOpenBox);
FopenBox.Show();
FPrincipal.Close();
end
//Mas se tudo estiver certo...
else
Shape0.Brush.Color := clgreen;
LblCaminho.Caption := ´locahost:´+CaminhoBDANTIGO; //Coloca o valor no Label.
//2 ETAPA. FAZER A CONEXAO COM O BANCO DE DADOS A SER MIGRADO.
begin
DataBaseANTIGO.DatabaseName := LblCaminho.Caption;
DataBaseANTIGO.ConnectParams.UserName := ´SYSDBA´;
DataBaseANTIGO.ConnectParams.Password := ´masterkey´;
DataBaseANTIGO.SQLDialect := 3;
DataBaseANTIGO.Connected;
end;
end;
end;
Alguem pode me ajudar? (A)
Grato! :-)
Bem, tenho um probleminha besta e acho que voces podem me ajudar. (h[ha seculos nao programava em delphi, acho que desde o 4 e agora to com o Codegear na mao, rs)
Eu estou criando uma aplicacao pra migrar um banco de dados para uma versao mais nova, ok. Essa aplicacao se divide em 5 partes:
1. Localizar o arquivo .INI que diz aonde esta o banco de dados.
2. Fazer a conexao com o banco de dados
3. Verificar se a base de dados e compativel com o dicionario de dados
4. Gerar o reverso e logfile
5. Migrar os dados.
Mas bem, estou com um probleminha na parte de fazer a conexao com o Banco de Dados.
Tenho um banco Firebird, com o nome ´Banco.not´ (not e a extensao da empresa). Quando o software le o caminho do banco, esse nome e gravado em uma variavel chamada CaminhoBDANTIGO, do tipo String.
Mas o que acontece, estou usando o componente IBPLUS, e quando vou setar o FibDataBase1, desejo que o nome da variavel CaminhoBDANTIGO seja aonde eu vou conectar. Mas o fato e que eu simplesmente nao consigo fazer isso, parece coisa besta, mas nao to conseguindo. Abaixo, um pequeno trecho do codigo.
procedure TFPrincipal.FormCreate(Sender: TObject);
begin
//1 ETAPA. LOCALIZAR O CAMINHO DO BANCO DE DADOS.
begin
LeIni(CaminhoBDANTIGO); //Executando a procedure LeIni.
if (CaminhoBDANTIGO = ´´) then //Caso nao ache o Local_text...
begin
Application.CreateForm(TFOpenBox, FOpenBox);
FopenBox.Show();
FPrincipal.Close();
end
//Mas se tudo estiver certo...
else
Shape0.Brush.Color := clgreen;
LblCaminho.Caption := ´locahost:´+CaminhoBDANTIGO; //Coloca o valor no Label.
//2 ETAPA. FAZER A CONEXAO COM O BANCO DE DADOS A SER MIGRADO.
begin
DataBaseANTIGO.DatabaseName := LblCaminho.Caption;
DataBaseANTIGO.ConnectParams.UserName := ´SYSDBA´;
DataBaseANTIGO.ConnectParams.Password := ´masterkey´;
DataBaseANTIGO.SQLDialect := 3;
DataBaseANTIGO.Connected;
end;
end;
end;
Alguem pode me ajudar? (A)
Grato! :-)
Icarus
Curtidas 0