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 !!!

PROGRAM DATABASE SEDERHANA MENGGUNAKAN VISUAL BASIC

LANGKAH - LANGKAH PEMBUATAN :
1. Buatlah tampilah form seperti gambar dibawah ini :

  2. Buka new project kemudian ikuti langkah sesuai gambar berikut : 

   
3. Buat Tabel Jurusan dengan cara buka VisData dan klik kanan pada Properties kemudian pilih New Table

    
 4. Pada Data1 setting untuk Properties Recordsource dan DatabaseName seperti gambar berikut :
         

5. Pada DBGrid1 setting properties DataSource kemudian klik kanan lalu pilih Retrieve Fields seperti gambar berikut :

    6. Masukkan coding
       

Private Sub cmd_tambah_Click()

If cmd_tambah.Caption = "tambah" Then

bersih

cmd_tambah.Caption = "Simpan"

cmd_ubah.Enabled = False

cmd_hapus.Enabled = False

cmd_keluar.Caption = "Batal"

Else

Data1.Recordset.AddNew

Data1.Recordset("Kode_Jurusan") = Trim(txt_kdjur.Text)

Data1.Recordset("Nama_Jurusan") = Trim(txt_nmjur.Text)

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

bersih

normal

End If

End Sub

Private Sub bersih()

txt_kdjur.SetFocus

txt_kdjur.Text = ""

txt_nmjur.Text = ""

End Sub

Private Sub normal()

cmd_tambah.Caption = "Tambah"

cmd_ubah.Caption = "Ubah"

cmd_hapus.Caption = "Hapus"

cmd_keluar.Caption = "keluar"

cmd_tambah.Enabled = True

cmd_ubah.Enabled = True

cmd_hapus.Enabled = True

End Sub

Private Sub Cmd_ubah_Click()

If Cmd_ubah.Caption = "Ubah" Then

bersih

Cmd_ubah.Caption = "Simpan"

Cmd_tambah.Enabled = False

Cmd_hapus.Enabled = False

Cmd_keluar.Caption = "Batal"

Else

Data2.RecordSource = "select* from jurusan where Kode_Jurusan='" & Trim(kdjur) & "'"

'data2.Refresh

Data1.Recordset.Edit

Data1.Recordset("Nama_Jurusan") = Trim(Txt_nmjur.Text)

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

bersih

normal

End If

Private Sub Cmd_hapus_Click()

If Cmd_hapus.Caption = "Hapus" Then

bersih

Cmd_tambah.Enabled = False

Cmd_ubah.Enabled = False

Cmd_hapus.Caption = "Simpan"

Cmd_keluar.Caption = "Batal"

Else

Data2.RecordSource = "select*from jurusan Kode_Jurusan='" & Trim(kdjur) & "'"

'data2.Refresh

Data1.Recordset.Delete

Data1.Refresh

DBGrid1.Refresh

bersih

normal

End If

End Sub

Private Sub cmd_keluar_Click()

If cmd_keluar.Caption = "keluar" Then

Unload Me

Else

bersih

normal

End If

End Sub

 ~TAMPILAN SAAT RUNNING~

1. Ketika Running "tambah"

    Maka Command tambah menjadi Simpan, ubah dan hapus tidak aktif dan keluar menjadi Batal

   

 2. Ketika Running "ubah"
     Maka Command ubah menjadi Simpan, tambah dan hapus tidak aktif, keluar menjadi Batal

    

 3. Ketika Running "hapus"

     Maka Command hapus menjadi Simpan, tambah dan ubah tidak aktif, keluar menjadi Batal

    

 4. Ketika Running "keluar"

     Maka akan kembali ke normal ( tambah, ubah, hapus dan keluar aktif semua ) dan jika tombol "keluar" diklik maka akan keluar dari running ( end program ).

    

 OK...temen - temen ^^^SELAMAT BER_EKSPERIMEN^^^

~Titin's Friends~