error on adding record... Try/Catch

[Chris Thunell]

I am looping through a bunch of records in 1 database and putting them into
an ado.net datatable

I get a key violation when i try to add a record... so what i'm trying to do
if that happens, is skip that record and move on to the next record... I
haven't quite figured out the Try / Catch scenario. Here is my code:

Try
Me.DataSet11.tb lContact.Rows.A dd(myNewRow)

Catch ex As Exception

Me.DataSet11.tb lContact.Rows.R emove(myNewRow)

GoTo NextRecord

End Try

This code does not work. Any thoughts would be greatly appreciated!

Chris Thunell

ct******@pierce associates.com

[Crirus]

Well if the tryed call dont work the execution jump to catch... just let the
loop to run on next record, no need to control it from catch...I think

--
Ceers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"Chris Thunell" <ct******@pierc eassociates.com > wrote in message
news:Os******** *****@TK2MSFTNG P10.phx.gbl...

I am looping through a bunch of records in 1 database and putting them into an ado.net datatable

I get a key violation when i try to add a record... so what i'm trying to do if that happens, is skip that record and move on to the next record... I
haven't quite figured out the Try / Catch scenario. Here is my code:

Try
Me.DataSet11.tb lContact.Rows.A dd(myNewRow)

Catch ex As Exception

Me.DataSet11.tb lContact.Rows.R emove(myNewRow)

GoTo NextRecord

End Try

This code does not work. Any thoughts would be greatly appreciated!

Chris Thunell

ct******@pierce associates.com

[Fergus Cooney]

Hi Chris,

A couple of thoughts..

When you trap Exceptions, it's usually good to be as specific as possible.
The Catch code may try an recover from the wrong error,
NullReferenceEx ception, for example.

If an Exception occurs, the current operation usually hasn't been
completed, so is that Remove necessary there?

It might help if you show the full loop that you're talking about.

Regards,
Fergus

[Chris Thunell]

The problem is that there are 2 identical records that are trying to be
added... so on this error, i would like to just ignore the add of the second
record and cycle to the next.
Thanks for everyone's help!

Full Code:

Dim myNewRow As DataRow

Me.daContact.Fi ll(Me.DataSet11 .tblContact)

For Each objItem2 In colItems

myNewRow = Me.DataSet11.tb lContact.NewRow

'get the company name

If IsNothing(objIt em2.CompanyName ) Then

myNewRow("Compa ny") = ""

Else

myNewRow("Compa ny") = NullStrCheck(ob jItem2.CompanyN ame.ToString)

End If

'get the firstname

If IsNothing(objIt em2.FirstName) Then

myNewRow("First Name") = ""

Else

myNewRow("First Name") = NullStrCheck(ob jItem2.FirstNam e.ToString)

End If

'get the last name

If IsNothing(objIt em2.LastName) Then

myNewRow("LastN ame") = ""

Else

myNewRow("LastN ame") = NullStrCheck(ob jItem2.LastName .ToString)

End If

'get the phone number

If IsNothing(objIt em2.CompanyMain TelephoneNumber ) Then

myNewRow("Phone No") = ""

Else

myNewRow("Phone No") =
NullStrCheck(ob jItem2.CompanyM ainTelephoneNum ber.ToString)

End If

'get the faxno

If IsNothing(objIt em2.BusinessFax Number) Then

myNewRow("FaxNo ") = ""

Else

myNewRow("FaxNo ") = NullStrCheck(ob jItem2.Business FaxNumber.ToStr ing)

End If

'get the email

If IsNothing(objIt em2.Email1Addre ss) Then

myNewRow("Email Address") = ""

Else

myNewRow("Email Address") = NullStrCheck(ob jItem2.Email1Ad dress.ToString)

End If

'add record

Try

Me.DataSet11.tb lContact.Rows.A dd(myNewRow)

Catch ex As Exception

MessageBox.Show (Err.Number & " - " & Err.Description & " - " & Err.Source)

GoTo NextRecord

End Try

myCurrentRow = myCurrentRow + 1

System.Windows. Forms.Applicati on.DoEvents()

Me.lblImportSta tus.Text = "Importing Record " & myCurrentRow & " of " &
myCount & " records."

NextRecord:

Next

Me.lblImportSta tus.Text = "Saving Information into Program"

System.Windows. Forms.Applicati on.DoEvents()

'update the dataset

Me.daContact.Up date(Me.DataSet 11.tblContact)

"Fergus Cooney" <fi****@post.co m> wrote in message
news:u5******** ******@TK2MSFTN GP09.phx.gbl...

Hi Chris,

A couple of thoughts..

When you trap Exceptions, it's usually good to be as specific as possible. The Catch code may try an recover from the wrong error,
NullReferenceEx ception, for example.

If an Exception occurs, the current operation usually hasn't been
completed, so is that Remove necessary there?

It might help if you show the full loop that you're talking about.

Regards,
Fergus

[Fergus Cooney]

Hi Chris,

I've rearranged the code a bit and added a subroutine to tidy up all those
messy If Then Elses. I'm not sure I quite understand yet, though. - What
actually goes wrong? (But don't answer that until you've tried the code
below).

Because there's more code within the Try block, it's now more important
that you are specific about which Exception you are trapping. When it occurs,
it will tell you what Exception type it is. Use that name instead of just
Exception.

As a side-issue, can I ask what IsNothing and NullStrCheck do?

Regards,
Fergus

<code>
For Each objItem2 In colItems
myNewRow = Me.DataSet11.tb lContact.NewRow

SetField (myNewRow, "Company", objItem2.Compan yName)
SetField (myNewRow, "FirstName" , objItem2.FirstN ame)
SetField (myNewRow, "LastName", objItem2.LastNa me)
SetField (myNewRow, "PhoneNo",
objItem2.Compan yMainTelephoneN umber)
SetField (myNewRow, "FaxNo", objItem2.Busine ssFaxNumber)
SetField (myNewRow, "EmailAddre ss", objItem2.Email1 Address)

'add record
Try
Me.DataSet11.tb lContact.Rows.A dd(myNewRow)
myCurrentRow = myCurrentRow + 1
Me.lblImportSta tus.Text = "Importing Record " & myCurrentRow & _
" of " & myCount & " records."
Application.DoE vents()

Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
Next

Sub SetField (dr As DataRow, sFieldName As String, oValue As Object)
If oValue Is Nothing Then
dr (sFieldName) = ""
Else
dr (sFieldName) = NullStrCheck (oValue.ToStrin g)
End If
End Sub
</code>

[Greg]

The key violation will prevent the row from being added. ignore the
exception, move on.

I guess my question would be why do you have a key constraint when you know
there will be duplicates?
"Chris Thunell" <ct******@pierc eassociates.com > wrote in message
news:Os******** *****@TK2MSFTNG P10.phx.gbl...

I am looping through a bunch of records in 1 database and putting them into an ado.net datatable

I get a key violation when i try to add a record... so what i'm trying to do if that happens, is skip that record and move on to the next record... I
haven't quite figured out the Try / Catch scenario. Here is my code:

Try
Me.DataSet11.tb lContact.Rows.A dd(myNewRow)

Catch ex As Exception

Me.DataSet11.tb lContact.Rows.R emove(myNewRow)

GoTo NextRecord

End Try

This code does not work. Any thoughts would be greatly appreciated!

Chris Thunell

ct******@pierce associates.com