Mudah Belajar VB (Belajar VB, Coding dan VB6)

Mudah Belajar VB, Belajar Pemrograman, belajar vb6, bahasa pemrograman, belajar vb, dasar pemrograman, pemrograman, belajar coding, kursus programmer.

Belajar Coding Simpel Pada Form Input Data

Berikut ini adalah koding yang sangat simpel untuk form input data. Pada form ini menggunakan Data1 Recordset yang sangat mudah dalam pengaturannya. Sebagai contoh disini saya membuat form input data calon pengantin yang menggunakan kombinasi text box dan combo button.

Form Input Data

Untuk memasukkan koding Tambah pada form ini yaitu dengan cara klik dua kali Command Button Tambah. Kemudian masukkan koding berikut ini :

On Error GoTo a

Data1.Recordset.AddNew

Text1.SetFocus

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = True

Untuk memasukkan koding Simpan pada form ini yaitu dengan cara klik dua kali Command Button Simpan. Kemudian masukkan koding berikut ini :

On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True

Untuk memasukkan koding Edit pada form ini yaitu dengan cara klik dua kali Command Button Edit. Kemudian masukkan koding berikut ini :

On Error GoTo c
Data1.Recordset.Edit
c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

Untuk memasukkan koding Hapus pada form ini yaitu dengan cara klik dua kali Command Button Hapus. Kemudian masukkan koding berikut ini :

On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True

Untuk memasukkan koding Cari pada form ini yaitu dengan cara klik dua kali Command Button Cari. Kemudian masukkan koding berikut ini :

On Error Resume Next
Dim kode As String
kode = InputBox("Ketik Nomor Daftar Wanita")
Data1.Recordset.Index = "idxwanita"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Combo1.Text = Data1.Recordset.Fields(6)
Text7.Text = Data1.Recordset.Fields(7)
Text8.Text = Data1.Recordset.Fields(8)
Text9.Text = Data1.Recordset.Fields(9)
Text10.Text = Data1.Recordset.Fields(10)
Text11.Text = Data1.Recordset.Fields(11)
Text12.Text = Data1.Recordset.Fields(12)
Text13.Text = Data1.Recordset.Fields(13)
Text14.Text = Data1.Recordset.Fields(14)
Text15.Text = Data1.Recordset.Fields(15)
Text16.Text = Data1.Recordset.Fields(16)
response = MsgBox("Data tidak ditemukan!", 0, "Pencarian Nomor Daftar Wanita")
End If

Untuk memasukkan koding Keluar pada form ini yaitu dengan cara klik dua kali Command Button Keluar. Kemudian masukkan koding berikut ini :

Unload Me

Untuk koding yang digunakan menghubungkan database dan tabel atau yang sering disebut dengan koding form_load adalah sebagai berikut.

Private Sub form_load()

Data1.DatabaseName = App.Path & "/nikah.mdb"

Data1.RecordSource = "pengantinwanita"

Cmb1

End Sub

Sedangkan untuk koding Cmb1 atau combo1 yang digunakan untuk memilih input data agama adalah sebagai berikut :

Private Sub Cmb1()

Combo1.AddItem "Islam"

Combo1.AddItem "Kristen"

Combo1.AddItem "Hindu"

Combo1.AddItem "Budha"

Combo1.AddItem "Konghucu"

End Sub

Silahkan baca juga belajar vb, listing vb