Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Seçilen Veri Tabanına Göre Bağlantı Sağlanması
#1
procedure TForm2.JvXPButton1Click(Sender: TObject);
var
 DataDirectory: string;
 DBFile: string;
begin
 DataDirectory := TPath.Combine(TPath.GetLibraryPath(), 'data');
 if not TDirectory.Exists(DataDirectory) then Exit();
 if listbox1.ItemIndex = -1 then Exit();

 DBFile := TPath.Combine(DataDirectory, listbox1.Items[listbox1.ItemIndex]);
 ShowMessage('Seçilen veritabanı:' + sLineBreak + DBFile);
 form1.edit5.Text:=listbox1.Items[listbox1.ItemIndex];
 form2.Close;
try
 fdconnection1.DriverName := 'FB'; //Hangi tür veritabanı istediğimiz belirtiyoruz.
 fdconnection1.Params.DriverID:='FB';
 fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) + 'DATA/SENKRON-2020.FDB'; //veritabanı yolumuzu belirtiyoruz.
 fdconnection1.Params.Add('user_name=SYSDBA');
 fdconnection1.Params.Add('password=masterkey');
 fdconnection1.Params.Add('lc_ctype=WIN1254');
 fdconnection1.Params.Add('sql_role_name=SYSDBA');
 fdconnection1.LoginPrompt:=false;
 fdconnection1.Connected := True; //Bağlantıyı açıyoruz.
 ShowMessage('Veritabanı bağlantısı sağlandı!');
except
 ShowMessage('Veritabanı bağlantı hatası!');
end;
end;

Arkadaşlar yıllara göre veri tabanlarım mevcut ara sıra eski veri tabanlarına dönmem gerekiyor yukarıda araştırarak oluşturduğum bir kod var şöyle ki veri tabanı seçimini yapabiliyorum ama iş bağlantıya gelince beceremedim. Veri tabanını seçmek için yazmış olduğum kodla fdconnection daki data kısmını ilişkilendiremedim yardımlarınızı bekliyorum şimdiden teşekkür ediyorum.
Cevapla
#2
(28-09-2020, Saat: 22:40)bnyamin86 Adlı Kullanıcıdan Alıntı:
procedure TForm2.JvXPButton1Click(Sender: TObject);
var
 DataDirectory: string;
 DBFile: string;
begin
 DataDirectory := TPath.Combine(TPath.GetLibraryPath(), 'data');
 if not TDirectory.Exists(DataDirectory) then Exit();
 if listbox1.ItemIndex = -1 then Exit();

 DBFile := TPath.Combine(DataDirectory, listbox1.Items[listbox1.ItemIndex]);
 ShowMessage('Seçilen veritabanı:' + sLineBreak + DBFile);
 form1.edit5.Text:=listbox1.Items[listbox1.ItemIndex];
 form2.Close;
try
 fdconnection1.DriverName := 'FB'; //Hangi tür veritabanı istediğimiz belirtiyoruz.
 fdconnection1.Params.DriverID:='FB';
 fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) + 'DATA/SENKRON-2020.FDB'; //veritabanı yolumuzu belirtiyoruz.
 fdconnection1.Params.Add('user_name=SYSDBA');
 fdconnection1.Params.Add('password=masterkey');
 fdconnection1.Params.Add('lc_ctype=WIN1254');
 fdconnection1.Params.Add('sql_role_name=SYSDBA');
 fdconnection1.LoginPrompt:=false;
 fdconnection1.Connected := True; //Bağlantıyı açıyoruz.
 ShowMessage('Veritabanı bağlantısı sağlandı!');
except
 ShowMessage('Veritabanı bağlantı hatası!');
end;
end;

Arkadaşlar yıllara göre veri tabanlarım mevcut ara sıra eski veri tabanlarına dönmem gerekiyor yukarıda araştırarak oluşturduğum bir kod var şöyle ki veri tabanı seçimini yapabiliyorum ama iş bağlantıya gelince beceremedim. Veri tabanını seçmek için yazmış olduğum kodla fdconnection daki data kısmını ilişkilendiremedim yardımlarınızı bekliyorum şimdiden teşekkür ediyorum.

Günaydın hayırlı sabahlar.
fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) + 'DATA/SENKRON-2020.FDB'; //veritabanı yolumuzu belirtiyoruz.
//DATA\SENKRON-2020.FDB olmalı zannedersem . / omayacak  \ olmalı
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#3
fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) + 'DATA/SENKRON-2020.FDB';

fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) +'DATA/' +  listbox1.Items[listbox1.ItemIndex] ;


Sayın Çınarbil Hocam tavsiyeniz çalışıyor fakat görsel olarak çalışıyor fiziksel olarak istediğim veritabanına bağlanmıyor ya da ben becerememiş olabilirim. Ama yinede kıymetli vaktinizden ayırıp ilgilendiğiniz için çok teşekkür ederim ben sorunumu yukarıdaki  paylaştığım 2. kod ile hallettim inşallah başka arkadaşlarında işine yarar.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  TIdTCPServer'dan seçili client'a veri gönderme [çözüldü] Yasemin 12 489 24-11-2020, Saat: 09:27
Son Yorum: pro_imaj
  Excel Veri Okuma Yöntemi Tercihiniz Nedir? pro_imaj 12 375 11-11-2020, Saat: 22:14
Son Yorum: anemos
  ComPort Otomatik Bağlantı bnyamin86 5 254 03-11-2020, Saat: 16:28
Son Yorum: bibilen
  String'e çevrilmiş Stream Veri JsontoDataSet Dönüştürme Sorunu. pro_imaj 16 3.365 27-10-2020, Saat: 13:38
Son Yorum: hassur
  Combobox veri kaydetme Gumiho309 11 742 15-10-2020, Saat: 11:44
Son Yorum: wiseman



Konuyu Okuyanlar: 1 Ziyaretçi