Script Pembuatan Tabel Penyimpanan Data Base With VB

Pertama aktifkan Microsoft Windows Common Control 2.6, Microsoft DataGrid Control 6.0 (OLEDB), dan Microsoft ADO Data Control 6.0 (OLEDB) dari Project - Components lalu ceklis ketiganya dan tekan apply
Aktifkan juga Microsoft AktifX Data Object 2.8 dari Project - References lalu ceklis dan tekan ok
Selanjutnya Buat Object form seperti gambar di bawah ini

 Sesuaikan Caption dengan yang ada di script
Jangan lupa menyediakan file bertipe (' .mdb ') yang dibuat melalui microsoft accses, banyak nya query di sesuaikan sebanyak data yang mau di simpan. pada kali ini sebanyak 6 query yai tu NPM, Nama, Jenis Kelamin, Jenjang, Program Study, dan Semester
setelah selesai lalu ketikkan script di bawah ini




form1

Private Sub cmdBersih_Click()
Call Bersih

End Sub

Private Sub cmdCari_Click()
Cari.Open "select * from tbAkademik where NPM='" & xNpm & "'", KDB
If Not Cari.EOF Then
    xNama.Text = Cari!Nama
    xJk.Text = Cari!Jk
    xJenjang.Text = Cari!Jenjang
    xProdi.Text = Cari!Prodi
    xSem.Text = Cari!Semester
Else
    Dim psn
   psn = MsgBox("NPM Yang Anda MasukKan Salah", vbInformation, "Warning")
End If
Cari.Close

End Sub

Private Sub cmdHapus_Click()
Dim Del
Dim psn
psn = MsgBox("Apakah Anda Yakin Ingin Menghapus data Ini?", vbCritical + vbYesNo, "Attention")
If psn = vbYes Then
    Del = "delete from tbAkademik Where NPM='" & xNpm & "'"
    KDB.Execute Del
Else
    Exit Sub
End If
Call Form_Activate

End Sub

Private Sub cmdSimpan_Click()
Dim Spn
Spn = "Insert into tbAkademik values ('" & xNpm.Text & "','" & xNama.Text & "','" & xJk.Text & "','" & _
xJenjang.Text & "','" & xProdi.Text & "','" & xSem.Text & "')"
If NPM = xNpm.Text Then
    Dim psn
    psn = MsgBox("Data Sudah Ada", vbInformation, "Information")
End If
KDB.Execute Spn
Call Form_Activate
End Sub

Private Sub Command1_Click()
Dim psn
psn = MsgBox("apakah anda Yakin Ingin Meninggalkan Aplikasi Ini?", vbQuestion + vbYesNo, "Attention")
If psn = vbYes Then
    End
Else
    Exit Sub
End If

End Sub



Private Sub Form_Activate()
Call Bukadb
Adodc1.ConnectionString = KDB
Adodc1.RecordSource = "tbAkademik"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
With xJk
   .AddItem "Laki - Laki"
   .AddItem "Perempuan"
End With

With xJenjang
    .AddItem "Strata-I"
    .AddItem "Diploma-III"
    .AddItem "Diploma-I"
End With
Call Bersih
End Sub

Private Sub Upsem_Change()
xSem.Text = Upsem.Value
End Sub

Private Sub xJenjang_Click()
xProdi.Clear
If xJenjang.Text = "Strata-I" Then
    xProdi.AddItem "Teknik Informatika"
    xProdi.AddItem "Sistem Informasi"
Else
    xProdi.AddItem "Manajemen Informatika"
End If

End Sub
Sub Bersih()
xNpm.Text = ""
xNama.Text = ""
xJk.Text = ""
xJenjang.Text = ""
xProdi.Text = ""
xSem.Text = ""
End Sub

Pada Module1

Public KDB As New ADODB.Connection
Public Cari As New ADODB.Recordset

Public Sub Bukadb()
Set KDB = New ADODB.Connection
Set Cari = New ADODB.Recordset
KDB.Open "PROVIDER=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbMhs.mdb"
End Sub