Private conn As ADODB.Connection

Private oRs As New ADODB.Recordset


Kode pada Form Load

Private Sub Form_Load()

   Set conn = New ADODB.Connection

   conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Pegawai;Data Source=."

   s = "SELECT * FROM Absen"

   oRs.Open s, conn, adOpenKeyset, adLockOptimistic

End Sub

Kode pada Tombol Simpan

Private Sub cmdSimpan_Click()

  s = "INSERT INTO Absen VALUES('" & txtNIK.Text & "','" & txtNama.Text & "','" & txtSakit.Text & "','"

  s = s & txtIzin.Text & "','" & txtAbsen.Text & "')"

  conn.Execute s

End Sub

Kode pada Tombol Update

Private Sub cmdUpdate_Click()

  oRs.Fields("NIK") = txtNIK.Text

  oRs.Fields("Nama") = txtNama.Text

  oRs.Fields("Sakit") = txtSakit.Text

  oRs.Fields("Izin") = txtIzin.Text

  oRs.Fields("Absen") = txtAbsen.Text

  oRs.Update

End Sub

Kode pada Sub Procedure Baca Data

Private Sub BacaData()

  txtNIK.Text = oRs.Fields("NIK")

  txtNama.Text = oRs.Fields("Nama")

  txtSakit.Text = oRs.Fields("Sakit")

  txtIzin.Text = oRs.Fields("Izin")

  txtAbsen.Text = oRs.Fields("Absen")

End Sub

Kode pada Tombol Akhir [<<]

Private Sub cmdAwal_Click()

  oRs.MoveFirst

  BacaData 

End Sub

Kode pada Tombol Akhir [>>]

Private Sub cmdAkhir_Click()

  oRs.MoveLast

  BacaData

End Sub


Kode pada Tombol Lanjut  [>]

Private Sub cmdLanjut_Click()

  oRs.MoveNext

  If oRs.EOF Then oRs.MoveLast

  BacaData

End Sub

Kode pada Tombol Sebelumnya  [<]

Private Sub cmdSebelumnya_Click()

  oRs.MovePrevious

  If oRs.BOF Then oRs.MoveFirst

  BacaData

End Sub

Kode pada Tombol  Cari

Private Sub cmdCari_Click()

  snik = InputBox("NIK:")

  oRs.MoveFirst

  oRs.Find "NIK='" & snik & "'"

  BacaData

End Sub

Kode pada Tombol  Hapus

Private Sub cmdHapus_Click()

  oRs.Delete

End Sub

Kode pada Tombol  Tutup

Private Sub cmdTutup_Click()

 End 

End Sub

Kode pada Form Terminate

Private Sub Form_Terminate()

  conn.Close

  Set conn = Nothing

  oRs.Close

  Set oRs = Nothing

End Sub

Jika anda menginginkan penjelasan yang lebih lengkap, bisa baca E-Book saya yang berjudul TRIK DATABASE VISUAL BASIC 6.0 klik di sini

Download project tutorial ini klik di sini