Program Pendaftaran Anggota Dari VB6

Assalamualaikum Wr.Wb

Ok Sob kali ini saya akan mempostingkan sebuah program yan saya buat sendiri dari Visual Basic 6.0 Yang Pastiny Anda Psti Bisa membuatnya juga karna program ini sangat sederhan sekali  ok langsung aja

1)      Pertama kita buat databasenya dengan Microsoft Acces dengan nama hpk.mdb atau bisa yang lainya terserah anda lalu buat tabel di database dengan dan fieldnya yaitu:

Ø  No = Text

Ø  Nama  = Text

Ø  TTL = Text

Ø  Alamat = Text

Ø  Gender = Text

Ø  Sekolah = Text

Ø  Deskripsi = Memo

Setelah Itu lalu save dengan sxtensi .mdb pelajari disini cara menyimpan dengan extensi .mdb

2)      Desain Form 1 seperti ini

Tambahkan Adoc dan DataGrid Kedalam Componen

Caranya klik kanan pada General lalu pilih Componen Dan Cari Microsoft ADO  Data Control 0.6 (OLEDB) dan Microsoft DataGrid Control 0.6 (OLEDB)

2 Frame

11 Label

6 TextBox

1 ComboBox ( Terapkan Di Jenis Kelamin )

5 CommandButton

1 Datagrid

1 Adoc

1 Timer

3)      Dan Form 2 Seperti ini

1 Frame

1 Label

1 List

2 CommandButton

4)      Setelah  Semuanya Selesai Buat Module-nya Dan Tuliskan Kode ini :

Public koneksi As New ADODB.Connection

Public RSdata As ADODB.Recordset

Public Sub BukaDB()

Set koneksi = New ADODB.Connection

Set RSdata = New ADODB.Recordset

koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hpk.mdb"

End Sub

5)       Setelah itu Klik Kanan Pada Form1 dan pilih view code dan tuliskan kode ini :

Private Sub Command2_Click()

Adodc1.Recordset.Delete

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Combo1.Text = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_Click()

Form2.List1.Clear

End Sub

Private Sub DataGrid1_Click() 'kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox

Text1.Text = Adodc1.Recordset!no

Text2.Text = Adodc1.Recordset!Nama

Text3.Text = Adodc1.Recordset!TTL

Text4.Text = Adodc1.Recordset!Alamat

Text5.Text = Adodc1.Recordset!Sekolah

Text6.Text = Adodc1.Recordset!Deskripsi

Combo1.Text = Adodc1.Recordset!Gender

End Sub

Private Sub Form_Load()

Combo1.AddItem "Pria"

Combo1.AddItem "Wanita"

Timer1.Interval = 300

End Sub

Private Sub Command1_Click()

Form2.Show

Form2.List1.AddItem Text1.Text

Form2.List1.AddItem Text2.Text

Form2.List1.AddItem Text3.Text

Form2.List1.AddItem Text4.Text

Form2.List1.AddItem Option1

Form2.List1.AddItem Combo1.Text

Form2.List1.AddItem Text5.Text

Form2.List1.AddItem Text6.Text

End Sub

Private Sub Timer1_Timer()

Label10.Caption = Time

Label11.Caption = Date

End Sub

6)      Lakukan hal yang sama pada form2 dan tulisakn kode ini :

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Form1.Show

Form1.Adodc1.Recordset.AddNew 'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database

Form1.Adodc1.Recordset!no = Form1.Text1.Text

Form1.Adodc1.Recordset!Nama = Form1.Text2.Text

Form1.Adodc1.Recordset!TTL = Form1.Text3.Text

Form1.Adodc1.Recordset!Alamat = Form1.Text4.Text

Form1.Adodc1.Recordset!Gender = Form1.Combo1.Text

Form1.Adodc1.Recordset!Sekolah = Form1.Text5.Text

Form1.Adodc1.Recordset!Deskripsi = Form1.Text6.Text 'update = perintah untuk mengupdate data yang telah di tambahkan

Form1.Adodc1.Recordset.Update 'printah untuk merefresh grid ketika data sudah di tabahkan

Form1.DataGrid1.Refresh 'perintah untuk mengkosongkan textbox setelah data disimpan

Form1.Text1.Text = ""

Form1.Text2.Text = ""

Form1.Text3.Text = ""

Form1.Text4.Text = ""

Form1.Combo1.Text = ""

Form1.Text5.Text = ""

Form1.Text6.Text = ""

Unload Me

End Sub

7)      Setealh Selesai Tinggal Percobaan heheheh :

Sekian Mungkin Ilmu VB6 Kali ini Ilmu Selanjutnya akan lebih Menantang <<<

Jangan Lupa Berkunjung Terus.

Wassalamualaikum Wr.Wb.