Problemas Banco Access Com Delphi

Delphi

19/12/2022

Caros,,,

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

Arildo Augusto

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

19/12/2022

Formulário Principal
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
GOSTEI 0
Arildo Augusto

Arildo Augusto

19/12/2022

Formulário Principal
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
GOSTEI 0
Arildo Augusto

Arildo Augusto

19/12/2022

Formulário Principal
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...
GOSTEI 0
Arildo Augusto

Arildo Augusto

19/12/2022

Formulário Principal
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
GOSTEI 0
POSTAR