troubleshooting Question

VB6 addNew

Avatar of JRockFL
JRockFLFlag for United States of America asked on
Visual Basic Classic
4 Comments2 Solutions681 ViewsLast Modified:
Is .addNew and .Update built in methods with vb6?
How do the work?


    Set rsSet = New ADODB.Recordset
   
    strSQL = "SELECT MAX(ID) " & _
             "FROM Table"
             
    With rsSet
        Call .open(strSQL, datDB, adOpenForwardOnly, adLockReadOnly)
       
        If Not .EOF Then
            If Not IsNull(.Fields(0).value) Then
                lngID = .Fields(0).value + 1
            End If
        End If
       
        .Close
       
        strSQL = "SELECT * " & _
                 "FROM Table" & _
                 "WHERE ID = " & lngID
                 
        Call .open(strSQL, datDB, adOpenDynamic, adLockPessimistic)
       
        If .EOF Then
            .addNew
            !LabelSelnValueSetID = lngID
            .Update
        End If
       
        .Close
    End With
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 2 Answers and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros