Save, Edit and Delete Example into Access Database Using VB6.0

——————————————————————- ‘ Instraction For Safe Project Load ‘ Components Add Your Project ‘ 1) Add Microsoft ADO Data Control 6.0 (OLEDB) ‘ 2) Add Microsoft Windows Commom Controls-2.6 Your Project ‘——————————————————————- Dim db As ADODB.Connection Dim rst As ADODB.Recordset Dim id As Integer Private Sub Form_Load() ‘Open Database Connection Set db = New ADODB.Connection db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\s4sajoy SampleCode\SampleDB.mdb;Persist Security Info=False” Set rst = New ADODB.Recordset rst.Open “select * from tblSample Order By SerialNo DESC”, db, adOpenStatic, adLockOptimistic, adCmdText If rst.RecordCount = 0 Then id = 1 Else id = rst(“SerialNo”) + 1 End If rst.Close lblID.Caption = id End Sub Private Sub cmdAdd_Click() If Trim(txtName.Text) = “” Then MsgBox “input name”, vbInformation Else Set rst = New ADODB.Recordset rst.Open “select * from tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText rst.AddNew rst(“SerialNo”) = CInt(lblID.Caption) rst(“Date”) = DTPicker1.Value rst(“Name”) = Trim(txtName.Text) rst.Update rst.Close MsgBox “One Person Added.” & Chr(13) & “Nmae : ” & Trim(txtName.Text), vbInformation id = id + 1 lblID.Caption = id DTPicker1.Value = Date txtName.Text = “” txtName.SetFocus End If End Sub Private Sub cmdUpdate_Click() If Trim(txtID.Text) = “” Then MsgBox “input id no” txtID.SetFocus Else Set rst = New ADODB.Recordset rst.Open “UPDATE tblSample SET tblSample.Date = #” & DTPicker1.Value & “#, tblSample.Name = ‘” & txtName.Text & “‘ WHERE tblSample.SerialNo=” & txtID.Text, db, adOpenStatic, adLockOptimistic, adCmdText MsgBox “One Row Updated” End If End Sub Private Sub cmdDelete_Click() If Trim(txtID.Text) = “” Then MsgBox “input id no” txtID.SetFocus Else: Set rst = New ADODB.Recordset rst.Open “Delete * From tblSample Where SerialNo=” & txtID.Text, db, adOpenStatic, adLockOptimistic, adCmdText MsgBox “Delete Successfull” End If End Sub