Digital Note

Grab a coffe, take a seat, maybe listen to some music and relax by reading our digital daily diary. We want to share our minds and know how with you and the whole world!

Blog phones

Koneksi Delphi 2010 dengan MySQL

Untuk mengkoneksikan Delphi dengan MySQL cukup mudah. Tutorial yang akan saya berikan kali ini tanpa menggunakan DSN sehingga semua dengan source code.

Tenang source-nya simple…. ;-)

Untuk mengkoneksikan anda memerlukan konektor mysql bisa didownload di www.mysql.com ato download disini.

Berikut caranya, silahkan ikuti petunjuk yang saya berikan

1. Siapkan Form dan isi dengan komponen berikut

a. ADOConnection

b. ADOQuery

c. DataSource

d. DBDrid

e. Button

Silahkan susun letak sesuai selera.

2.  Double Klick tombol Preview. berikut source code nya…… (WARNING: Mohon diperhatikan nama Komponen mungkin beda dengan milik anda)

procedure TForm1.ButtonClick(Sender: TObject);
begin

with adoconn do begin
Close;
Close;
ConnectionString := ‘Mode=ReadWrite;Extended Properties=”DRIVER=MySQL ODBC 5.1 Driver;DATABASE=namadatabase;SERVER=localhost;UID=root;PASSWORD=;PORT=;OPTION=3;STMT=;”‘;
LoginPrompt := false;
Open();
end;
with adoquery do begin
sql.Clear;
connection := adoconn;
cursortype := ctstatic;
paramcheck := false;
sql.Add(‘select * from USER_PRIVILEGES’);
open;
end;
datasource.DataSet := adoquery;
dbgrid.DataSource := datasource;

end;

Source diatas yang tercetak merah sesuaikan dengan server database kalian.

Silahkan RUN dan klik tombol maka Koneksi sudah berhasil.

 

NOTE: Setiap versi Konektor maka untuk connectionstring juga harus menyesuaikan.

 

with adoconn do begin
Close;
Close;
ConnectionString := ‘Mode=ReadWrite;Extended Properties=”DRIVER=MySQL ODBC 5.1 Driver;DATABASE=information_schema;SERVER=localhost;UID=root;PASSWORD=;PORT=;OPTION=3;STMT=;”‘;
LoginPrompt := false;
Open();
end;
with adoquery do begin
sql.Clear;
connection := adoconn;
cursortype := ctstatic;
paramcheck := false;
sql.Add(‘select * from USER_PRIVILEGES’);
open;
end;
datasource.DataSet := adoquery;
dbgrid.DataSource := datasource;

Tags: , , , ,

Trackback from your site.

Leave a comment