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 Büyükten Küçüğe Sıralama Sorunu hakanharbeli 4 172 25-04-2018, Saat: 08:26
Son Yorum: yhackup
  Mysql database bağlantısı serhat 3 286 31-03-2018, Saat: 08:36
Son Yorum: klavye
  Uzak masaüstünde çalışan program, bağlantı kesildiğinde hata veriyor canbir 0 181 16-03-2018, Saat: 18:50
Son Yorum: canbir
  Php vb. kullanmadan Mysql upload nehirnnn 18 736 12-02-2018, Saat: 11:13
Son Yorum: esistem
  Uniconnection mssql bağlantı hatası pro_imaj 3 280 13-01-2018, Saat: 13:27
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi