Skip to main content

Koneksi MySQL dengan Zeos di delphi

ZeosLib adalah sebuah komponen tambahan di delphi yang bisa menangani koneksi kebeberapa database seperti MySQL, SQLLite, Oracle. Namun saya disini hanya akan membahas Koneksi Zeos dengan MySQL tanpa melakukan setting pada Properti di Delphi seperti dibawah ini


Untuk melakukan dengan Zeos pastikan Zeos sudah terinstal di Dephi anda, jika sudah terinstal akan tampil pada Pallet Komponen seperti dibawah ini

Cara Membuat Koneksi Zeos dengan MySQL  

1. Buka delphi anda dan tambahkan komponen ZConnection kedalam Form. seperti gambar dibawah ini
2. Ketikkan Code berikut : INIFiles dibawah USES
3. Setelah itu Double Klik pada Form dan ketikkan code berikut ini di  
var settingdatabase : TIniFile;
begin
settingdatabase := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SettingDatabase.ini');if (ZConnection.Connected) then   ZConnection.Disconnect;    ZConnection.HostName := settingdatabase.ReadString('koneksi','Hostname',''); //IP Server
    ZConnection.User     := settingdatabase.ReadString('koneksi','User',''); //User MySQL
    ZConnection.Password := settingdatabase.ReadString('koneksi','Password',''); //Password MySQL    ZConnection.Port     := 3306; //Port MySql    ZConnection.Database := settingdatabase.ReadString('koneksi','Database',''); //Database MySQL
    ZConnection.Protocol := settingdatabase.ReadString('koneksi','Protokol','');
    try
        ZConnection.Connect;
        if (ZConnection.Connected)  then
            begin
             Application.MessageBox( 'Connected Database','Informasi',MB_OK or MB_IconInformation);
          end;
    except
        Application.MessageBox( 'Not Connected Database','Peringatan'',MB_OK or MB_IconWarning);
end;
Sebelum anda RUN Aplikasi yang telah anda buat pastikan anda telah mendownload LIBMYSQL.DLL agar program yang anda jalankan dapat terkoneksi dengan SERVER Dan copypaste di folder tempat anda menyimpan program yang anda buat atau di Folder System32

4.  Sebelum di run anda harus membuat sebuat file agar bisa diLoad / dipanggil dengan program yang anda buat di Textpad dan simpan dengan nama koneksi.ini dan ketikan file berikut

[koneksi]
Hostname = 192.168.0.1 (diisi sesuai IP yg ada di PC/Laptop. jika pc/laptop tidak terhubung dengan jaringan isi aja dengan localhost/127.0.0.1)
User = root
Password = root
Database = test
Protokol = mysql
 5. Jika anda Run Berhasil maka akan tampil seperti  gambar dibawah ini


  Demikian tentang cara koneksi zeos dengan mysql delphi semoga bermanfaat.

Popular posts from this blog

Instal Router menggunakan Mikrotik RouterOS

MikroTik RouterOS™ adalah sistem operasi dan yang dapat digunakan untuk menjadikan komputer manjadi router network yang handal, mencakup berbagai fitur lengkap untuk network dan wireless. Kemudian di extrack dan kemudian burn ke CD itu file ISO nya. 1. Install Mikrotik OS – Siapkan PC, minimal Pentium I juga gak papa RAM 64,HD 500M atau pake flash memory 64 – Di server / PC kudu ada minimal 2 ethernet, 1 ke arah luar dan 1 lagi ke Network local – Burn Source CD Mikrotik OS masukan ke CDROM – Boot dari CDROM – Ikuti petunjuk yang ada, gunakan syndrom next-next dan default – Install paket2 utama, lebih baiknya semua packet dengan cara menandainya (mark) – Setelah semua paket ditandai maka untuk menginstallnya tekan “I” – Lama Install normalnya ga sampe 15menit, kalo lebih berarti gagal, ulangi ke step awal – Setelah diinstall beres, PC restart akan muncul tampilan login 2. Setting dasar mikrotik Langkah awal dari semua langkah konfigurasi mikrotik adalah setting ip Hal ini bertujuan ag...

Membuat group pada laporan

Dengan menggunakan komponen TQRGroup Anda dapat mengelompokkan data berdasarkan kondisi tertentu. Misalnya Anda ingin mengelompokkan nama Company dari tabel Customter.db berdasarkan nama Company yang mempunyai huruf awal yang sama. Untuk itu Anda bisa mencoba contoh di bawah ini: Buat sebuah proyek baru dan tambahkan sebuah report. Tambahkan komponen TTable pada report. Ubah property DatabaseName menjadi DBDEMOS, TableName menjadi Customer dan IndexName menjadi ByCompany. Aktifkan tabel dengan mengatur property Active menjadi True. Tambahkan ...