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

Featured

‘——————————————————————-

‘ 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

Download [Sample Code]

Advertisements

Access Database Connecion and Add Edit Delete Using Vb6.0

‘First Create A Database Connection, Use A Module For DBConnection

Public db As ADODB.Connection

Public Sub DBConnection()

Set db = New ADODB.Connection

db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Persist Security Info=False”

‘    db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Jet OLEDB:Database Password=yourPassword;”

End Sub

‘ Code Developed By :

‘ Sanjoy Debnath. mail:s4sanjoy@gmail.com

‘——————————————————————-

‘ Instraction For Safe Project Load

‘ Add Microsoft ADO Data Control 6.0 (OLEDB) Components Your Project

‘——————————————————————-

Dim rst As ADODB.Recordset

Private Sub Form_Load()

‘Open Database Connection

Call DBConnection

End Sub

Private Sub cmdAdd_Click()

Set rst = New ADODB.Recordset

rst.Open “select * from tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

rst.AddNew

rst(“SerialNo”) = 1

rst(“Date”) = #6/25/2010#

rst(“Name”) = “Mr.ABC”

rst.Update

rst.Close

MsgBox “One Row Added”

End Sub

Private Sub cmdUpdate_Click()

Set rst = New ADODB.Recordset

rst.Open “UPDATE tblSample SET tblSample.SerialNo = 2, tblSample.[Date] = #6/28/2010#, tblSample.Name = ‘Mr. XYZ’ WHERE tblSample.SerialNo=” & 1, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “One Row Updated”

End Sub

Private Sub cmdDelete_Click()

‘Using Delete Condition

‘This Line Delete Selected Row

Set rst = New ADODB.Recordset

rst.Open “Delete * From tblSample Where SerialNo=” & 2, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “Delete Successfull”

‘This Line Delete All RecordFrom tblSample

‘rst.Open “Delete * From tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

End Sub

Download Sample Code