SAVE, EDIT AND DELETE USING VB6.0

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