[resolvido] Conectar Usando Arquivo Ini

[Guest --vagner --]

procedure TDataModule1.DataModuleCreate(Sender: TObject);
const
   ConnStr = 'Provider=%s;Data Provider=%s;Data Source=%s';
var
   Prov, ProvD, Caminho : String;
   DadosAcesso : TIniFile;
begin
   DadosAcesso := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'DB.ini');
   Prov    := DadosAcesso.ReadString('BancoDeDados','Provedor','');
   ProvD   := DadosAcesso.ReadString('BancoDeDados','ProvedorDados','');
   Caminho := DadosAcesso.ReadString('BancoDeDados','Caminho','');
   Conexao.Close;
   Conexao.ConnectionString := Format(ConnStr, [Prov,
   ProvD, Caminho]);
   Conexao.Connected := True;
end;

estou usando o código acima para conectar o banco de dados em access na aplicação mas não esta funcionando porque esta dando um erro nesta linha.

DadosAcesso := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'DB.ini');

[Error] u_DM.pas(83): Undeclared identifier: 'Application'

[Error] u_DM.pas(83): ')' expected but identifier 'ExeName' found

porque será?

Editado Junho 15, 2007 por Micheus
Respeite as regras do forum. Não digite todo o texto em letras maiúsculas (CAPS LOCK ligada)

[Pirambu!]

Cara você já tentou o AdoConnection(ADODB)...

Editado Junho 15, 2007 por Pirambu!

[Micheus]

[Error] u_DM.pas(83): Undeclared identifier: 'Application'

[Error] u_DM.pas(83): ')' expected but identifier 'ExeName' found

porque será?

Vagner, este erro ocorre porque no datamodule, não é incluído automaticamente na cláusula Uses a unit Forms - A variável Application está definida lá.

Quando você trabalha com arquivos ".ini" em um form não tem este problema porque automaticamente a adição é feita.

Abraços.

[Guest --vagner --]

obrigado, adicional a unit Forms e funfou beleza!

flws!