Deleting a record with ADO.Net using SqlCommand

I have been trying to delete a record with the following code, but not
receiving any results, not even an error message. I have verified that I am
passing a valid record index and that my connection is correct. I'm new to
ADO.Net and this is driving me crazy. Thanks in advance.

Private Sub RecDel(ByVal intRecIndex As Integer)
Try
Me.Cursor = Cursors.WaitCur sor
Dim myConnection As New SqlConnection(s trSqlConnection )
myConnection.Op en()
strSqlCommand = "SELECT * FROM USAD_10Digit WHERE RecIdx = " &
intRecIndex
Dim myCommand As New SqlCommand(strS qlCommand, myConnection)
myCommand.Execu teNonQuery()
myConnection.Cl ose()
Catch
If Err.Number <> 0 Then
MsgBox("Error:" & Str(Err.Number) & ControlChars.Cr Lf & _
Err.Description & ControlChars.Cr Lf & _
"Generated by " & Err.Source, _
MsgBoxStyle.Cri tical, Application.Pro ductName)
End If
Finally
Me.Cursor = Cursors.Default
End Try
End Sub

[Armin Zingler]

<be******@bells outh.net> schrieb

I have been trying to delete a record with the following code, but
not receiving any results, not even an error message. I have
verified that I am passing a valid record index and that my
connection is correct. I'm new to ADO.Net and this is driving me
crazy. Thanks in advance.

Private Sub RecDel(ByVal intRecIndex As Integer)
Try
Me.Cursor = Cursors.WaitCur sor
Dim myConnection As New SqlConnection(s trSqlConnection )
myConnection.Op en()
strSqlCommand = "SELECT * FROM USAD_10Digit WHERE RecIdx = "
&
intRecIndex
Dim myCommand As New SqlCommand(strS qlCommand,
myConnection)
myCommand.Execu teNonQuery()
myConnection.Cl ose()
Catch
If Err.Number <> 0 Then
MsgBox("Error:" & Str(Err.Number) & ControlChars.Cr Lf & _
Err.Description & ControlChars.Cr Lf & _
"Generated by " & Err.Source, _
MsgBoxStyle.Cri tical, Application.Pro ductName)
End If
Finally
Me.Cursor = Cursors.Default
End Try
End Sub

Where is the code to delete the record?

Instead of mixing Try/Catch and Err.*, you can catch the exception by writing

Catch ex As Exception

In the catch block, you can get exception information from 'ex'.

There is a group for ADO.NET questions (your question is related to ADO.NET
not to the VB.NET language): microsoft.publi c.dotnet.framew ork.adonet
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Dick Bellnier]

Got it. Thanks...
"Armin Zingler" <az*******@free net.de> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

<be******@bells outh.net> schrieb

I have been trying to delete a record with the following code, but
not receiving any results, not even an error message. I have
verified that I am passing a valid record index and that my
connection is correct. I'm new to ADO.Net and this is driving me
crazy. Thanks in advance.

Private Sub RecDel(ByVal intRecIndex As Integer)
Try
Me.Cursor = Cursors.WaitCur sor
Dim myConnection As New SqlConnection(s trSqlConnection )
myConnection.Op en()
strSqlCommand = "SELECT * FROM USAD_10Digit WHERE RecIdx = "
&
intRecIndex
Dim myCommand As New SqlCommand(strS qlCommand,
myConnection)
myCommand.Execu teNonQuery()
myConnection.Cl ose()
Catch
If Err.Number <> 0 Then
MsgBox("Error:" & Str(Err.Number) & ControlChars.Cr Lf & _
Err.Description & ControlChars.Cr Lf & _
"Generated by " & Err.Source, _
MsgBoxStyle.Cri tical, Application.Pro ductName)
End If
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Where is the code to delete the record?

Instead of mixing Try/Catch and Err.*, you can catch the exception by

writing
Catch ex As Exception

In the catch block, you can get exception information from 'ex'.

There is a group for ADO.NET questions (your question is related to ADO.NET not to the VB.NET language): microsoft.publi c.dotnet.framew ork.adonet
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html