Showing posts with label Catch Duplicate Entry in Visual Basic 6 and Microsoft Access. Show all posts
Showing posts with label Catch Duplicate Entry in Visual Basic 6 and Microsoft Access. Show all posts

Tuesday, October 1, 2019

Catch Duplicate Entry in Visual Basic 6 and Microsoft Access

Here is a sample program that is being provided by my close friend, business partner and fellow software engineer Sir Larry Dave Emol. He created this program using Microsoft Visual Basic 6 and Microsoft Access to Catch Duplicate Entry in the database.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.
My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.


My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.


My personal website is http://www.jakerpomperada.com.




Sample Program Output


Program Listing


FORM CODES

Private Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
        msgbox.Caption = "? Please complete the data fields"
    Else
        Call SQLDB(Me.AdoCon, "SELECT * From tblinfo where FIRSTNAME like'" & Me.Text1.Text & "' and MIDDLENAME like'" & Me.Text2.Text & "' and LASTNAME like'" & Me.Text3.Text & "'")
        If Me.AdoCon.Recordset.RecordCount = 1 Then
        msgbox.Caption = "? Duplicate Entry" & " " & Me.Text1.Text & " " & Me.Text2.Text & " " & Me.Text3.Text & " " & Me.Tag
        Exit Sub
        End If
        
        Call SQLDB(Me.AdoCon, "Select * From tblInfo")
          With Me.AdoCon.Recordset
                  .AddNew
                  .Fields(1) = Text1.Text
                  .Fields(2) = Text2.Text
                  .Fields(3) = Text3.Text
                  .Fields(4) = Text4.Text
                 .Update
           End With
           Me.Text1.Text = ""
           Me.Text2.Text = ""
           Me.Text3.Text = ""
           Me.Text4.Text = ""
    End If
End Sub


Module Codes(Database Connection)

Option Explicit


Public Function AppDir() As String
    If Right$(App.Path, 1) = "\" Then
        AppDir = App.Path
    Else
        AppDir = App.Path & "\"
    End If
End Function


Public Sub SQLDB(adoObj As Adodc, AdoRec As String) 'for SQL Recordsource

    'Loads the database and provides the database password
    adoObj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppDir & "Tutorial.mdb;Persist Security Info=False;Jet OLEDB:Database Password = "
    
    'Sets the command type to Table
    adoObj.CommandType = adCmdText
    
    'Loads the source table of info
    adoObj.RecordSource = AdoRec

    'refreshes database status
     adoObj.Refresh
End Sub