ASALAMUALAIKUM ^_^

Disini saya akan membuat tabel Siswa Menggunakan Adodc Dan DataGrid

^Sebelumnya Apasih   Adodc itu?

 * ADODC adalah komponen visual basic yang digunakan untuk mengkoneksikan antara form dengan data base,dengan contoh sebagai berikut (Cth:MS.Access).

^Sedangkan  DataGrid adalah?

* sedangkan DataGrid merupakan control dalam sebuah aplikasi yang sangat penting,dikarenakan dapat mempresentasikan data tablur dan mengeditnya secara mudah.

dan langsung aja ini adalah contoh pembuatan Tabel Siswa menggunakan DataGrid Dan Adodc 

Dengan Rumus di bawah ini

Private Sub tampil()
Me.Text1.Text = Me.Adodc1.Recordset!NIS
Me.Text2.Text = Me.Adodc1.Recordset!NAMA
Me.Combo1.Text = Me.Adodc1.Recordset!PROGRAM
End Sub

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then
tampil
End If
End Sub

Private Sub Command1_Click()
    Me.Adodc1.Recordset.AddNew
    Me.Adodc1.Recordset!NIS = Me.Text1.Text
    Me.Adodc1.Recordset!NAMA = Me.Text2.Text
    Me.Adodc1.Recordset!PROGRAM = Me.Combo1.Text
    Me.Adodc1.Recordset.Update
    MsgBox "DATA BERHASIL DISIMPAN", vbInformation, "INFO"
End Sub

Private Sub Command2_Click()
    Me.Text1.Text = ""
    Me.Text2.Text = ""
    Me.Combo1.Text = ""
    Me.Text1.SetFocus
End Sub

Private Sub Command3_Click()
    Load DataReport1
    DataReport1.Show
End Sub

Private Sub Command4_Click()
Me.Adodc1.Recordset!NIS = Me.Text1.Text
Me.Adodc1.Recordset!NAMA = Me.Text2.Text
Me.Adodc1.Recordset!PROGRAM = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "Data Berhasil Di Simpan", vbInformation, "info"
End Sub

Private Sub Command5_Click()
Me.Adodc1.Recordset.Delete
MsgBox "Data Berhasil Di Hapus", vbInformation, "info"
End Sub

Private Sub Form_Load()
    Me.Combo1.AddItem "Rekayasa Perangkat Lunak"
    Me.Combo1.AddItem "Teknik Komputer dan Jaringan"
    Me.Combo1.AddItem "Akuntansi"
    Me.Combo1.AddItem "Teknik Kendaraan Ringan"
End Sub

Ketika di jalankan Akan tampil seperti gambar dibawah ini

 Sekian Penjabaran mengenai Adodc,DataGrid Besesrta Contoh Programnya,,,
Wasalamualaikum WR.WB.