Connection String kullanımı hakkında yardım

[firatdesign]

arkadaşlar delphi ile program yazıyorum.Access veritabanı kullanıyorum.Sıkıntı şu ben Adoconnection nesnesinin connection stringine öyle bir tanımlama yapıyorum.

amacım programın klasörleri hangi dizinde olursa olsun veritabanı bağlantısının çalışmasını sağlamak

yolum:=extractfilepath(application.exename);
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+'Data Source='+yolum+'\veri.mdb'+';Persist Security Info=False';

ikinci yollada söyle bir tanımlama yapıyorum.

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Eczane Otomasyonu\veri.mdb;Persist Security Info=False

veritabanının bulunduğu dizinin yolunu silip sadece veritabanı ismini giriyorum.
ikisindede şu hatayı alıyorum

c:\windows\system32\veri.mdb dosyası bulunamadı

ne yapmam lazım lütfen yardım edin

[SimaWB]

ExtractFilePath'in sonunda \ döneceği için veritabanı isminin başında \ koymana gerek yok.

Kod: Tümünü seç

const
  ConStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  dbFile: string;
begin
  dbFile := ExtractFilePath(Application.Exename) + 'veri.mdb';
  adoconnection1.ConnectionString := Format(ConStr, [dbFile]);

şeklinde çalışması lazım...

[firatdesign]

hocam verdiğiniz kodu Formun Create bölümüne yazdım fakat bu seferde kimlik doğrulama başarısız diye bir hata veriyor

[SimaWB]

Veritabanı dosyası şifreli olabilir mi?
Eğer öyleyse ConnectionString'e Password kısmı eklemelisiniz

Kod: Tümünü seç

ConStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;Jet OLEDB:Database Password=%s';

Kod: Tümünü seç

adoconnection1.ConnectionString := Format(ConStr, [dbFile, 'VeritabanıSifresi']);

[firatdesign]

yok hocam denedim yine olmuyor size zahmet olmazsa dosyaları indirip bi halleder misiniz.

link http://yadi.sk/d/zKMwk-rPQ5oMP

[SimaWB]

Sizin gönderdiğiniz EXE bende çalışıyor. Hiçbir değişiklik yapmadan direk exe'yi çalıştırdım ve 2. formda veriler gözüküyor, Insert de yapıyor.
Kodlara baktığımda da herhangi bir sıkıntı görmüyorum...

[firatdesign]

valla hocam bende çalışmıyor nasıl iş anlamış değilim kodlar gördüğünüz gibi ben ADOQUERY1 nesnesinin aktif özelliğini true yapmaya çalıştığımda kimlik doğrulama başarısız diye hata veriyor.

[firatdesign]

Hocam Tamam Hallettim yardımın için çok teşekkür ederim ben ADOQuery1 nesnesini properties penceresinden aktif yapmaya çalışıyordum ondan oyle bir hata alıyormuşum.
Kod olarak yazınca sorun düzeldi.