Aparecer erro quando n�o encontra tabela

Question

Tenho um programa que precisa de uma tabela (.mdb) para funcionar, s� que se essa tabela for renomeada ou trocada de pasta, o programa fecha sem aparecer mensagem de erro.Gostaria que aparecesse uma m...

Marco Salles · Answer

no caso mais simplista simplesmente voce pode :

try -->>m�tpodos que chama a tabela ou faz uso dela except showmessage(�ERRO : Opera��o ilegal . tabela Tal n�o existe , n�o foi encontrada ou foi renomeada etc...�) end; //fim do bloco try exceptd

Paullsoftware · Answer

Ou por outra fazer uma verifica��o se o arquivo existeif not FileExists(�NomeArquivo�) then//Mesangem de erro :wink:...

Martins · Answer

No seu caso o c�digo passado pelo [b:1e607adf94]Marco Salles[/b:1e607adf94] � o mais indicado, com ele vc vai ter o retorno esperado.

boa sorte!

PS: O C�digo do [b:1e607adf94]paullsoftware[/b:1e607adf94] n�o funcionaria pq as tabelas est�o fisicamente dentro do arquivo MDB, se fosse Paradox ou outro similar funcionaria tb.

t+

Vagner.oliveira · Answer

Entre o [b:51c76629e6]Try e Exept [/b:51c76629e6]est� tudo ok, mas depois deles o form n�o abre.

Coloquei 3 forms pra teste:

Form1 -> est� a tabela a ser mostrada.
Form2 -> quando a tabela n�o � encontrada abre o Form2 para localiz�-la
Form3 -> � o �splash� que depois de fechado verifica se a tabela est� junto ao execut�vel.

Form3 - �Splash� (� que coloquei um bot�o pra fechar manualmente, nada de mais)

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Hide;
Form1.Table1.Close;
try
Form1.Table1.DatabaseName:=Form1.Table2.FieldByName(�caminho�).AsString;
Form1.Table1.Open;
except
Form2.StatusBar1.Panels[0].Text:=Form1.Table2.FieldByName(�caminho�).AsString;
showmessage(�ERRO: tabela n�o encontrada selecione o caminho coreto�);
Form2.ShowModal;
end; {fim do bloco try exceptd
quando as 2 a��es acima est�o Ok ele executa os
comandos descritos abaixo}
ShowMessage(�Fim do bloco Exept�);
Form1.Show;
end;

Form2 - Local para selecionar o caminho da tabela

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Table1.Close;
try
Form1.Table1.DatabaseName:=ShellTreeView1.Path +�\�;
Form1.Table1.Open;
Form1.Show;
except
showmessage(�ERRO: tabela n�o encontrada selecione o caminho coreto�);
end; //fim do bloco try exceptd
StatusBar1.Panels[0].Text:=ShellTreeView1.Path +�\�;
Form1.Table2.Edit;
Form1.Table2.FieldByName(�caminho�).AsString:=ShellTreeView1.Path +�\�;
Form1.Table2.Post;
end;

Form1 - Se o caminho da tabela est� ok ele abre.

procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Hide;
end;

-
-
[size=16:51c76629e6]O problema � que depois do try e exept estarem OK o form 1 n�o abre, ele pisca e fecha o programa.

L� no avaliable forms coloquei um a um para o outro lado (sendo que o form3 � o q abre primeiro) e persiste o erro.
[/size:51c76629e6]

Paullsoftware · Answer

[quote:b7b5814884=�Martins�]No seu caso o c�digo passado pelo [b:b7b5814884]Marco Salles[/b:b7b5814884] � o mais indicado, com ele vc vai ter o retorno esperado.boa sorte!PS: O C�digo do [b:b7b5814884]paullsoftware[/b:b7b5814884] n�o funcionaria pq as tabelas est�o fisicamente dentro do arquivo MDB, se fosse Paradox ou outro similar funcionaria tb.t+[/quote:b7b5814884]Valeu Martins, foi uma leitura errada... eu li como arquivo mdb e n�o tabela, desculpa ae o vacilo!! :oops:...

Martins · Answer

[quote:cddc511a0d=�paullsoftware�][quote:cddc511a0d=�Martins�]No seu caso o c�digo passado pelo [b:cddc511a0d]Marco Salles[/b:cddc511a0d] � o mais indicado, com ele vc vai ter o retorno esperado.boa sorte!PS: O C�digo do [b:cddc511a0d]paullsoftware[/b:cddc511a0d] n�o funcionaria pq as tabelas est�o fisicamente dentro do arquivo MDB, se fosse Paradox ou outro similar funcionaria tb.t+[/quote:cddc511a0d]Valeu Martins, foi uma leitura errada... eu li como arquivo mdb e n�o tabela, desculpa ae o vacilo!! :oops:[/quote:cddc511a0d]Tranquilo meu irm�o, fica frio isso acontece.[b:cddc511a0d]vagner.oliveira[/b:cddc511a0d] Tente trocar [b:cddc511a0d]Show[/b:cddc511a0d] por [b:cddc511a0d]ShowModal[/b:cddc511a0d]....

Vagner.oliveira · Answer

tentei show, showmodal, application.inicialize e nada. alguma dica?...

F�rum Aparecer erro quando n�o encontra tabela #341740