Aplikasi Tambah, Hapus, Sunting, Dan Cari (Insert, Update, Delete, Find) Sederhana Dengan Microsoft Visual Basic 6.0 Menggunakan Database MS Access, Dan MySql

Assalamualaikum sahabat programmer semua kali ini ane mau share cara mengkoneksikan database ms access dan database mysql ke Microsoft Visual Basic 6.0. VB 6.0 ini emang sedikit jadul tapi jangan diliat jadulnya karena in shaa Allah jika sudah mengusai VB 6.0 kita mendapat kemudahan dalam membaca bahasa program BASIC. Dalam postingan ini ane pake Visual Basic 6.0 Enterprise Edition download disini, Microsoft Access 2007, dan XAMPP MySql server download disini.

Ane pake windows 7 yaa gan, jadi klo ada yang pake windows 8 terus ada masalah ane gk janji bisa bantu wkwk

Alhamdulillah VB 6.0 sudah terinstall, yukk dibuka pilih standard exe

Klik gambar untuk memperbesar

setelah kita pilih standard exe dan muncul jendela form default yaitu form1, klik kanan pada toolbox lalu pilih component.

lalu pilih Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB)

Klik gambar untuk memperbesar

Jika berhasil akan muncul penampakan dua icon ini pada toolbox

Klik gambar untuk memperbesar

Selanjutnya desain form seperti yang terlihat dibawah ini

Klik gambar untuk memperbesar

Aplikasi pertama yang kita buat menggunakan database ms access berikut item pada form diatas :

Klik gambar untuk memperbesar

Ubah pengaturan item pada tab properties

Untuk labelnya :

1. "Name : lblhead", "Caption: Aplikasi Tambah Sunting Hapus, Cari Dengan Visual Basic 6.0 Menggunakan MS Access", "Alignment: 2 - Center", "Font: Arial, Bold, 20"
2. "Name : lblnim", "Caption: NIM"
3. "Name : lblnama", "Caption: Nama"
4. "Name : lblttl", "Caption: Tempat, Dan Tanggal Lahir"
5. "Name : lbljurusan", "Caption: Jurusan"
6. "Name : lblalamat", "Caption : Alamat"
7. "Name : lblnotelp", "Caption : No. Telepon/HP"
8. "Name : lblemail", "Caption : Email"
9. "Name : lblcari", " Caption : Cari Berdasarkan"

Untuk text box :

1. "Name: txtnim", "Text: (Kosong)"
2. "Name: txtnama", "Text: (Kosong)"
3. "Name: txtttl", "Text: (Kosong)"
4. "Name: txtalamat", "Text: (Kosong)", "MultiLine: True", "ScrollBars: 2 - Vertical"
5. "Name: txtnotelp", "Text: (Kosong)"
6. "Name: txtemail", "Text: (Kosong)"
7. "Name: txtcari", "Text: (Kosong)"

Untuk Combo Box

1. "Name: cmbjurusan", "Text: (Kosong)"
2. "Name: cmbcari", "Text: (Kosong)"

Untuk command button

1. "Name: cmdtambah", "Text:Tambah"
2. "Name: cmdsimpan", "Text: Simpan"
3. "Name: cmdsunting", "Text: Sunting"
4. "Name: cmdhapus", "Text: Hapus"
5. "Name: cmdbatal", "Text: Batal"
6. "Name: cmdkeluar", "Text: Keluar"

Koneksi ADODC

1. "Name: adomahasiswa", "Visible: False"

Menampilkan data dengan Data Grid

1. "Name: tabel"

Membuat, Memilih, dan Mengatur Database MS Access Pada ADODC

Jangan lupa buat database dulu gan, Buka Microsoft Access 2007 lalu klik blank database, pada file name beri nama database, lalu klik icon folder untuk menentukan lokasi penyimpanan database, berikut langkah-langkahnya biar agan gak bingung:

Klik gambar untuk memperbesar

tips: perhatikan lokasi penyimpanan database agar database tidak tertukar atau kesulitan dalam mencari lokasi penyimpanan database

Ubah ekstensi database menjadi 2000-2003 format(*mdb) seperti berikut

Klik gambar untuk memperbesar

Setelah database dibuat langkah berikutnya isi kolom tabel seperti gambar dibawah ini, jangan lupa gan ubah view ke design view, berikut adalah langkah-langkahnya untuk memudahkan agan:

Klik gambar untuk memperbesar

Setelah klik design view akan muncul pop up save as, beri nama mahasiswa

Klik gambar untuk memperbesar

 berikut tampilan setelah klik Ok, tampilan berikut yang sudah diberikan item pada kolom.

Klik gambar untuk memperbesar

Berikut format tabel pada database miscrosoft access 2007

1. Field Name: nim, (Data Type: Text, Field Size: 20).
2. Field Name: nama, (Data Type: Text, Field Size: 150).
3. Field Name: ttl, (Data Type: Text, Field Size: 50).
4. Field Name: jurusan, (Data Type: Text, Field Size: 25).
5. Field Name: alamat, (Data Type: Memo).
6. Field Name: notelp, (Data Type: Text, Field Size: 25).
7. Field Name: email, (Data Type: Text, Field Size: 100).

tips: perhatikan tipe dan panjang data karena dapat mempengaruhi ukuran database dan performa sistem.

Tipe data dan panjang data dapat diubah sesuai dengan kebutuhan, selanjutnya isi data dengan data dummy, isi dengan kretifitas kalian.

Klik gambar untuk memperbesar

Sekarang kita lanjut ke aplikasi, pertama kita buat koneksi antara vb dengan ms access. Perhatikan langkah-langkah dibawah ini.

1. Klik kanan pada adodc lalu pilih adodc properties

   

   Klik gambar untuk memperbesar

2. Pada property pages pilih use connection string lalu klik build.

   

   Klik gambar untuk memperbesar

3. Pada window Data Link Properties pilih tab provoider lalu pilih > Microsoft Jet 4.0OLE DB Provider > klik next.

   

   Klik gambar untuk memperbesar

4. Pada tab connection klik icon ... 

   

   Klik gambar untuk memperbesar

5. Pilih database, pada tahap ini ketelitian dalam menaruh dan menamai database sangatlah penting, contoh: ane simpan databse di folder App VB 6.0>VB6_DB_ACCESS>database.

   

   Klik gambar untuk memperbesar

6. Setelah database terpilih link pada file database akan terbuat lalu klik test connection.

   

   Klik gambar untuk memperbesar

7. Alhamdulillah Test connection success, tutup aja semua gan klik ok, ok, ok, selanjutnya kita masuk ke tahap menampilkan data pada database ke data grid.

   

   Klik gambar untuk memperbesar

Menampilkan Data Pada Database Ke Aplikasi

Setelah koneksi berhasil dibuat, tahap selanjutnya kita akan menampilkan data pada tabel data grid. Pertama-tama klik kanan pada project lalu > pilih add > module.

Klik gambar untuk memperbesar

Pilih module.

Klik gambar untuk memperbesar

Klik file > save/ctrl+s, simpan module dalam satu folder dengan project.
Beri nama koneksi lalu klik save.

Gambar diatas merupakan contoh module yang  sudah tersimpan

tips: perhatikan letak folder  tempat menyimpan module, periksa dengan teliti agar module tidak terpisah dengan project, perhatikan nama yang diberikan, berilah nama khusus agar memudahkan agan membedakan form, module, class, dsb

Mengaplikasikan Koneksi Database Pada ADODC Ke Dalam Aplikasi

Setelah module dibuat, double klik pada module atau bisa dengan klik kanan > view code.

Klik gambar untuk memperbesar

Setelah jendela Tuliskan kode dibawah

Klik gambar untuk memperbesar

Public Conn As New ADODB.Connection
Public rsmahasiswa As New ADODB.Recordset

Public Sub sambung_db()
On Error GoTo konekerror

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database\database.mdb;;Persist Security Info=False"

rsmahasiswa.Open "select * from mahasiswa", Conn, adOpenDynamic, adLockOptimistic

Exit Sub

konekerror:
    MsgBox "Terdapat Kesalahan ! " & Err.Description, vbCritical, "Peringatan"
End Sub
Public Sub putus_db()
rsmahasiswa.Close

Conn.Close
End Sub

Perlu diperhatikan pada

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database\database.mdb;;Persist Security Info=False"

+ App.Path + adalah lokasi dimana kita menaruh database, ane menuliskan \database\database.mdb; yang kalau diartikan ane buka database dari folder project=(+ App.Path +), nama folder= database\nama database = database.mdb, contoh: kalau agan gak simpan didalam folder lagi tinggal tulis aja nama databasenya = database.mdb.

tips : sebenarnya kita bisa menggunakan koneksi adodc yang kita build pada tab property pages, pasti masih ingat.
Klik kanan pada adodc, pilih adodc properties, lalu blok koneksi yang sudah kita build.(pastikan semua tulisan terblok)

aplikasikan pada module pada script conn.open yang kira-kira akan menjadi seperti ini

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\App VB 6.0\VB6_DB_ACCESS\database\database.mdb;Persist Security Info=False"

Perhatikan pada  Data Source ! disitu tertulis D:\App VB 6.0\VB6_DB_ACCESS\database\database.mdb  database dibuka dari disk D, folder App VB 6.0, folder VB_DB_ACCSESS, dst, ini akan menjadi masalah serius gan saat agan buka project lewat flashdisk karena database dibuka sesuai dengan connecttion string dimana dia diciptakan, dalam kasus ini yaa diciptakan di leppy ane hehe, kalau ane copy nihh project ke komputer atau leppy agan, ane jamin koneksi database akan gagal karena connection string harus dibuild ulang, nahh maka dari itu ane pake + App.Path + yang akan otomatis membuka database yang terdapat pada project, inilah alasan ane memperingatkan untuk menyimpan database dalam folder project.

Menampilkan Data Pada Database Ke Data Grid

Tipsnya terlalu panjang ya maaf hehe, selanjutnya kita menuliskan koding pada form yang sudah kita buat pada awal pembuatan project.

1. Klik kanan pada form lalu klik view code.

   

   Klik gambar untuk memperbesar

2. Dibagian atas tempat menulis kode terdapat combo box (General) sama (Declarations) gitu ane gk tau namanya apaan hehe, pilih Form untuk combo box (General), pilih Load untuk combo box (Declarations).

   

   Klik gambar untuk memperbesar

   

   Klik gambar untuk memperbesar

3. Tuliskan kode berikut.

   Private Sub Form_Load()
   mengunciteks True
   menguncitombol True
   
   sambung_db
   adomahasiswa.ConnectionString = Conn.ConnectionString
   adomahasiswa.RecordSource = "select * from mahasiswa"
   adomahasiswa.Refresh
   Set tabel.DataSource = adomahasiswa
   
   tabel.Columns(0).Width = 1000
   tabel.Columns(5).Width = 700
   End Sub
   

   

   Klik gambar untuk memperbesar

4. Setelah Form Load kita lanjutkan dengan Form Activate.

   

   Klik gambar untuk memperbesar

5. Tuliskan kode berikut pada Form Activate.

   Private Sub Form_Activate()
   Dim i As Integer
   For i = 0 To 5
       tabel.Columns(i).Locked = True
   Next i
   
   cmbjurusan.AddItem "Teknik Informatika"
   cmbjurusan.AddItem "Sistem Informasi"
   cmbcari.AddItem "NIM"
   cmbcari.AddItem "Nama"
   End Sub

   

   Klik Gambar Untuk Memperbesar

6. Jangan dijalankan dulu gan ! sabar hehe, kita buat declarations untuk mengunci teks, mengunci tombol, dan menghapus teks, fungsinya untuk mengunci teks, mengunci command button, dan menghapus teks pada text box secara bersamaan, agar tidak bisa diketik sebelum waktunya, diklik sembarangan, dan memudahkan user untuk menghapus teks pada text box. Langsung ditulis aja ketiga sub declarations dibawah ini.

   Sub mengunciteks(kunci As Boolean)
   txtnim.Locked = kunci
   txtnama.Locked = kunci
   txtttl.Locked = kunci
   cmbjurusan.Locked = kunci
   txtalamat.Locked = kunci
   txtnotelp.Locked = kunci
   txtemail.Locked = kunci
   End Sub
   
   Sub menguncitombol(kunci As Boolean)
   cmdtambah.Enabled = kunci
   cmdsimpan.Enabled = Not kunci
   cmdbatal.Enabled = Not kunci
   cmdsunting.Enabled = kunci
   cmdhapus.Enabled = kunci
   cmdkeluar.Enabled = kunci
   End Sub
   
   Sub mengosongkanteks()
   txtnim.Text = Empty
   txtnama.Text = Empty
   txtttl.Text = Empty
   cmbjurusan.Text = Empty
   txtalamat.Text = Empty
   txtnotelp.Text = Empty
   txtemail.Text = Empty
   txtcari.Text = Empty
   End Sub
   

   

   Klik gambar untuk memperbesar
   
   

7. Sekarang baru coba jalankan Project, klik icon play pada toolbar diatas atau bisa dengan pencet tombol F5.

   

   Klik gambar untuk memperbesar

8. Seperti ini kira-kira penampakannya jika koding tidak ada yang error.

   

   Klik gambar untuk memperbesar

Menulis Koding Tambah, Hapus, Edit, Dan Cari

Tarik nafas dalam-dalam, kosongkan pikiran, fokus dan konsentrasi kita akan menulis koding yang sangat penting, pada tahap ini kesalahan kecil saja bisa membuat aplikasi tidak berjalan dengan semestinya #lebay.

Santai aja gan tinggal ikutin langkah-langkahnya dibawah ini.

Script Tambah

Fungsi dari script tambah adalah menambah data baru pada database, koneksi harus terbuka terlebih dahulu dengan ditandai kemunculan data dalam database pada data grid (tabel), jika koneksi sudah terbuka atau terhubung kita dapat dengan leluasa memanipulasi data.

1. Pada code window, pilih combo box general cmdtambah, dan pilih click pada combo box declaration.

   

   Klik gambar untuk memperbesar

2. Tuliskan kode berikut.

   Private Sub cmdtambah_Click()
   baru = True
   mengunciteks False
   menguncitombol False
   txtnim.SetFocus
   End Sub

   Hampir lupa, tulis kode ini juga gan hehe

   Public baru As Boolean
   Dim mahasiswa As New ADODB.Recordset
   Dim numval As String
   Dim textval As String
   

   

   Klik gambar untuk memperbesar

   

   Klik gambar untuk memperbesar

3. Pada code window, pilih combo box general cmdsimpan, dan pilih click pada combo box declaration.

   

   Klik gambar untuk memperbesar

4. Tuliskan kode berikut.

   Private Sub cmdsimpan_Click()
   On Error GoTo error
   
   If txtnim.Text = Empty Or _
   txtnama.Text = Empty Or _
   txtttl.Text = Empty Or _
   cmbjurusan.Text = "" Or _
   txtalamat.Text = Empty Or _
   txtnotelp.Text = Empty Or _
   txtemail.Text = Empty Then
   MsgBox "Informasi belum lengkap !", vbExclamation, "Perhatian"
   txtnim.SetFocus
   Else
   
   Dim cek As ADODB.Recordset
   Set cek = New ADODB.Recordset
   cek.Open "select * from mahasiswa where nim='" & txtnim.Text & "'", Conn
   If Not cek.EOF And baru Then
       MsgBox "NIM " & txtnim.Text & " sudah ada, silahkan ubah dengan NIM yang lain ", vbExclamation, "Perhatian"
       txtnim.SetFocus: SendKeys "{HOME}+{END}"
   Else
   
   If Not IsNumeric(txtnim.Text) Then
       MsgBox "NIM berupa angka bukan huruf, saya ngasih tau aja", vbInformation, "Perhatian"
       txtnim.SetFocus
       txtnim.Text = ""
   Else
   
   If Not IsNumeric(txtnotelp.Text) Then
       MsgBox "Nomor telepon atau Nomer Handphone menggunakan nomor, gk ada nomor pake huruf", vbInformation, "Perhatian"
       txtnotelp.SetFocus
       txtnotelp.Text = ""
   Else
   
   With adomahasiswa.Recordset
   If baru Then .AddNew
   !nim = txtnim.Text
   !nama = txtnama.Text
   !ttl = txtttl.Text
   !jurusan = cmbjurusan.Text
   !alamat = txtalamat.Text
   !notelp = txtnotelp.Text
   !email = txtemail.Text
   
   .Update
   
   MsgBox "Data berhasil disimpan !", vbInformation, "Informasi"
   mengunciteks True
   menguncitombol True
   mengosongkanteks
   End With
   End If
   End If
   End If
   End If
   Exit Sub
   
   error:
       MsgBox "Terdapat kesalahan !" & Err.Description, vbCritical, "Perhatian"
   End Sub
   

   

   

   Klik gambar untuk memperbesar

5. Jalankan project dengan klik tombol play(start), klik tombol tambah maka tombol simpan dan batal akan aktif sementara tombol yang lain terkunci, inilah fungsi dari kunci tombol.

   

   Klik tombol start atau bisa dengan menekan tombol F5

   

   Klik tombol tambah

   

   Tombol simpan dan batal aktif

6. Isi data sesuka hati kalian, tapi perlu diingat bahwa kolom nim dan nomer telepon hanya bisa diisi dengan angka(numeric), silahkan coba-coba isi pake huruf atau dengan angka dan huruf, aplikasi akan menolak dengan menampilkan message box seperti ini.

   

   Klik gambar untuk memperbesar
7. Data harus diisi dengan lengkap, jika salah satu kolom kosong maka aplikasi akan menampilkan message box seperti berikut.

   

   Klik gambar untuk memperbesar
8. Jika semua kolom sudah terisi dengan data yang tepat maka aplikasi akan menampilkan message box seperti berikut.

   

   Klik gambar untuk memperbesar

9. Data akan tersimpan dan ditampilkan pada data grid tabel.

   

   Klik gambar untuk memperbesar

Banyak aturannya yaa gan haha, untuk menjadi programmer professional kita harus memperhatikan detail sekecil apapun agar aplikasi atau sistem yang kita buat mempunyai aturan main sendiri, dan diharapkan kesalahan aplikasi (bug) akan diminimalisir dengan kinerja sistem yang terstruktur.

Script Hapus

Setelah fungsi tambah data kita berikan selanjutnya kita akan menghapus data yang sudah kita tambahkan tadi dari dalam database, fungsi hapus ini tidak serumit simpan kok gan, yang terpenting koneksi ke database sudah terbuka dan kodingnya benar.Ikuti langkah-langkah dibawah ini:

1. Plih cmdhapus pada combo box general, dan pilih click pada combo box declarations.

   

   Klik gambar untuk memperbesar

2. Tuliskan kode berikut.

   Private Sub cmdhapus_Click()
   On Error GoTo error
   Dim konfirmasi
   konfirmasi = MsgBox("Anda yakin ingin menghapus data ini ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")
   If konfirmasi = vbYes Then
   konfirmasi = MsgBox("Yakin nihh ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")
   If konfirmasi = vbYes Then
   adomahasiswa.Recordset.Delete
   adomahasiswa.Recordset.MoveLast
   MsgBox "Data berhasil dihapus !", vbInformation, "Informasi"
   End If
   End If
   Exit Sub
   
   error:
       MsgBox "Terdapat Kesalahan !" & Err.Description, vbCritical, "Perhatian"
   End Sub

   

   Klik gambar untuk memperbesar

3. Jalankan program seperti biasa (pencet F5 aja biar cepet wkwk).
4. Klik data yang tadi kita buat, atau data yang mana aja juga boleh, data yang terpilih ditandai dengan panah segitiganya doang tapi warna hitam.

   

   Klik gambar untuk memperbesar

5. Lalu klik tombol hapus maka akan muncul message box seperti ini, klik yes.

   

   Klik gambar untuk memperbesar

6. Tanpa kita sadari data yang kita pilih tadi sudah menghilang, wow magic(magik).

   

   Klik gambar untuk memperbesar

tips: usahakan untuk mencadangkan(backup) secara berkala untuk menghindari kesalahan data terhapus atau kerusakan sitem yang menyebabkan hilangnya data.

Script Sunting

Edit atau sunting berfungsi untuk memanipulasi data atau sering juga disebut update data, dalam aplikasi ini fungsi sunting digunakan untuk merubah data yang sudah tersimpan sebelumnya dalam database. Ikuti langkah-langkah dibawah ini:

1. Pilih cmdsunting pada combo box general dan click pada combo box declarations.

   

   Klik gambar untuk memperbesar

2. Tuliskan kode berikut.

   Private Sub cmdsunting_Click()
   On Error GoTo error
   mengunciteks False
   menguncitombol False
   
   With adomahasiswa.Recordset
   txtnim.Text = !nim
   txtnama.Text = !nama
   txtttl.Text = !ttl
   cmbjurusan = !jurusan
   txtalamat = !alamat
   txtnotelp = !notelp
   txtemail = !email
   
   End With
   txtnim.SetFocus
   
   baru = False
   Exit Sub
   
   error:
       MsgBox "Terdapat kesalahan !" & Err.Description, vbCritical, "Perhatian"
   End Sub

   

   Klik gambar untuk memperbesar

3. Setelah kode ditulis lalu jalankan aplikasi, pencet F5.
4. Pilih data yang akan disunting.

   

   Klik gambar untuk memperbesar
5. Data yang terpilih ditandai dengan kepala panah hitam.
6. Klik tombol sunting.

   

   Klik gambar untuk memperbesar

7. Secara otomatis data akan ditampilkan pada text box.

   

   Klik gambar untuk memperbesar

8. Ubah data sesuka hati lalu klik simpan.

   

   Klik gambar untuk memperbesar

9. Script simpan akan berjalan seperti pada script tambah data baru.
10. Jika berhasil data yang sudah disunting akan tersimpan dan ditampilkan pada data grid tabel.

    

    Klik gambar untuk memperbesar

Script Hapus

Sampailah kita pada penghujung koding, terakhir kita akan menuliskan script untuk fungsi hapus, konsepnya masih sama seperti fungsi sunting tapi berbeda pada akhir eksekusi.

1. Pilih cmdhapus pada combo box general dan pilik click pada combo box declarations.

   

   Klik gambar untuk memperbesar

2. Tuliskan kode berikut.

   Private Sub cmdhapus_Click()
   On Error GoTo error
   Dim konfirmasi
   konfirmasi = MsgBox("Anda yakin ingin menghapus data ini ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")
   If konfirmasi = vbYes Then
   konfirmasi = MsgBox("Yakin nihh ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")
   If konfirmasi = vbYes Then
   adomahasiswa.Recordset.Delete
   adomahasiswa.Recordset.MoveLast
   MsgBox "Data berhasil dihapus !", vbInformation, "Informasi"
   End If
   End If
   Exit Sub
   
   error:
       MsgBox "Terdapat Kesalahan !" & Err.Description, vbCritical, "Perhatian"
   End Sub

   

   Klik gambar untuk memperbesar

3. Jalankan project dengan klik F5 pada keyboard.
4. Pilih data, data yang terpilih akan ditandai dengan kepala panah berwarna hitam.
5. Jika data sudah terpilih lalu klik tombol hapus.

   

   Klik gambar untuk memperbesar

6. Project akan menampilkan message box seperti dibawah ini.

   

   Klik gambar untuk memperbesar

7. Klik yes pada message box, jika project tidak mengalami error data yang terpilih akan hilang dari data grid tabel yang berarti juga sudah hilang dari database.

   

   Klik gambar untuk memperbesar

Script Batal dan Keluar

Hampir kelupaan gan hehe, langsung saja ikuti langkah-langkah berikut.

1. Seperti biasa pilih cmdbatal pada combo box general dan click pada combo box declarations.

   

   Klik gambar untuk memperbesar

2. Tuliskan kode berikut untuk tombol batal.

   Private Sub cmdbatal_Click()
   mengunciteks True
   menguncitombol True
   adomahasiswa.Recordset.Cancel
   mengosongkanteks
   End Sub

   

   Klik gambar untuk memperbesar

3. Jalankan project dengan menekan tombol F5.
4. Klik tombol tambah lalu isikan semua textbox.

   

   Klik gambar untuk memperbesar

5. Klik tombol batal, jika berhasil semua isi pada textbox akan menghilang.

   

   Klik gambar untuk memperbesar

6. Untuk script keluar pilih cmdkeluar pada general, dan click pada declarations.
7. Tuliskan kode berikut.

   

   Klik gambar untuk memperbesar

8. Jalankan project dengan menekan tombol F5 lalu klik batal secara otomatis project akan tertutup.

Membuat, Memilih, dan Mengatur Database MySql Dalam ADODC

Agan semua pasti sudah tidak asing lagi dengan MySql, sistem manajemen basis data yang satu ini lebih disukai karena tersedia gratis (open source) dibawah lisensi GNU General Public License.

Kali ini ane pake XAMPP sebagai tools yang mendukung banyak sistem operasi, yang merupakan kompilasi dari beberapa program, yang mempunyai fungsi masing-masing, terdiri atas Apache HTTP Server, MySql database, bahasa penerjemah PHP dan Perl.

Klik disini untuk download xampp gratis, pilih yang windows yaa.

Alhamdulillah XAMPP sudah terpasang, pilih XAMPP control panel berikut tampilannya.

Klik gambar untuk memperbesar

Klik start Apache dan MySql, jika sukses akan muncul tulisan running.

Klik gambar untuk memperbesar

Buka browser kalian, ane pake chrome, tulis localhost/phpmyadmin/ hingga muncul tampilan sebagai berikut. Kalau agan liat digambar alamatnya beda, ane ubah port 8080 alamatnya berubah jadi localhost:8080/phpmyadmin soalnya bentrok dengan apache server yang di Visual Studio hehe.

Klik gambar untuk memperbesar

Buat database bernama databasemhs lalu klik create.

Klik gambar untuk memperbesar

Berikut tampilan jika database berhasil dibuat

Klik gambar untuk memperbesar

Buat tabel baru bernama mahasiswa dengan jumlah field 7, isi mahasiswa pada kolom name dan 7 pada kolom number of fileds lalu klik Go.

Klik gambar untuk memperbesar

Isi semua field seperti dibawah ini lalu klik Save.

Klik gambar untuk memperbesar

Berikut tampilan jika tabel berhasil dibuat

Klik gambar untuk memperbesar

Tambah data pada tabel mahasiswa, klik insert hingga muncul tampilan seperti dibawah ini, isikan data pada kolom value sesuka hati kalian lalu klik Go.

Klik gambar untuk memperbesar

Berikut tampilan jika data berhasil ditambahkan.

Klik gambar untuk memperbesar

Klik tab Brwose untuk melihat data yang sudah kita tambahkan.

Klik gambar untuk memperbesar

Menampilkan Data Pada Database MySql Ke Aplikasi VB 6.0

Kembali ke tahap yang membutuhkan sedikit ketelitian, buka VB 6.0,ane buat project baru, jika agan ingin memakai project sebelumnya sah sah saja hehe. Ikuti langkah-langkah sebagai berikut. (langkah berikut akan sedikit lebih panjang, dimohon untuk lebih sabar.

1. Seperti biasa klik kanan pada adodc lalu pilih adodoc properties.

   

   Klik gambar untuk memperbesar

2. Pilih use connection string, klik build.

   

   Klik gambar untuk memperbesar

3. Pada Window Data Link Properties pilih Microsoft OLE DB Provider for ODBC Drivers, lalu klik next.

   

   Klik gambar untuk memperbesar

4. Pada Window Data Link Properties, Tab Connection, pilih use connection string lalu klik build.

   

   Klik gambar untuk memperbesar

5. Pada Window Select Data Source, tab Machine Data Source, klik new.

   

   Klik gambar untuk memperbesar

6. Pada window Create New Data Source pilih User Data Source.

   

   Klik gambar untuk memperbesar

7. Pilih dan cari MySQL ODBC 5.1 Driver(Mungkin versi driver akan berbeda tapi fungsinya sama), klik next.

   

   Klik gambar untuk memperbesar
8. Klik finish aja hehe.

   

   Klik gambar untuk memperbesar

9. Isi kolom berikut, samain aja biar gak error yaa gan hehe.

   

   Klik gambar untuk memperbesar

10. Lalu test, jika berhasil akan muncul message box seperti dibawah ini.

    

    Klik gambar untuk memperbesar

11. Kalau sudah sukses gak usah kerja lagi, ehh maksudnya kalau sudah sukses klik Ok aja gan wkwk.

    

    Klik gambar untuk memperbesar
12. Pada window Select Data Source akan muncul nama data source "mahasiswa", pilih lalu klik OK, OK, OK, OK. (Ada empat OK soalnya).
13. Klik kanan pada module, view code, lalu tuliskan kode berikut. Jangan lupa copy paste connection string pada ADODC lalu aplikasikan pada script Conn.Open "SCRIPT ADODC AGAN"

    Public Conn As New ADODB.Connection
    Public rsmahasiswa As New ADODB.Recordset
    
    Public Sub sambung_db()
    On Error GoTo konekerror
    If Conn.State = 1 Then Conn.Close
    
    Conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=localhost"
    
    rsmahasiswa.Open "select * from mahasiswa", Conn, adOpenDynamic, adLockOptimistic
    
    Exit Sub
    
    konekerror:
        MsgBox "Terdapat Kesalahan ! " & Err.Description, vbCritical, "Peringatan"
    End Sub
    
    Public Sub putus_db()
    rsmahasiswa.Close
    
    Conn.Close
    End Sub
    

    

    Klik gambar untuk memperbesar

14. Klik kanan pada Form1, view code, lalu tuliskan kode berikut.

    Dim con As ADODB.Connection
    Dim rsmahasiswa As ADODB.Recordset
    
    Private Sub Form_Load()
    sambung_db
    adomahasiswa.ConnectionString = Conn.ConnectionString
    adomahasiswa.RecordSource = "select * from mahasiswa"
    adomahasiswa.Refresh
    Set tabel.DataSource = adomahasiswa
    
    tabel.Columns(0).Width = 1000
    tabel.Columns(5).Width = 700
    End Sub
    

    

    Klik gambar untuk memperbesar

Untuk fungsi tambah sunting hapus simpan batal menggunakan script yang sama seperti pada project yang menggunakan database Ms Access

Tekan tombol F5 untuk menjalankan project, berikut tampilannya jika tidak terdapat error, data dalam database akan ditampilkan seperti dalam project sebelumnya

Mengubah Project Ke Format .exe(Executable)

Project yang sudah kita buat diatas dapat kita build kedalam bentuk .exe, sehingga dapat dijalankan tanpa harus membuka visual basic 6.0. Klik file > Make Project1.exe.

Klik gambar untuk memperbesar

Pilih lokasi tempat menyimpan aplikasi, beri nama baru juga boleh, lalu klik OK.

Klik gambar untuk memperbesar

Jika proses compile berhasil project yang kita buat akan tersimpan dan bisa kita buka seperti aplikasi pada umumnya.

Klik gambar untuk memperbesar

Terima kasih atas perhatian dan kunjungan agan agan semua, mohon maaf jika ada kesalahan kata dan kesalahan dalam postingan ini, namanya juga manusia biasa gan aku mahh apa atuh hehe, sampai bertemu di postingan yang lain, semoga postingan ini bermanfaat, yang ingin repost dipersilahkan tapi jangan lupa cantumkan sumbernya, keep it up and Wassalamualikum.

+Visual Basic 6.0 +MS Access Tutorials +MySQL +XAMPP 

Download Project

Klik Disini

Read More