Delphi – ADO – Mysql

Koneksi Delphi dengan Mysql database dapat dibangun dengan berbagai komponen baik yang standar bawaan Delphi sendiri maupun komponen dari pengembang pihak ketiga. Jenis koneksinya juga beragam baik direct connection maupun melalui odbc connection ataupun memanfaatkan libmysql.dll. Koneksi dengan odbc kadang seringkali merepotkan karena kita harus melakukan setting odbc windows dari control panel, namun hal tersebut dapat diatasi dengan menuliskan kode langsung pada program Delphi yang kita buat.

Sebagai catatan untuk koneksi odbc ke Mysql database kita membutuhkan “mysql-connector-odbc-3.51.12-win32” yang sudah banyak beredar di internet.

Kalau mau coba dibawah juga ak sediakan link contohnya

Kode koneksi tersebut sebagai berikut

procedure TForm1.FormCreate(Sender: TObject);
var
db_name, db_server, db_port, db_user, db_pass:string;
begin
    db_name   := 'mysql';       //nama database
    db_server := 'localhost';   // server database
    db_port   := '3306';        //default port is 3306
    db_user   := 'root';        //user mysql database
    db_pass   := 'root';        //password mysql database
     //koneksi ke database tanpa mengkonfigurasikan ODBC
    ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;
    Password=;Persist Security Info=True;User ID=;
    Extended Properties=' + 'DRIVER={MySQL ODBC 3.51 Driver};
    DESC=;DATABASE='+  db_name + ';
    SERVER=' + db_server + ';
    UID=' + db_user + ';
    PASSWORD=' + db_pass + ';
    PORT=' + db_port + ';
    OPTION=16387;STMT=;" & Chr$(34)';
    //menyeleksi tabel di database
    Adoquery1.SQL.Add('select * from help_category');
end;

Jangan lupa setting db_user dan db_pass sesuai dengan setting database Mysql yang akan kita akses.

Download

Selamat mencoba semoga bermanfaat.

Advertisement