Visual Basic ( ADD, EDIT, UPDATE, DELETE, SEARCH and NAVIGATION in VB 6.0 to MS ACCESS using ADO )

Salam Sahabat Blogger...
Sebagai programmer pemula pasti kita sering menemukan jalan buntu terhadap beberapa coding yang tidak terselesaikan dan menemukan jalan buntu ( Pingin Teriak ) WuuaaaH !!! Ga tahu harus mengadu kemana " Resiko Sebagai Programmer " tapi yakinlah sobat ketika didalam hidup kita selalu berfikiran positif dan jujur dan memiliki attitude baik dalam banyak hal itu akan membuat Logika kita semakin Jernih..
Ibarat sebuah pepatah " Banyak Jalan Menuju Roma " begitulah keluh kesah saya menikmati perkuliahan di bidang Informatika,sebuah coding dapat diselesaikan oleh 1 2 3 4 5 atau lebih logika sehinggah kadang kita memikirkan hal yg sulit tapi ternyata ada cara yang gampang belum lagi project yang gampang tapi di persulit " HeHeHe " tapi semua akan TEROBATI ketika Project terselesaikan " PUAS " Semangat3x...

Kali ini saya akan mengajak sahabat blogger mengenal lebih Visual Basic Programming menggunakan data base yang terhubung dalam proses Input and Output..
Skala kali ini lumayan cetar membahana lho sobat,dibutuhkan ketelitian dan konsep yang betul-betul matang disetiap coding...

Berikut Proses Yang Akan Kita Ciptakan :
-Add record 
-Delete record
-Search and Filter record
-Edit and Update record
-Navigate into record

NB : Kita akan menggunakan ADO yang terhubung pada Ms.Acces
NB : Persiapkan Sebuah Data Base Ms Access yang berisi sebuah keterangan data kepegawaian..

 

CODE

MODULE

Option Explicit

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Sub connect()
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
    rs.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Source = "SELECT * FROM MyTable"
    rs.Open
End Sub

Sub main()
connect
frmMain.Show
End Sub

FORM 1

Private Sub cmdDelete_Click()
On Error Resume Next
If MsgBox("Data is not recoverable!", vbExclamation + vbOKCancel, "Confirm Delete") = vbOK Then
rs.Delete
End If
End Sub

Private Sub cmdFirst_Click()
rs.MoveFirst
Call stat
End Sub

Private Sub cmdLast_Click()
rs.MoveLast
Call stat
End Sub

Private Sub cmdNext_Click()
If rs.EOF = True Then
    rs.MoveFirst
    Call stat
Else
    rs.MoveNext
    Call stat
End If
End Sub

Private Sub cmdPrevious_Click()
If rs.BOF = True Then
    rs.MoveLast
    Call stat
Else
    rs.MovePrevious
    Call stat
End If
End Sub

Private Sub Command1_Click()
rs.Filter = adFilterNone
rs.Requery
End Sub

Private Sub Command2_Click()
If MsgBox("Close Applect?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()

Set DataGrid1.DataSource = rs

End Sub

Sub stat()
StatusBar1.Panels(1).Text = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End Sub

Private Sub mnuAdd_Click()
frmAdd.Show
End Sub

Private Sub cmdSave_Click()
If txtid.Text = "" Or txtFn.Text = "" Or txtMi.Text = "" Or txtLn.Text = "" Then
    MsgBox "Some fields are still empty!", vbExclamation, "Input Error"
Else
rs.AddNew
rs("studId") = txtid.Text
rs("FirstName") = txtFn.Text
rs("MI") = txtMi.Text
rs("LastName") = txtLn.Text
rs.Update
MsgBox "Record Added Successfusly!", vbInformation, "Add Record"
Call clear
End If
End Sub

Sub clear()
txtid.Text = ""
txtFn.Text = ""
txtMi.Text = ""
txtLn.Text = ""
txtFn.SetFocus
End Sub

Private Sub txtSearch_Change()
If txtSearch.Text = "" Then
Call Form_Load
Me.Show
Else
rs.Filter = "FirstName LIKE '" & Me.txtSearch.Text & "*'"
Set DataGrid1.DataSource = rs
End If
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="http://baim-blogs.blogspot.com/2013/09/visual-basic-add-edit-update-delete.html">Visual Basic ( ADD, EDIT, UPDATE, DELETE, SEARCH and NAVIGATION in VB 6.0 to MS ACCESS using ADO )</a>