Dosya Kopyaladıktan sonra AdoQuery Pathi Bozuluyor

[F.Atagun]

Selamlar,

D7 ve Access database 'i kullanıyorum.

Programımız network üzerinde gayet başarılı bir şekilde çalışıyor.
Geçenlerde Server'a kayıt ederken şöyle bir sorun ortaya çıktı.

Serverdaki Ortak klasörüne aşağıdaki basit kodlarla dosya kopyalama işlemi yaptıktan sonra;

AdoQuery'nin pathi kendi kendine değişiyor. En son dosya kopyalama nereye yapılırsa AdoQuery'nin pathi orayı gösteriyor.

Doğal olarak program çalışmıyor.

İlgili Formda hiç Adoquery de yok ki düzelteyim.
Diğer formlarda bir sürü Adoquery var. Hepside exe dosyasının olduğu dizini gösteriyor. Diğer Formlardaki AdoQuerylere dokunmadan bu sorunu nasıl çözebilirim acaba ?

Çağrışım yaptırması açısından değerli görüşlerinizi rica ederim

Kod: Tümünü seç

procedure TForm46.Button1Click(Sender: TObject);
var
KaydetmeYolu:AnsiString;
begin
KaydetmeYolu:=Edit2.Text;
CopyFile( PChar(Edit1.Text), PChar(KaydetmeYolu +'\' +Edit3.Text) , True); 
ShowMessage('Dosya Eklenmiştir');
Form46.Close;
end;







procedure TForm46.Button2Click(Sender: TObject);
var
Dosyauzantisi:AnsiString;
DosyaAd:AnsiString;
begin
OpenDialog1.Title:='Dosya Aç';
OpenDialog1.Filter:='Tüm Dosyalar|*.|Tüm Kayıtlı Dosyalar|*.*';
OpenDialog1.FilterIndex:=1;
OpenDialog1.InitialDir:='c:\';
if OpenDialog1.Execute then
Begin
Dosyauzantisi:=ExtractFileExt(OpenDialog1.FileName);  // Sadece Dosya Uzantısı
DosyaAd:=ExtractFileNAme(OpenDialog1.FileName);  // Dosya Adı. ( Uzantısıyla beraber )

Edit1.Text:=GetCurrentDir + '\' + DosyaAd;
Edit3.Text:=Dosyaad;
Edit4.Text:=Dosyauzantisi;
end;

Sevgi ve saygılarımla

[F.Atagun]

Arkadaşlar Acaba sorunu mu mu tam anlatamadım ?

Lütfen bazı fikirlere ihtiyacım var. Biraz yardım lütfen

[sabanakman]

Tüm ADOQuery (ve benzeri) bileşenlerinibir adet TADOConnection nesnesine ayarla. Herhengi bir değişiklik gerekirse bu bileşende değişiklik yapman yeterli olacaktır. Bu değişiklik buna bağlı tüm bileşenleri bu yeni değere göre çalıştıracaktır. Tabi TADOConnection nesnesinin ConnectionString değerini değiştirebilmek için Connected özelliği False olmalı.

[F.Atagun]

@sabanakman Hocam,

Bu bilgi üzerinde çalışacağım


Çok teşekkür ederim


Selamlar, Sevgiler

[F.Atagun]

@sabanakman Hocam,

Hiçbir formum autoCreate değil. 71 tane formum var ve birçok formda Adoquery var.

Tüm AdoQueryleri mainforma koyacagım AdoConnection'a bağlasam ilerde benim şimdi aklıma gelmeyen başka bir sorun çıkar mı?

Yoksa her AdoQuery için ayrı bir AdoConnection mı oluşturmamı tavsiye edersiniz ?

[sabanakman]

Projenin mantıksal yapısına göre bu ADOConnection sayısı değişir. İşin temelinde her veritabanına (.mdb dosyasına) bir adet bağlantı nesnesi kullanmalısın. Ancak özel durumlarda (mesela bağımsız karmaşık modüller için) birden fazla bağlantı nesnesi kullanabilirsin. Ayrıca bu nesneleri ana forma değil DataModul üzerine koymanı tavsiye ederim. Kendisi bu tür işler için tasarlanmıştır. Bünyesinde görsel olmayan ortak kullanılan bileşenleri barındırır. Tabi bu da anaform gibi otomatik create edilen bir modül olmalı.

[F.Atagun]

@sabanakman Hocam,

Çok teşekkür ederim. Path sorunum ortadan kalktı.

Şimdi Mantıksal yapımı tekrar gözden geçireceğim.


Değerli yorumlarınız, yardımlarınız için çok teşekkür ediyorum


Sevgi ve Saygılarımla


.