Thursday, May 1, 2014
Filter Data di Database dengan Delphi
Filter Data tentu Sangat diperlukan dalam aplikasi yang berbasis database. Anggap Saja saya ingin menampilkan data hanya berdasarkan tanggal tertentu saja atau menampilkan data berdasarkan parameter tertentu. Hal ini tentu akan sedikit merepotkan jika jumlah data yang ada di database mencapai ribuan bahkan jutaan data maka utilitas seperti filter data ini akan sangat berguna untuk permasalahan tersebut.
Untuk melakukan filter data, disini saya memanfaatkan Query dari DBMS Microsoft Access. Jika anda menggunakan MySQL disesuaikan saja. Seperti yang telah saya jelaskan sebelumnya. untuk melakukan query pada Database kita membutuhkan komponen AdoQuery karena tidak bisa menggunakan komponen AdoTable.
Pada Contoh Penerapan Untuk Melakukan Filtering Data dengan Menggunakan Query adalah sebagai berikut :
1. Query Untuk Menampilkan data Berdasarkan parameter Tertentu
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [table] WHERE Nama =:nama ORDER BY ID ASC');
ADOQuery1.Parameters.ParamByName('nama').Value:=Edit1.Text;
ADOQuery1.Open;
2. Query Untuk Menampilkan data Berdasarkan Tanggal Tertentu
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [table] WHERE Tanggal_Daftar BETWEEN (:tgl1) AND (:tgl2) ORDER BY ID ASC');
ADOQuery1.Parameters.ParamByName('tgl1').Value:=FormatDateTime('mm/dd/yyyy',DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('tgl2').Value:=FormatDateTime('mm/dd/yyyy',DateTimePicker2.Date);
ADOQuery1.Open;
3. Query Untuk Menampilkan Semua Data
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [table]');
ADOQuery1.Open;
Adapun Contoh Source code lengkap beserta databasenya dapat anda Download disini. Selamat Berkreasi dan Happy Coding. :)
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment