BUTUN KONTROLLERE HUKMEDIN

is TQuery **then** **BEGIN** **with** TQuery(Data_Mod.Components) do **begin** Close; DatabaseName:=ExtractFilePath(Application.ExeName); **end;** END; end;

   Merhaba Hocam Yazımış Olduğunuz Bir Kod Parçasını Daha Buldum.
Gerçekten Çok etkili ve işe Yarıyor Bilhassa BDE Kullanarak uygulama Geliştirenlerin işine fazlasıyla yarayacak...

Bu Kod Ne İşe arıyor? Ben Bi açıklama Getirmek istiyorum.
Şimdi Bi Program Yazıyosunuz ve BDE Kullanıyorsunuz.Biliyorsunuz Bde e da Paradox ve DBbase VeriTabanlarında Alias işlemleri var.Ve Bu Dbase ve Paradox Tablolarına erişmek için
Aliaslar(Takma Adlar) Kullanıyor.Bu aliaslar da  Paradox veya Dbase Tablolarının Bulunduğu Klasörlerdir.
Yani Delphi Uygulaması ile Paradox Tablolarına Bağlanmak için BDE nesnelerinden Table veya da Querynin DataBaseName Yani Veritabanı Özelliğine Alis Veya da Paradox Tablolarının olduğu dizin yolu Aktrılarak Bağlanılabilir.

  Şimdi Hiç BDE e de Alias oluşturmadan Delphi Uygulaması içersinden Çalışma Anında Paradox Tablolarına Bağlanabileceksiniz.Paradox Tabloları Programla Aynı Dizinde Olsun
Ve istediğim Yolda Çalışşın İstiyorsanız...

Aşağıda da Datamodule kullanılmış.
İnşallah anlatabilmişimdir.

//MURAT TURAN
//SQL DOSYALARINA YOL ATANIYOR...
for i:=0 to Data_Mod.ComponentCount -1 do
BEgin
 if Data_Mod.Components is TQuery then
 BEGIN
  with TQuery(Data_Mod.Components) do
  begin
    Close;
    DatabaseName:=ExtractFilePath(Application.ExeName);
  end;
 END;
end;

//NORMAL CONTROLLER ICIN ComponentCount yerile ControlCount kullanın

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Konu: BUTUN KONTROLLERE HUKMEDIN Gönderim Zamanı: 15.Aralik.2008 Saat 15:13
	Merhaba Hocam Yazımış Olduğunuz Bir Kod Parçasını Daha Buldum. Gerçekten Çok etkili ve işe Yarıyor Bilhassa BDE Kullanarak uygulama Geliştirenlerin işine fazlasıyla yarayacak... Bu Kod Ne İşe arıyor? Ben Bi açıklama Getirmek istiyorum. Şimdi Bi Program Yazıyosunuz ve BDE Kullanıyorsunuz.Biliyorsunuz Bde e da Paradox ve DBbase VeriTabanlarında Alias işlemleri var.Ve Bu Dbase ve Paradox Tablolarına erişmek için Aliaslar(Takma Adlar) Kullanıyor.Bu aliaslar da Paradox veya Dbase Tablolarının Bulunduğu Klasörlerdir. Yani Delphi Uygulaması ile Paradox Tablolarına Bağlanmak için BDE nesnelerinden Table veya da Querynin DataBaseName Yani Veritabanı Özelliğine Alis Veya da Paradox Tablolarının olduğu dizin yolu Aktrılarak Bağlanılabilir. Şimdi Hiç BDE e de Alias oluşturmadan Delphi Uygulaması içersinden Çalışma Anında Paradox Tablolarına Bağlanabileceksiniz.Paradox Tabloları Programla Aynı Dizinde Olsun Ve istediğim Yolda Çalışşın İstiyorsanız... Aşağıda da Datamodule kullanılmış. İnşallah anlatabilmişimdir. //MURAT TURAN //SQL DOSYALARINA YOL ATANIYOR... for i:=0 to Data_Mod.ComponentCount -1 do BEgin if Data_Mod.Components is TQuery then BEGIN with TQuery(Data_Mod.Components) do begin Close; DatabaseName:=ExtractFilePath(Application.ExeName); end; END; end; //NORMAL CONTROLLER ICIN ComponentCount yerile ControlCount kullanın