Erro ao verificar tabela SEMPRE

Delphi

06/08/2007

Pessoal temnho um programa que roda em rede sem problemas, criei um script para verificar se os arquivos .mdb estao na pasta certa antes de abrir a aplicacao. funciona beleza em minha rede com o pc mapeado, porem..... na minha maquina onde o arquivo esta na raiz [b:101feabfbb][size=18:101feabfbb]c:\mu[/size:101feabfbb][/b:101feabfbb] SEMPRE DA ERRO dizendo que nao encontra a tabela. :cry: :cry:

[b:101feabfbb]Segue o codigo de verificacao dos arquivos:[/b:101feabfbb]
Var
CriaArq, LeTab: TextFile;
caminhotab :string;
begin
if not FileExists(´config.cfg´) then //neste arquivo q grava o caminho da tab.
   begin
   AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´\config.cfg´);
   ReWrite(CriaArq);
   Write(CriaArq, ´falta o caminho da tabela´);
   CloseFile(CriaArq);

   Application.MessageBox(´Não foi possível estabelecer a conexão com o banco de dados!´ +#13 +´Insira o caminho correto da tabela´, ´Erro´, MB_ICONEXCLAMATION);
   FLocTab.ShowModal;
   end else

        if FileExists(´config.cfg´) then
        begin
        {Aqui ele le o arquivo}
        AssignFile(LeTab, ExtractFilePath(Application.ExeName) +´\config.cfg´);
        Reset(LeTab);
        Read(LeTab,caminhotab);
        CloseFile(LeTab);
        FP.AbreTab.Click;
        end;
end;



[b:101feabfbb]Instrucoes do botao FP.AbreTab.Click[/b:101feabfbb]
Try
Conexao.Connected:=False;
Conexao.ConnectionString:=´Data Source=´ + caminhotab +´\dados.mdb´;
Conexao.Connected:=True;
Except
Application.MessageBox(´Não foi possível estabelecer a conexão com o banco de dados!´ +#13 +´Insira o caminho correto da tabela´, ´Erro na tabela´, MB_ICONEXCLAMATION);

if FLocTab.Visible=False Then
   begin
   FLocTab.ShowModal;
   exit;
   end;

End; //Try Except
HabilitaTabs.Click;



Vagner.oliveira

Vagner.oliveira

Curtidas 0

Respostas

Vagner.oliveira

Vagner.oliveira

06/08/2007

up

[quote:a84428d879=´[Proteção de Spambot]´]
A protecao do Sambot pede a resposta incorreta, pois o nome do presidente nao eh ´lula´ mas sim luis. :shock:
[/quote:a84428d879]


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

06/08/2007

up 2x


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

06/08/2007

up 3x

Alguem tem alguma dica, estou com esse problema no cliente e nao tenho ideia de como resolver.


GOSTEI 0
Imoreira

Imoreira

06/08/2007

Var
CriaArq, LeTab: TextFile;
caminhotab :string;
begin
if not FileExists(´config.cfg´) then //neste arquivo q grava o caminho da tab.
begin
AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´\config.cfg´);
ReWrite(CriaArq);
Write(CriaArq, ´falta o caminho da tabela´);
CloseFile(CriaArq);

Application.MessageBox(´Não foi possível estabelecer a conexão com o banco de dados!´ +#13 +´Insira o caminho correto da tabela´, ´Erro´, MB_ICONEXCLAMATION);
FLocTab.ShowModal;
end else

if FileExists(´config.cfg´) then
begin
{Aqui ele le o arquivo}
AssignFile(LeTab, ExtractFilePath(Application.ExeName) +´config.cfg´);
Reset(LeTab);
Read(LeTab,caminhotab);
CloseFile(LeTab);
FP.AbreTab.Click;
end;


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

06/08/2007

Var CriaArq, LeTab: TextFile; caminhotab :string; begin if not FileExists(´config.cfg´) then //neste arquivo q grava o caminho da tab. begin AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´config.cfg´); ReWrite(CriaArq); Write(CriaArq, ´falta o caminho da tabela´); CloseFile(CriaArq); Application.MessageBox(´Não foi possível estabelecer a conexão com o banco de dados!´ +#13 +´Insira o caminho correto da tabela´, ´Erro´, MB_ICONEXCLAMATION); FLocTab.ShowModal; end else if FileExists(´config.cfg´) then begin {Aqui ele le o arquivo} AssignFile(LeTab, ExtractFilePath(Application.ExeName) +´config.cfg´); Reset(LeTab); Read(LeTab,caminhotab); CloseFile(LeTab); FP.AbreTab.Click; end;


Onde esta a alteração :shock:


GOSTEI 0
Imoreira

Imoreira

06/08/2007

Isso:
AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´[color=red:c98ac523a7]\[/color:c98ac523a7]config.cfg´);
por isso:
AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´config.cfg´);

Observe a contrabarra antes de config.cfg

Você testou?


GOSTEI 0
Imoreira

Imoreira

06/08/2007

Vagner, analizando melhor seu código, vi que você não está passando o path do arquivo na verificação com o FileExists().

Refiz o seu código, teste aí.

if not FileExists(ExtractFilePath(Application.ExeName) +´config.cfg´) then //neste arquivo q grava o caminho da tab.
begin
AssignFile(CriaArq, ExtractFilePath(Application.ExeName) +´config.cfg´);
ReWrite(CriaArq);
Write(CriaArq, ´falta o caminho da tabela´);
CloseFile(CriaArq);

Application.MessageBox(´Não foi possível estabelecer a conexão com o banco de dados!´ +#13 +´Insira o caminho correto da tabela´, ´Erro´, MB_ICONEXCLAMATION);
FLocTab.ShowModal;
end else

if FileExists(ExtractFilePath(Application.ExeName) +´config.cfg´) then
begin
{Aqui ele le o arquivo}
AssignFile(LeTab, ExtractFilePath(Application.ExeName) +´config.cfg´);
Reset(LeTab);
Read(LeTab,caminhotab);
CloseFile(LeTab);
FP.AbreTab.Click;
end;
end;


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

06/08/2007

Detalhe que não tinha visto mesmo, não coloco onde está o arquivo ´config.cfg´ quando faço a verificação.

Valew mesmo. :P


GOSTEI 0
POSTAR