Query MySQL Pada Pemrograman Dengan Delphi

MySQL Query Delphi Pascal

Setelah saya post cara Save,Update,Delete,Cancl menggunakan komponen zeos dengan memanfaatkan fungsi dari TZTable,

pada kesempatan kali ini saya post masih dalam satu golongan cuma untuk kali ini saya menggunakan fungsi query,

Jika sobat belum membaca postingan sebelumnya sobat bisa baca di sini mengenai Query MySQL Save,Update,Delete,Cancel Menggunakan Komponen Zeos Table Pada Delphi 

Syntax Query MySQL sekumpulan code yang di rancang mengeksekusi suatu data tertentu dalam database server, Sebenarnya pada defaultnya Syntax query juga bisa di eksekusi menggunakan tools bawaan dari MySQl server sendiri.

Namun dengan adanya kita mengaplikasikanya pada sebuah pemrograman desktop yang dimana bertujuan untuk memudahkan para pengguna dalam mengelola data atau mengeksekusi suatu data yang terdapat dalam database server.

Ke poin utama artikel kali ini di buat hanya semata untuk berbagi buat para sobat blogger yang membutuhkan tutorial mengenai Query MySQL Pada Pemrograman Dengan Delphi.

Oke semoga beberapa fungsi kode di bawah ini bisa menjadi salah satu yang bermanfaat bagi teman-teman semua.

Dalam hal ini saya menggunakan bantuan komponen dari FireDAC.MySQL

Syntax query SQL Input

Syntax Query MySQL INSERT ( I )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text := 'SELECT *FROM data_nasabah';
SQLQuery.Open;
SQLQuery.Append;
SQLQuery.FieldByName('Nis').AsString    := Nis.Text;
SQLQuery.FieldByName('Nama').AsString   := Nama.Text;
SQLQuery.FieldByName('Tempat').AsString := Tempat.Text;
SQLQuery.Post;
]

Syntax Query MySQL INSERT ( II )

[
SQLQuery.close;
SQLQuery.sql.Clear;
SQLQuery.sql.Text:= 'INSERT INTO nasabah (Id,Nama,Umur,Jenis) VALUES (":Id",":Nama",":Jenis",":Saldo")';
SQLQuery.ParamByName('Id').AsString     := Id.text;
SQLQuery.ParamByName('Nama').AsString   := Nama.text;
SQLQuery.ParamByName('Jenis').AsString  := Umur.text;
SQLQuery.ParamByName('Saldo').AsInteger := Strtoint(Saldo.text);
SQLQuery.ExecSQL;
]

Syntax Query MySQL INSERT ( III )

[
SQLQuery.close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add('INSERT INTO nasabah (Id, Nama, Jenis, Saldo');
SQLQuery.SQL.Add('VALUES (:Id, :Nama, :Jenis, :Jenis)');
SQLQuery.Params[0].AsString  := Id.text;
SQLQuery.Params[1].AsString  := Nama.text;
SQLQuery.Params[2].AsString  := Jenis.text;
SQLQuery.Params[3].AsInteger := Strtoint(Saldo.text);
SQLQuery.ExecSQL;
]

Syntax Query MySQL INSERT ( IIII )

[
SQLQuery.close;
SQLQuery.sql.Clear;
SQLQuery.sql.Text:='INSERT INTO nasabah values(:Id, :Nama, :Jenis, :Saldo)';
SQLQuery.ParamByName('Id').AsString    :=Id.Text;
SQLQuery.ParamByName('Nama').AsString  :=Nama.Text;
SQLQuery.ParamByName('Jenis').AsString :=Jenis.Text;
SQLQuery.ParamByName('Saldo').AsInteger:=Strtoint(Saldo.text);
SQLQuery.ExecSQL;
]

Syntax Query SQL Edit

Syntax Query MySQL EDIT ( I )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text := 'SELECT * FROM data_nasabah';
SQLQuery.Open;
SQLQuery.FindKey([Nis.Text]);
SQLQuery.Edit;
SQLQuery.fieldbyname('Nama').AsString        := Nama.Text;
SQLQuery.fieldbyname('Tempat').AsString      := Tempat.Text;
SQLQuery.fieldbyname('Tgl_Lahir').AsDateTime := Tgl_Lahir.Date;
SQLQuery.Post;
]

Syntax Query MySQL EDIT ( II )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text:='UPDATE anggota set nama="'+Nama.Text+'",alamat="'+Alamat.Text+'",kelas="'+Kelas.Text+'",klamin="'+Kelamin.Text+'" WHERE id="'+NIS.Text+'"';
SQLQuery.ExecSQL;
]

Syntax Query SQL delete

Syntax Query MySQL HAPUS ( I )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text := 'DELETE FROM data_nasabah where Nis=:INDEX';
SQLQuery.ParamByName('INDEX').AsString := Nis.Text;
SQLQuery.SQL;
]

Syntax Query MySQL HAPUS ( II )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text := 'DELETE FROM anggota WHERE id="'+id.Text+'"';
SQLQuery.ExecSQL;
]

Syntax Query MySQL HAPUS Seluruh data pada tabel ( III )

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Text := 'TRUNCATE TABLE anggota';
SQLQuery.ExecSQL;
]

Syntax Query SQL Filter Data

Syntax Query MySQL Filter Data Berdasarkan ID Key

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add('SELECT * FROM nasabah WHERE nis =:nis ORDER BY ID ASC');
SQLQuery.Parameters.ParamByName('nis').Value:=Nis.Text;
SQLQuery.Open;
]

Syntax Query MySQL Filter Data Berdasarkan Range Tanggal

[
SQLQuery.Close;
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add('SELECT * FROM nasabah WHERE Tanggal_Daftar BETWEEN (:Tgl_Awal) AND (:Tgl_Akhir) ORDER BY ID ASC');
SQLQuery.Parameters.ParamByName('Tgl_Awal').Value:=FormatDateTime('mm/dd/yyyy',DateAwal.Date);
SQLQuery.Parameters.ParamByName('Tgl_Akhir').Value:=FormatDateTime('mm/dd/yyyy',DateAkhir.Date);
SQLQuery.Open;
]

NEXT UPDATE >>