Pembuatan DATABASE Sederhana menggunakan Adodc & DataGrid

MEMBUAT PROGRAM DATABASE MENGGUNAKAN Adodc & DataGrid

Untuk tampilan kita samakan dengan tampilan form database sederhana menggunakan Data & DBGrid, hanya saja kita ganti menggunakan Adodc & DataGrid.

Adapun langkah - langkah pembuatannya adalah sebagai berikut :

1. Buat form seperti gambar dibawah ini :

    
2. Untuk caption tambah,  ubah, hapus dan keluar agar seperti gambar kita ubah dengan cara :

 3. Pada Properties DataGrid kita setting seperti gambar dibawah ini kemudian klik kanan pilih Retrieve fields :

   4. Setting Properties pada Adodc1 dan klik kanan kemudian pilih ADODC Properties  seperti gambar berikut :

  5. Masukkan kodingan :
     
Private Sub form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc1.RecordSource = "Select *from Jurusan"
'Adodc1.Refresh
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc2.RecordSource = "Select *from Jurusan"
Adodc2.Refresh
End Sub


Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub normal()
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&Keluar"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(Text1.Text) & "'"
Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then
    If Command1.Caption = "&Simpan" Then
        MsgBox "Data sudah ada"
        Text1.SetFocus
Else
        Text2.Text = Adodc2.Recordset("Nama_Jurusan")
        Text2.SetFocus
    End If
Else
    If Command1.Caption = "&Simpan" Then
        Text2.SetFocus
    Else
        MsgBox "Data sudah ada"
        Text1.SetFocus
        End If
End If
End If
End Sub

Private Sub Command1_Click()

If Command1.Caption = "&Tambah" Then

Call bersih

Command1.Caption = "&Simpan"

Command2.Enabled = False

Command3.Enabled = False

Command4.Caption = "&Batal"

Else

Adodc1.Recordset.AddNew

Adodc1.Recordset("Kode_Jurusan") = Trim(Text1.Text)

Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)

Adodc1.Recordset.Update

'Adodc1.Refresh

DataGrid1.Refresh

'Adodc1.Refresh

DataGrid1.Refresh

Call bersih

Call normal

End If

End Sub

Private Sub Command2_Click()

If Command2.Caption = "&Ubah" Then

Call bersih

Command2.Caption = "&Simpan"

Command1.Enabled = False

Command3.Enabled = False

Command4.Caption = "&Batal"

Else

Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(kode_jurusan) & "'"

Adodc2.Refresh

Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)

Adodc1.Recordset.Update

‘Adodc1.Refresh

DataGrid1.Refresh

End If

End Sub

Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
Call bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"
Else
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(kode_jurusan) & "'"
Adodc2.Refresh
Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)
Adodc1.Recordset.Delete
'Adodc1.Refresh
DataGrid1.Refresh
End If
End Sub

Private Sub Command4_Click()
If Command4.Caption = "&Keluar" Then
Unload Me
Else
    Call bersih
    Call normal
End If
End Sub

~TAMPILAN SAAT RUNNING~

• Running " Tambah " ( Tambah >> Simpan, Ubah & Hapus >> tidak aktif, Keluar >> Batal )

•  Running " Ubah " ( Ubah >> Simpan, Tambah & Hapus >> tidak aktif, Keluar >> Batal )

• Running " Hapus " ( Hapus >> Simpan, Tambah & Ubah >> tidak aktif, Keluar >> Batal )

• Running " Batal " ( Kembali ke posisi normal yaitu Tambah, Ubah, Hapus, Keluar >> aktif semua )

         

• Running " Keluar " ( End program )

       

*** Yang harus diperhatikan ***
> Jika akan melakukan eksekusi Ubah maka letakkan posisi kursor pada record ( data ) yang akan diubah.
> Jika akan melakukan eksekusi Hapus maka letakkan posisi kursor pada record ( data ) yang akan dihapus.


OK temen - temen....Selamat Mencoba....Good Luck !!!