ADOconection

07/03/2003

0

Estou tendo o seguinte problema.
Meu banco de dados é em access, entao ligo por meio do ADOconecion, mas caso o computador que eu instale o programa seja na unidade D por exemplo ele dá pau pois so recochesse a unidade C no caminho que foi indicado no ADOConection.
Alguem sabe o que posso fazer para que o ado reconheca a unidade e mude caso a unidade seja outra?


Atenciosamente


neomid :shock:


Anonymous

Anonymous

Responder

Posts

07/03/2003

Anonymous

tipo, da uma olhada nesta procedure ! é do evento onshow do form

procedure TFrmMainVendas.FormShow(Sender: TObject);
var vIni:tInifile;
begin
vIni:=TIniFile.create(´sistemaClassic.ini´);
try
Datam.AdoconnBrinell.Close;
Datam.AdoConnBrinell.ConnectionString:=´Provider=SQLOLEDB.1;´+
´Integrated Security=SSPI;´+
´Persist Security Info=False;´+
´Initial Catalog=´+vIni.ReadString(´CONFIG´,´Initial Catalog´,´DbBrinell´)+´;´+
´Data Source=´+vIni.readString(´CONFIG´,´DATASOURCE´,´JUNIOR\INSTBRINELL´)+´;´+
´Use Procedure for Prepare=1;´+
´Auto Translate=True;´+
´Packet Size=4096;´+
´Workstation ID=´+vIni.ReadString(´CONFIG´,´WORKSTATION ID´,´JUNIOR´)+´;´+
´Use Encryption for Data=False;´+
´Tag with column collation when possible=False´;
Datam.AdoConnBrinell.Open;
Datam.AdoQryRep.Open;
Except
ShowMessage(´Não é Possível Connectar ao Banco de Dados !´);
Application.terminate;

end;
end;

o que esta na propriedade do connectionString é o que deve ser mudado para vc acessar o banco de dados , imagine a seguinte coisa , vc tem que dizer ao programa onde o banco de dados esta em tempo de execu´
cão !Preferivelmente tenha uma pasta chamada Database dentro da pasta onde esta o seu programa use a seguinte função para extrair o caminho da pasta(independente onde o seu programa esteje no micro),ExtractFilePath(Application.ExeName)+´\Database\bancodedados.mdb´.Vc vai passar para o parâmetro ConnectionString do seu AdoConnection . Assim como esta em cima !


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar