CODING SAVE, EDIT, DELETE, CANCEL, DAN EXIT DENGAN VISUAL BASIC 6.0

Oleh peistar

Friday, 1 July 2016

Bagikan :

Tweet

Coding dapat diartikan sebagai text atau source code yang memiliki prosedur - prosedur tertentu menurut bahasa pemrograman yang digunakan. Didalam coding sendiri terdapat  aturan penulisan dan syntax. Pada kesempatan kali ini saya akan memberikan tutorial mengenai coding program yang sering digunakan pada saat ini mengenai pembuatan aplikasi. Untuk mempersingkat waktu kita langsung saja masuk pada pokok permasalahan yaitu : Coding Save, Edit, Delete, Cancel, dan Exit dengan menggunakan Bahasa Pemrograman Visual Basic 6.0.

Coding Save, Edit, Delete, Cancel, dan Exit :

- Pertama : Coding Save digunakan untuk menyimpan data kedalam Database.

Set Rs = New ADODB.Recordset

Rs.Open "select * from Nama_Tabel  where Nama_Field1 = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

Rs.AddNew

Rs.Fields("Nama_Field1 ") = Text1.Text

Rs.Fields("Nama_Field2 ") = Text2.Text

Rs.Fields("Nama_Field3 ") = Text3.Text

Rs.Fields("Nama_Field4 ") = Text4.Text

Rs.Fields("Nama_Field5 ") = Text5.Text

Rs.Update

MsgBox "Data Berhasil di Simpan !!!", vbInformation, "Pesan"

- Kedua : Coding Edit digunakan untuk merubah data ke dalam Database.

Set Rs = New ADODB.Recordset

Rs.Open "select * from Nama_Tabel  where Nama_Field1 = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then

Rs.Fields("Nama_Field1 ") = Text1.Text

Rs.Fields("Nama_Field2 ") = Text2.Text

Rs.Fields("Nama_Field3 ") = Text3.Text

Rs.Fields("Nama_Field4 ") = Text4.Text

Rs.Fields("Nama_Field5 ") = Text5.Text

Rs.Update

MsgBox "Data Berhasil  di Ubah !!!", vbInformation, "Pesan"

End If

- Ketiga : Coding Delete digunakan untk menghapus data dari Database.

Set Rs = New ADODB.Recordset

Rs.Open "delete from Nama_Tabel  where Nama_Field1 = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

MsgBox "Data Berhasil di Hapus !!!", vbInformation, "Pesan"

- Keempat : Coding Cancel digunakan untuk membatalkan atau membersihkan layar input pada aplikasi.

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

- Kelima : Coding Exit digunakan untuk mengakhiri atau keluar dari Form Aplikasi.

Unload Me

- Keenam : Coding Panggil Data digunakan untuk memanggil data.

Set Rs = New ADODB.Recordset

Rs.Open "Select * from Nama_Tabel  where Nama_Field1 = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then

Text1.Text = Rs.Fields("Nama_Field1")

Text2.Text = Rs.Fields("Nama_Field2")

Text3.Text = Rs.Fields("Nama_Field3")

Text4.Text = Rs.Fields("Nama_Field4")

Text5.Text = Rs.Fields("Nama_Field5")

Rs.Update

End If

Catatan : Untuk nama tabel dan Field saudara dapat menyesuaikan dengan nama tabel dan Field yang akan saudara gunakan.

Pastikan koneksi dari database sudah saudara buat, kalau belum silahkan lihat Link berikut ini :

CARAKONEKSIKAN DATABASE MySQL KE VISUAL BASIC 6.0 atau CARA MENGKONEKSIKAN  VISUAL BASIC 6.0 DENGAN DATABASE.

Selamat Mencoba.... !!!. Wasalammmm....

Tag : Pemrograman Visual Basic 6.0