Aktif veritabanı Dosyasını Bulma

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Cevapla
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Aktif veritabanı Dosyasını Bulma

Mesaj gönderen Ahmed Sabri Biruni »

Aktif veritabanı Dosyasını Bulma
Veritabanında farklı isimlerde dosyalarımız mevcut programda açılan veritabanı dosyası (access veritabanı kullanıyorum )üzerine kayıt yapılması isteniyor bunun üzerine farklı kayıt yapabilmem için aşağıda aktif dosyayı bulmama yardım eder misiniz?

procedure TForm1.Button9Click(Sender: TObject);
var
aktifdosya,fileSource, fileDest: string;

begin
ShowMessage('aktif dosyayı bulman lazım kaynak hatası');
ShowMessage(data.ADOConnectMet.ConnectionString);
ShowMessage(data.ADOConnectMet.ClassName);
ShowMessage(Data.ADOConnectMet.GetNamePath);

aktifdosya:=????; // aktif dosyayı bulamıyorum burda yardım ederseniz sorunum çözülür teşekkürler.
fileSource := ExtractFilePath(Application.ExeName)+aktifdosya;
fileDest := ExtractFilePath(Application.ExeName)+data.ADOBinaDosyaSave.Value+'.mdb';
CopyFile(PChar(fileSource), PChar(fileDest), False);
end;
En son Ahmed Sabri Biruni tarafından 05 Mar 2009 10:33 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Kullanıcı avatarı
csunguray
Üye
Mesajlar: 855
Kayıt: 09 Ara 2006 05:08
Konum: Adana
İletişim:

Re: Aktif veritabanı Dosyasını Bulma

Mesaj gönderen csunguray »

Kullandığınız veritabanının türü (MS-SQL, Firebird, Oracle...) nedir? Bulmak istediğiniz veritabanının kullandığı fiziksel dosyanın sabit diskteki path'i midir?
C. Sunguray
csunguray at netbilisim.kom
Net Bilişim Hizmetleri

Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Re: Aktif veritabanı Dosyasını Bulma

Mesaj gönderen Ahmed Sabri Biruni »

acccess veritabanı kullanıyorum teşekkürler
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Aktif veritabanı Dosyasını Bulma çözüldü

Mesaj gönderen Ahmed Sabri Biruni »

if OpenDialog1.Execute then
aktifdosya:= ExtractFileName(OpenDialog1.FileName);
diyerek çözüm bulundu... değerli bir arkadaşımız tarafından söylendi

Assofta teşekkürler
Ahmed Sabri Biruni
Üye
Mesajlar: 21
Kayıt: 03 Oca 2009 01:15

Re: Aktif veritabanı Dosyasını Bulma

Mesaj gönderen Ahmed Sabri Biruni »

halen çözemedim aslında
yani şundan dolayı:
programımı çalıştırdığımda yeni dosya aç demeden mevcut dosy üzerinden işlem yağtığımda en çalışılan projeye ait veritabanına zaten bağlı çalışıyor.
burda bağlı buluna veritabanı dosyasının bulmama yardım ederseniz sevinirim .

yani maksat save as yapmaktır. teşekkürler ...
Cevapla