Problemas Banco Access Com Delphi
19/12/2022
0
De uns tempos pra cá passei a ver a msg de erro: Access violation at address 0000000126E564
in module: meuAPP.exe : read of address 00000000B0
O erro ocorre logo no inicio do formulario principal onde tenho o código abaixo:
try
dm1.db_Acc.connectionString := 'File Name=' + extractFilePath(application.exeName ) + 'dataBase.udl';
dm1.db_Acc.connected := true;
except
messageBox(0, 'Banco de Dados Não Encontrado. O sistema será encerrado.', 'Erro', MB_ICONERROR or MB_OK);
end;
Estou usando Delphi 10.4 porem o mesmo ocorre com Delphi 2010, notei isso depois que passei a usar Windows 10
Funcionava normalmente antes com windows7
Arildo Augusto
Posts
19/12/2022
Raimundo Pereira
procedure TFP.btn_conectarClick(Sender: TObject);
begin
try
dm1.db_Acc.connected := false;
dm1.db_Acc.connectionString := 'File Name=' + extractFilePath(application.exeName ) + 'dataBase.udl';
dm1.db_Acc.connected := true;
messageBox(0, 'Conexão realizada com sucesso.', 'Informação', MB_OK);
except
messageBox(0, 'Banco de Dados Não Encontrado. O sistema será encerrado.', 'Erro', MB_ICONERROR or MB_OK);
end;
end;
Data Module
procedure TDM1.DataModuleCreate(Sender: TObject);
begin
db_Acc.Connected:=false;
end;
Informações do UDL
Provedor
Microsoft Oficce 12.0 Acess Database Engine OLE DB Provider "Caso não tenha instalado, procure sobre "Microsoft Oficce 12.0 Acess Database Engine OLE Client"
Teste a conexão ainda no arquivo UDL
22/12/2022
Arildo Augusto
procedure TFP.btn_conectarClick(Sender: TObject);
begin
try
dm1.db_Acc.connected := false;
dm1.db_Acc.connectionString := 'File Name=' + extractFilePath(application.exeName ) + 'dataBase.udl';
dm1.db_Acc.connected := true;
messageBox(0, 'Conexão realizada com sucesso.', 'Informação', MB_OK);
except
messageBox(0, 'Banco de Dados Não Encontrado. O sistema será encerrado.', 'Erro', MB_ICONERROR or MB_OK);
end;
end;
Data Module
procedure TDM1.DataModuleCreate(Sender: TObject);
begin
db_Acc.Connected:=false;
end;
Informações do UDL
Provedor
Microsoft Oficce 12.0 Acess Database Engine OLE DB Provider "Caso não tenha instalado, procure sobre "Microsoft Oficce 12.0 Acess Database Engine OLE Client"
Teste a conexão ainda no arquivo UDL
22/12/2022
Arildo Augusto
procedure TFP.btn_conectarClick(Sender: TObject);
begin
try
dm1.db_Acc.connected := false;
dm1.db_Acc.connectionString := 'File Name=' + extractFilePath(application.exeName ) + 'dataBase.udl';
dm1.db_Acc.connected := true;
messageBox(0, 'Conexão realizada com sucesso.', 'Informação', MB_OK);
except
messageBox(0, 'Banco de Dados Não Encontrado. O sistema será encerrado.', 'Erro', MB_ICONERROR or MB_OK);
end;
end;
Data Module
procedure TDM1.DataModuleCreate(Sender: TObject);
begin
db_Acc.Connected:=false;
end;
Informações do UDL
Provedor
Microsoft Oficce 12.0 Acess Database Engine OLE DB Provider "Caso não tenha instalado, procure sobre "Microsoft Oficce 12.0 Acess Database Engine OLE Client"
Teste a conexão ainda no arquivo UDL
Infelizmente essas alterações não resolvem, o problema persiste...
02/01/2023
Arildo Augusto
procedure TFP.btn_conectarClick(Sender: TObject);
begin
try
dm1.db_Acc.connected := false;
dm1.db_Acc.connectionString := 'File Name=' + extractFilePath(application.exeName ) + 'dataBase.udl';
dm1.db_Acc.connected := true;
messageBox(0, 'Conexão realizada com sucesso.', 'Informação', MB_OK);
except
messageBox(0, 'Banco de Dados Não Encontrado. O sistema será encerrado.', 'Erro', MB_ICONERROR or MB_OK);
end;
end;
Data Module
procedure TDM1.DataModuleCreate(Sender: TObject);
begin
db_Acc.Connected:=false;
end;
Informações do UDL
Provedor
Microsoft Oficce 12.0 Acess Database Engine OLE DB Provider "Caso não tenha instalado, procure sobre "Microsoft Oficce 12.0 Acess Database Engine OLE Client"
Teste a conexão ainda no arquivo UDL
Infelizmente essas alterações não resolvem, o problema persiste...
Caros,,,
Alguem teria alguma outra informação adicional que possa ajudar na solução do problema apresentado?
Adianto que o que foi proposto é o correto, porem minha configuração é idêntica a essa indicada
Clique aqui para fazer login e interagir na Comunidade :)