PENGOLAHAN DATA MAHASISWA KONEKSI ADODC DENGAN VB 6.0

-          Untuk membuat koneksi ADODC ada harus membuat database dan table terlebih dahulu : saya mengunakan Microsoft Office Access 2007 untuk membuat database

Berikut table yang saya buat dengan nama database dbdata dan nama tabel TbMHS

 

-          Sekarang membuat form data Mahasiswanya :

 

OBJEK	PROPERTIES	VALUE
FORM1	name	frmMHS
	Caption	Data Mahasiswa
	BorderStyle	3-fixed Dialod
	StartUpPosition	centerscreen
Label1	name	Label1
	caption	NIM
Label2	Name	Label2
	Caption	NAMA
Label3	Name	Label3
	Caption	AGAMA
Label4	name	Label4
	Caption	ALAMAT
Label5	Name	Label5
	Caption	JURUSAN
Label6	Name	Label6
	Caption	TEMPAT LAHIR
Label7	Name	Label7
	Caption	TANGGAL LAHIR
Textbox1	Name	TxtNim
Textbox2	name	txtNama
Textbox3	name	txtAlamat
Textbox4	name	txtTempat
Combobox1	Name	cmbAgama
Combobox2	Name	cmbJurusan
DTPicker1	Name	DTPicker1
DataGrid1	name	DataGrid1
	Datasouce	Adodc1
Adodc1	Name	Adodc1
Command1	name	cmdTambah
	caption	TAMBAH
Command2	name	CmdSimpan
	caption	SIMPAN
Command3	Name	cmdEdit
	caption	EDIT
Command4	Name	cmdHapus
	caption	HAPUS
Command5	Name	cmdcetal
	caption	CETAK
Command6	Name	cmdKeluar
	caption	KELUAR

 

CATATAN :

-          TOMBOL CETAK TIDAK BERFUNGSI

-          Yang belum pernah menggunakan Koneksi Adodc dapat dilihat disini

-          cara menambahkan DTPicket1 tekan Ctl+T >> centang Microsoft Windows Common Control-2 6.0 klick Apply dan Ok, maka pada ToolBox akan muncul DTPicker.

-          Cara menambahkan control ADODC : tkan Ctl+T >> centang Microsoft ADO Data Control 6.0 (OLEDB) >> klick Apply dan Ok.

-          Cara menambahkan control DataGrid1 : tekan Ctl+T >> centang Microsoft DataGrid Control 6.0 (OLEDB) >> klick Apply dan OK.

KODE PROGRAM :

Private Sub Aktif()

txtnim.Enabled = True

txtnama.Enabled = True

txtalamat.Enabled = True

txttempat.Enabled = True

cmbagama.Enabled = True

cmbJurusan.Enabled = True

DTPicker1.Enabled = True

End Sub

Private Sub NonAktif()

txtnim.Enabled = False

txtnama.Enabled = False

txtalamat.Enabled = False

txttempat.Enabled = False

cmbagama.Enabled = False

cmbJurusan.Enabled = False

DTPicker1.Enabled = False

End Sub

Private Sub TombolAwal()

cmdTambah.Enabled = True

cmdKeluar.Caption = "KELUAR"

cmdKeluar.Enabled = True

cmdEdit.Enabled = False

cmdHapus.Enabled = False

cmdCetak.Enabled = False

cmdSimpan.Enabled = False

End Sub

Private Sub Kosong()

txtnim.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

cmbagama.Text = ""

cmbJurusan.Text = ""

txttempat.Text = ""

End Sub

Private Sub cmbagama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   txtalamat.SetFocus

End If

End Sub

Private Sub cmbJurusan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   txttempat.SetFocus

End If

End Sub

Private Sub cmdEdit_Click()

cmdKeluar.Caption = "BATAL"

cmdSimpan.Caption = "UPDATE"

cmdEdit.Enabled = False

cmdSimpan.Enabled = True

cmdTambah.Enabled = False

cmdCetak.Enabled = False

Aktif

End Sub

Private Sub cmdHapus_Click()

cpesan = MsgBox("Nim " + txtnim.Text + "Akan dihapus Anda Yakin", vbYesNo + vbQuestion, "Hapus")

    If cpesan = vbYes Then

       Adodc1.Recordset.Delete

       Adodc1.Refresh

       Kosong

       TombolAwal

       NonAktif

    End If

    Adodc1.Refresh

End Sub

Private Sub cmdKeluar_Click()

If cmdKeluar.Caption = "KELUAR" Then

   End

Else

   Adodc1.Recordset.CancelUpdate

   NonAktif

   TombolAwal

   Kosong

End If

End Sub

Private Sub cmdSimpan_Click()

  ' With Me.Adodc1.Recordset

   Adodc1.Recordset!nim = txtnim.Text

   Adodc1.Recordset!nama = txtnama.Text

   Adodc1.Recordset!agama = cmbagama.Text

   Adodc1.Recordset!alamat = txtalamat.Text

   Adodc1.Recordset!tmpt_lahir = txttempat.Text

   Adodc1.Recordset!jurusan = cmbJurusan.Text

   Adodc1.Recordset!tgl_lahir = DTPicker1.Value

   Adodc1.Recordset.UpdateBatch

   TombolAwal

   NonAktif

     If Adodc1.Recordset.RecordCount > 0 Then

      cmdHapus.Enabled = True

      cmdEdit.Enabled = True

      cmdCetak.Enabled = True

    End If

  'End With

  End Sub

Private Sub cmdTambah_Click()

txtnim.SetFocus

TombolAwal

cmdSimpan.Enabled = True

cmdTambah.Enabled = False

cmdSimpan.Caption = "SIMPAN"

cmdKeluar.Caption = "BATAL"

Aktif

Kosong

End Sub

Private Sub DTPicker1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   cmdSimpan.SetFocus

End If

End Sub

Private Sub Form_Load()

TombolAwal

Kosong

NonAktif

data_combo

End Sub

Private Sub data_combo()

cmbagama.AddItem "Katolik"

cmbagama.AddItem "Islam"

cmbagama.AddItem "Hindu Kaharingan"

cmbagama.AddItem "Hindu Budha"

cmbagama.AddItem "Kristen Protestan"

'===================================

cmbJurusan.AddItem "Teknik Informatika"

cmbJurusan.AddItem "Manajemen Informatika"

cmbJurusan.AddItem "Sistem Informasi"

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   cmbJurusan.SetFocus

End If

End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cmbagama.SetFocus

End If

End Sub

Private Sub txtnim_KeyPress(KeyAscii As Integer)

Dim cari As String

If KeyAscii = 13 Then

   cari = txtnim.Text

   With Me.Adodc1.Recordset

   If Not .RecordCount = 0 Then

     .MoveFirst

     .Find "nim ='" & cari & "'", , adSearchForward, 1

     If Not .EOF Then

     txtnim.Text = !nim

     txtnama.Text = !nama

     cmbagama.Text = !agama

     txtalamat.Text = !alamat

     txttempat.Text = !tmpt_lahir

     cmbJurusan.Text = !jurusan

     DTPicker1.Value = !tgl_lahir

     NonAktif

     cmdSimpan.Enabled = False

     cmdHapus.Enabled = True

     cmdCetak.Enabled = True

     cmdEdit.Enabled = True

     'TombolAwal

   Else

    txtnama.SetFocus

    .MoveFirst

    TombolAwal

    cmdTambah.Enabled = False

    cmdSimpan.Enabled = True

   End If

   End If

   End With

   End If

End Sub

Private Sub txttempat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Adodc1.Recordset.AddNew

   

DTPicker1.SetFocus

End If

End Sub

*KEJUJURAN ADALAH KEBIJAKSANAAN YANG PALING BAIK *