Mari Belajar Visual Basic

Jumat, 18 Januari 2013

Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0

Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0 | Gho Blog's - Melanjutkan latihan pemrograman Visual Basic 6.0 kita pada hari ini, kita akan mencoba membuat sebuah program menggunakan perintah Simpan, Edit dan Delete.

Latihan kali ini kita akan menggunkan Microsoft Office Access 2003 sebagai database. Saya menggunakan database yang pernah dibuat pada posting sebelumnya. Untuk lebih jelasnya silakan sobat lihat lagi posting saya yang berjudul Cara Membuat Database Dengan Microsoft Office Access 2003. Database inilah yang akan kita gunakan sebagai bahan latihan hari ini.

Untuk memulai latihan, silakan ikuti langkah-langkah berikut ini :

• Sekarang bukalah sebuah project baru di Visual Basic 6.0, gunakan VB Enterprise Edition Controls. Karena akan lebih lengkap tools-toolsnya dibanding menggunakan Standart EXE.

• Kemudian buatlah disain form seperti berikut ini. Atur settingan Enabled pada tombol Edit dan Delete menjadi False. Tujuannya agar tidak  terjadi human error.

• Buatlah sebuah modul koneksi database dengan cara klik menu Project ==> Add Module ==> Open.
• Dan masukkan script berikut di modul tersebut

Global conn As ADODB.Connection Global rsmhs As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\dbbelajar.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

• Kemudian kembali pada disain form. Kita akan memanggil fungsi dari module koneksi yang baru dibuat, caranya double klik form tersebut kemudian masukkan perintah dibawah ini, tepat antara Private Sub Form_Load() dengan End Sub.

koneksi

• Buatlah sebuah program untuk membersihkan form dan mengembalikan kondisi form dalam keaadaan awal. Caranya, letakkan script berikut ini di tempat kosong pada di program. Program ini saya beri nama "kosongform".

Private Sub kosongform() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text1.Enabled = True Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub

• Selanjutnya kita akan membuat tombol simpan. Duoble klik pada tombol simpan dan masukkan script berikut diantara Private Sub Command1_Click() dengan End Sub.

Dim X If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "SELECT * FROM tmhs", conn, , , adCmdText rsmhs.AddNew rsmhs.Fields(0) = Text1.Text rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosongform Else Exit Sub End If End If

• Sebelum kita membuat tombol Edit, kita harus membuat sebuah program pemanggilan data terlebih dahulu, gunanya agar tidak terjadi duplikasi pada primary key. Cara penggunaanya adalah, kita mengetikkan NIM yang ingin diinputkan pada Text1, kemudian tekan tombol Enter pada keybord. Bila NIM yang kita masukan tadi sudah didalam database, maka data lainnya seperti "Nama, Tmp/Tgl Lahir, Fakultas dsb" akan muncul berdasarkan NIM yang kita masukkan dan tombol Simpan akan di non aktifkan agar tidak terjadi duplikasi data yang disebabkan faktor human error.


• Cara membuat program tersebut yang pertama adalah, double klik pada Text1.Text. Setelah itu pilih metode KeyPress.

• Setelah itu masukkan script berikut diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dengan End Sub.

If KeyAscii = 13 Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "select * from tmhs", conn, , , adCmdText rsmhs.Filter = " nim= '" & Text1.Text & "'" If Not rsmhs.EOF Then Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Text1.Enabled = False Text2.Text = rsmhs.Fields(1) Text3.Text = rsmhs.Fields(2) Text4.Text = rsmhs.Fields(3) Text5.Text = rsmhs.Fields(4) Text6.Text = rsmhs.Fields(5) Text7.Text = rsmhs.Fields(6) End If End If

• Jika sudah, barulah kita buat tombol Editnya, caranya double klik pada tombol Edit dan masukkan script berikut diantara Private Sub Command2_Click() dengan End Sub.

Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosongform Text1.SetFocus Else Exit Sub End If

• Selanjutnya, kita buat tombol Delete, Caranya double klik pada tombol Delete dan masukkan script berikut diantara Private Sub Command3_Click()  dengan End Sub.

Dim Y Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo) If Y = vbYes Then rsmhs.Delete MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info" kosongform Text1.SetFocus Else Exit Sub End If

• Terakhir, kita buat tombol Exit, duoble klik pada tombol Exit dan masukkan script berikut diantara Private Sub Command4_Click() dengan End Sub.

Dim X X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title) If X = vbYes Then Unload Me Else Cancel = 1 End If

Untuk selanjutnya sobat bisa ikuti tutorial saya yang berjudul Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0 agar sobat bisa lebih memahami pembuatan program "Simpan, Edit dan Delete" dengan tambahan tools lainnya