Question

I have craeted code which reads the acc no, rtn, name and amt from text file and stores in recordset. After that i created sql that stores recordset data into sql server 2005 table.

The problem is In that accno column is primary key. but i have some duplicate accno in my text file. While adding recordset to database, if it finds duplicate accno it is stopping there and not inserting any rows after that duplicate column.

Now i what i want to do is if there is any duplicate column, i want to store that column into log file and skip that column and insert remaining columns into databse. I dont know how to do it. Can anybody help me. like how to check the duplicate column and skip that and insert remaining.

    ' Write records to Database

    frmDNELoad.lblStatus.Caption = "Loading data into database......"
    Dim lngRecCount As Long
    lngRecCount = 0
    rcdDNE.MoveFirst

     With cmdCommand
        .ActiveConnection = objConn
        .CommandText = "insert into t_DATA_DneFrc (RTN, AccountNbr, FirstName, MiddleName, LastName, Amount) values ('" & rcdDNE("RTN") & "', '" & rcdDNE("AccountNbr") & "', '" & rcdDNE("FirstName") & "', '" & rcdDNE("MiddleName") & "', '" & rcdDNE("LastName") & "', '" & rcdDNE("Amount") & "')"
        .CommandType = adCmdText
    End With

    Set rcddnefrc = New ADODB.Recordset
    With rcddnefrc
        .ActiveConnection = objConn
        .Source = "SELECT * FROM T_DATA_DNEFRC"
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Open
    End With

    Do Until rcdDNE.EOF
        lngRecCount = lngRecCount + 1
        frmDNELoad.lblStatus.Caption = "Adding record " & lngRecCount & " of " & rcdDNE.RecordCount & " to database."
        frmDNELoad.Refresh
        DoEvents
        Call CommitNew
        rcdDNE.MoveNext
    Loop
    frmDNELoad.lblStatus.Caption = "DNE Processing Complete."
    frmDNELoad.Refresh        
End Function

    Sub CommitNew()

'     Add records to DneFrc table
    With rcddnefrc
        .Requery
        .AddNew
        .Fields![RTN] = rcdDNE.Fields![RTN]
        .Fields![AccountNbr] = rcdDNE.Fields![AccountNbr]
        .Fields![FirstName] = rcdDNE.Fields![FirstName]
        .Fields![MiddleName] = rcdDNE.Fields![MiddleName]
        .Fields![LastName] = rcdDNE.Fields![LastName]
        .Fields![Amount] = rcdDNE.Fields![Amount]
        .Update
    End With

End Sub

Answer 1

My suggestion would be to add error handling to CommitNew to see if the row inserted would create a primary key violation, and if so then perform other handling.

Example:

Sub CommitNew()
  ''#Add records to DneFrc table 
  On Error GoTo CommitNew_Error
  With rcddnefrc
    .Requery
    .AddNew
    .Fields![RTN] = rcdDNE.Fields![RTN]
    .Fields![AccountNbr] = rcdDNE.Fields![AccountNbr]
    .Fields![FirstName] = rcdDNE.Fields![FirstName]
    .Fields![MiddleName] = rcdDNE.Fields![MiddleName]
    .Fields![LastName] = rcdDNE.Fields![LastName]
    .Fields![Amount] = rcdDNE.Fields![Amount]
    .Update
  End With
  Exit Sub   ''# If no error, exit routine.
CommitNew_Error:
  If Err.Number = -2147217873 Then
    ''# code here will only execute if the constraint violation occurs
    Call WriteDuplicateAccountToFile()
    Err.Clear()       ''# This clears the error, since you handled it
  Else
    ''# Do stuff with other errors.
    ''# If you're not sure, at least display what error its giving, like so
    MsgBox "The following error was encountered when new record was saved:" & _
      vbNewLine & CStr(Err.Number) & " - " & Err.Description & vbNewLine & _
      "New record not saved.", vbOkOnly + vbCritical, "Error"
  End If
End Sub