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 :

  • Buat database dengan nama db_mhs.
  • Kemudian buat tabel tb_mhs dan buat 4 kolom berikut :
    nim varchar(11) primary key, nama (varchar 30),  jurusan varchar(30), fakultas varchar(30).
  • Buka delphi dan desainDAFTAR MAHASISWA PERBAIKAN DESAIN WEB. Read more ... » seperti berikut :

    Delphi Zeos

    Delphi Zeos

  • 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, Programing and tagged , , , .