Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Mysql db'ye bağlantı kurma
#1
Merhaba, 

Localhost Mysql db'ye direk bağlantı kurmak istiyorum, Fakat aşağıdaki hatayı alıyorum.
Bu sorunu nasıl çözebilirim?


procedure TForm1.Button1Click(Sender: TObject);
begin
  With FDPhysMySQLDriverLink1 do
  begin
    Release;
    DriverID := 'MySQL';
    VendorLib := ExtractFilePath(Application.Exename) + '\libmysql.dll';
    With FDConnection1 do
    begin
      LoginPrompt := False;
      Params.Clear;
      Params.Values['DriverID'] := 'MySQL';
      Params.Values['Server'] :='C:\Users\Dostk\Desktop\SMARTAPP\Win32\Debug\DBLER';
      Params.Values['Port'] := '3306';
      Params.Values['Database'] := 'GENEL';
      Params.Values['CharacterSet'] := 'utf8';
      Connected := True;
    end;
  end;
end;

First chance exception at $744608F2. Exception class EMySQLNativeException with message '[FireDAC][Phys][MySQL] Unknown MySQL server host 'C:\Users\Dostk\Desktop\TESTAPP\Win32\Debug\SMARTAPP(0)'.

Forumda ve webde araştırdım ama çözemedim bir türlü.
Hayat bazen güzel olabiliyor.
Cevapla
#2
Birde böyle denermisiniz?
procedure TForm1.Button1Click(Sender: TObject);
begin
With FDPhysMySQLDriverLink1 do
 begin
   Release; // Var olan bağlantıları kapatır.
   DriverID     := 'MySQL';
   VendorLib    := ExtractFilePath(Application.Exename) + '\LIBMYSQLD.DLL'; // Embedded dll
   EmbeddedArgs.Text := ''
   + '--basedir='  + ExtractFilePath(Application.Exename) +';'
   //'datadir' ile verilen yerde bulunan her alt klasör birer Veritabanıdır.
   // onların da altında fiziksel tablolar olacak.
   + '--datadir='  + ExtractFilePath(Application.Exename) +'\DBLER;'
   + '--language=' + ExtractFilePath(Application.Exename) +';'
   + '--skip-innodb;'
   + '--skip-networking;'
   ;
 end;

 With FDConnection1 do
 begin
   Connected   := False;
   LoginPrompt := False;
   Params.Clear;
     Params.Values['DriverID']     := 'MySQL';
     Params.Values['CharacterSet'] := 'utf8';
     // Database ise yukarıda verilen "datadir" içindeki klasördür...
     Params.Values['Database']     := 'GENEL';
   Connected     := True;
 end;
end;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
(05-04-2018, Saat: 11:40)faktoral Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBirde böyle denermisiniz?
procedure TForm1.Button1Click(Sender: TObject);
begin
With FDPhysMySQLDriverLink1 do
 begin
   Release; // Var olan bağlantıları kapatır.
   DriverID     := 'MySQL';
   VendorLib    := ExtractFilePath(Application.Exename) + '\LIBMYSQLD.DLL'; // Embedded dll
   EmbeddedArgs.Text := ''
   + '--basedir='  + ExtractFilePath(Application.Exename) +';'
   //'datadir' ile verilen yerde bulunan her alt klasör birer Veritabanıdır.
   // onların da altında fiziksel tablolar olacak.
   + '--datadir='  + ExtractFilePath(Application.Exename) +'\DBLER;'
   + '--language=' + ExtractFilePath(Application.Exename) +';'
   + '--skip-innodb;'
   + '--skip-networking;'
   ;
 end;

 With FDConnection1 do
 begin
   Connected   := False;
   LoginPrompt := False;
   Params.Clear;
     Params.Values['DriverID']     := 'MySQL';
     Params.Values['CharacterSet'] := 'utf8';
     // Database ise yukarıda verilen "datadir" içindeki klasördür...
     Params.Values['Database']     := 'GENEL';
   Connected     := True;
 end;
end;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu kodları incelemiştim. Muharrem hocanın paylaşmış olduğu kodlar. Biraz kafam karıştı.

1. LIBMYSQLD.DLL   D'yi anlamadım.
2. exe ile birlikte errmsg.sys olması lazım bu nedir? bilmiyorum.
3. exeyi çalıştırdığımda DESKTOP-E0EJ4BC bir dosya oluşuyor bu nedir?
Hayat bazen güzel olabiliyor.
Cevapla
#4
DESKTOP-E0EJ4BC sizin bilgisayarınızın adı.

Doğrudur. Muharrem hocanın paylaşmış olduğu kodlar.

LIBMYSQLD.DLL Embedded dll

Sonuç olarak bağlanıp. Sorgu çalıştırabiliyormusunuz?
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Mysql database bağlantısı serhat 3 152 31-03-2018, Saat: 08:36
Son Yorum: klavye
  Uzak masaüstünde çalışan program, bağlantı kesildiğinde hata veriyor canbir 0 107 16-03-2018, Saat: 18:50
Son Yorum: canbir
  Php vb. kullanmadan Mysql upload nehirnnn 18 580 12-02-2018, Saat: 11:13
Son Yorum: esistem
  Uniconnection mssql bağlantı hatası pro_imaj 3 182 13-01-2018, Saat: 13:27
Son Yorum: pro_imaj
  RDP'yi Simge durumuna küçültünce bağlantı kopuyor yhackup 1 145 06-12-2017, Saat: 13:18
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi