Sunday, 6 March 2016

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

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

By 3 comments
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.

    Download Project

    3 comments:

    1. Zainul14 April 2017 at 06:12

      bingung gan bisa posting di sendirikan gak data grid yang pake ms access sendiri mysql sendiri biar mudah di pahami

      ReplyDelete
    2. Zaqi Armanovandi29 August 2019 at 09:00

      This comment has been removed by the author.

      ReplyDelete
    3. Zaqi Armanovandi29 August 2019 at 09:01

      gan minta script Cari database yang mysql

      ReplyDelete

    luvne.com ayeey.com cicicookies.com mbepp.com kumpulanrumusnya.comnya.com tipscantiknya.com