Cara Simpan Data Menggunakan Componen OptionButton Visual Basic 6.0

Oleh peistar

Thursday, 24 August 2017

Bagikan :

Tweet

Componen OptionButton biasanya digunakan untuk memilih data berdasarkan pilihan yang telah ditentukan. Dengan menggunakan Componen ini kita dapat lebih mudah untuk memilih data dengan cepat. Sebenarnya banyak Componen lain yang dapat kita gunakan untuk memilih data seperti, “ComboBox”,”CheckBox”, Dll,  akan tetapi pada kesempat kali ini saya akan memberikan tutorial bagaimana cara menyimpan data menggunakan Componen “OptionButton”.

Untuk menambah wawasan dan pengetahuan kami menyediakan Link yang menarik dibawah ini, selamat mencoba :

1. Coding Save, Edit, Delete, Cancel, Dan Exit Dengan Visual Basic 6.0
2. Cara Koneksikan Database Mysql Ke Visual Basic 6.0
3. Aplikasi Pengolahan Data Bengkel Motor Menggunakan Visual Basic 6.0
4. Aplikasi Penjualan Pada Counter Hp Dengan Visual Basic 6.0
5. Aplikasi Untuk Menghitung Gaji Pegawai Dengan Visual Basic 6.0

Langkah – langkah pengerjaan :

- Langkah Pertama : Disainlah tampilan form kira-kira seperti gambar dibawah ini.

- Langkah Kedua : Pada Button Simpan Saudara dapat memasukan “Coding Program” dibawah ini.

Coding Program Simpan menggunakan Componen OptionButton 

Set Rs = New ADODB.Recordset

Rs.Open "SELECT * FROM Pegawai where NIP = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

Rs.AddNew

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

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

Rs.Fields("Tgl_Lahir") = DTPicker1.Value

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

If Option1.Value = True Then

   Rs.Fields("Jenis_Kelamin") = "Pria"

ElseIf Option2.Value = True Then

   Rs.Fields("Jenis_Kelamin") = "Wanita"

End If

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

Rs.Update

tampil_data

MsgBox "Data Berhasil DiSimpan !!!", vbInformation, "Komentar"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

Catatan :

Untuk penggunaan Option Coding Program yang digunakan sebagai berikut :

If Option1.Value = True Then

   Rs.Fields("Jenis_Kelamin") = "Pria"

ElseIf Option2.Value = True Then

   Rs.Fields("Jenis_Kelamin") = "Wanita"

End If

Langkah – langkah diatas merupakan contoh yang dapat saya sampaikan kepada saudara, untuk lebih luasnya saudara dapat mengembangkannya sesuai dengan kebutuhan. Akhir  kata saya ucapkan terimakasih banyak atas kunjungan saudara, mohon maaf atas segala kekurangan salam kompak selalu untuk kita semua. Wasalammm..!!! 

Tag : Pemrograman Visual Basic 6.0