Insert Data dengan Delphi dan MySql

Malem minggu tanggal tua, mending ngeblog bareng Muhamad burhanudin (1n53ct4).  Oke langsung saja, kaliMenjalankan Aplikasi Android di Windows. Read more ... » ini sayaMembuka Command Prompt mode Administrator. Read more ... » akan menulis tentangTanya Jawab seputar pemrograman. Read more ... » insert data menggunakan mysql denganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » DelphiPrinsip dasar pembuatan Keylogger. Read more ... »+ZeosDBo. ZeosDBO merupakan komponen delphi yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » digunakan untukCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » mengkoneksikan delphi dengan database mysql atau database lain. Untuk mendownload ZeosDBO silahkan download disini. Jika sudah instalasikan ZeodDBO anda agar terintegrasi dengan delphi, caranya saya dapetin disini. Nah jika semua sudah terpenuhi silahkan ikuti langkah-langkah berikut :

Form Mysql dengan Delphi

Form Mysql dengan Delphi

  • Ganti nama tiap komponen (Zconnection=kon), (Zquery1=zview) dan (Zquery2=zfree). Dengan asumsi Zview digunakan khusus untuk query tampil dan zfree untuk Query Insert update delete.
  • Klik 2 kali pada Koneksi database dan ketikan source berikut :
try
    with kon do
      begin
        Connected :=false;
        Database  :='db_mhs';
        HostName  :='localhost';
        LoginPrompt:=false;
        User      :='root';
        Password  :='';
        Protocol  :='mysql-5';
        Connected :=true;
      end;
      ShowMessage('Koneksi Sukses');
    With zview do
      begin
        Active:=false;
        sql.Clear;
        Connection:=kon;
        close;
        sql.Add('SELECT * FROM tb_mhs');
        ExecSQL;
        Active:=true;
      end;
  except
    ShowMessage('Koneksi database gagal');
  end;
  • Klik 2x pada Button Simpan, ketikan berikut :
try
    With Zfree do
      begin
        Active:=false;
        sql.Clear;
        Connection:=kon;
        close;
        sql.Text:='INSERT INTO tb_mhs values(:nim, :nam, :jur, :fak)';
        ParamByName('nim').AsString:=edit1.Text;
        ParamByName('nam').AsString:=edit2.Text;
        ParamByName('jur').AsString:=edit3.Text;
        ParamByName('fak').AsString:=edit4.Text;
        ExecSQL;
      end;
      ShowMessage('Berhasil disimpan');
  except
    ShowMessage('gagal simpan');
  end;
  • Sama seperti diatas klik 2x pada Button Update, disini update berdasarkan NIM, karena NIM diasumsikan sebagai primary key.
try
    With Zfree do
      begin
        Active:=false;
        sql.Clear;
        Connection:=kon;
        close;
        sql.Text:='UPDATE tb_mhs SET nama=:nam, jurusan=:jur, fakultas=:fak where nim=:nim';
        ParamByName('nim').AsString:=edit1.Text;
        ParamByName('nam').AsString:=edit2.Text;
        ParamByName('jur').AsString:=edit3.Text;
        ParamByName('fak').AsString:=edit4.Text;
        ExecSQL;
      end;
      ShowMessage('Berhasil diupdate');
except
    ShowMessage('gagal update');
end;
  • Terakhir Button Delete, silahkan ketikan source berikut :
try
    With Zfree do
      begin
        Active:=false;
        sql.Clear;
        Connection:=kon;
        close;
        sql.Text:='DELETE FROM tb_mhs where nim=:nim';
        ParamByName('nim').AsString:=edit1.Text;
        ExecSQL;
      end;
      ShowMessage('Berhasil di hapus');
  except
    ShowMessage('gagal dihapus');
  end;

Selesai Selamat Mencoba.

NB : jangan Lupa sambungkan koneksi Zview dan Zfree ke kon.

Contoh dapat di download disini.
by 1n53ct4 (Muhamad Burhanudin).

None found.
Posted in Delphi 7 and tagged , .