VB 6.0 - How to Delete Data in Database

In this tutorial VB 6.0, we will share about How to Delete Data in Database using Visual Basic 6.0 and Database using Microsoft Office Access (.mdb)

Please following below steps :

#Step1 : Create database and table
Please open Microsoft office Access to create Database and Table
Create Database : DBTM.mdb
Create Table : TBL_CUSTOMERS
Here for the design of TBL_CUSTOMERS

you can insert sample data to table : TBL_CUSTMERS

After that you can save to Folder,

#Step2 : Create Design Form in VB 6.0
Please open Visual Basic 6.0 in your computer, and then save in the same folder which you save database.
Create Form1 like below picture :

After that, please place below code in form1 :

Dim Conn As New ADODB.Connection
Dim RSCustomers As ADODB.Recordset
Sub OpenDB()
Set Conn = New ADODB.Connection
Set RSCustomers = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBTM.mdb"
End Sub

Private Sub Form_Activate()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Call OpenDB
Adodc1.ConnectionString = Conn
Adodc1.RecordSource = "TBL_CUSTOMERS"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call OpenDB
    RSCustomers.Open "Select * from TBL_CUSTOMERS where CustomerID = '" & DataGrid1.Columns(0) & "'", Conn
    If Not RSCustomers.EOF Then
        Text1 = RSCustomers!CustomerID
        Text2 = RSCustomers!CustomerName
        Text3 = RSCustomers!CustomerAddress
        Text4 = RSCustomers!CustomerPhone
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data not found!"
    End If
End Sub
Private Sub Command1_Click()
Call OpenDB
Dim DeleteData As String
    DeleteData = "Delete From TBL_CUSTOMERS where CustomerID='" & Text1 & "'"
    Conn.Execute DeleteData
    MsgBox "Deleted Data Success!", vbInformation, "Information"
    Form_Activate
End Sub
Private Sub Command2_Click()
End
End Sub

If you are success following step above, please run your project..
CLICK HERE to download Project tutorials above...

Tweet