Solved

How do I use SqlDataAdapter.Update to work properly

Posted on 2009-04-10
5
194 Views
Last Modified: 2013-11-08
THis is my first attempt to use the Update method of SqlDataAdapter.    I've found several examples on the web but am unable to get my code to work.     The current version is, probably, a bad combination of examples.

No error is generated.  But the SQL Server table is never updated.
The code does retrieve the needed information.  The for loop works fine.   The SendNotification() function returns true.

Any thought on what might be wrong?
Thank you.
Dim sqlSelect As String = "SELECT [uid] " & _
        "      ,[epk] " & _
        "      ,[user_id] " & _
        "      ,[password] " & _
        "      ,[firstName] " & _
        "      ,[lastName] " & _
        "      ,[email] " & _
        "      ,[genDate] " & _
        "      ,[userOrigin] " & _
        "      ,[sendNotification] " & _
        "      ,[emailTemplate] " & _
        "      ,[snapShotGuid] " & _
        "      ,[NotificationSentOn] " & _
        "  FROM [bbprocessing].[dbo].[UrNewUsers] " & _
        "  WHERE [snapShotGuid] = @snapShotGuid" & _
        "       AND [sendNotification]=1 " & _
        "       AND [NotificationSentOn] < @NotificationSentOn"
 
        Dim sqlUpdate As String = "UPDATE [bbprocessing].[dbo].[UrNewUsers] " & _
            "   SET [sendNotification] = 0 " & _
            "      ,[NotificationSentOn] = @NotificationSentOn " & _
            " WHERE [uid] = @uid "
 
        Dim cn As New SqlConnection
        cn = clsMakeCn.newProc
        Dim da As New SqlDataAdapter(sqlSelect, cn)
 
        With da.SelectCommand.Parameters
            .Clear()
            .AddWithValue("@snapShotGuid", GuidToProcess)
            .AddWithValue("@NotificationSentOn", New DateTime(2000, 1, 1))
        End With
 
        Dim updateCmd As New SqlCommand(sqlUpdate, cn)
        da.UpdateCommand = updateCmd
        da.AcceptChangesDuringUpdate = True
 
        Dim oDataSet As New DataSet
        Try
            da.Fill(oDataSet, "Notifications")
        Catch ex As Exception
            Dim emsg As String = ex.Message
        End Try
 
        For Each dr As DataRow In oDataSet.Tables("Notifications").Rows
            If SendNotification(dr) Then
                Try
                    With da.UpdateCommand.Parameters
                        .Clear()
                        .AddWithValue("@NotificationSentOn", Now)
                        .AddWithValue("@SendNotification", 0)
                        .AddWithValue("@uid", dr("uid"))
                    End With
                    da.UpdateCommand.ExecuteNonQuery()
                Catch ex As Exception
                    Dim eMsg As String = ex.Message
                End Try
            Else
                Dim eMsg As String = "Unable to Send Notification"
            End If
        Next

Open in new window

0
Comment
Question by:RichardKline
  • 3
  • 2
5 Comments
 
LVL 15

Accepted Solution

by:
oobayly earned 500 total points
ID: 24115206
You shouldn't be calling ExecuteNonQuery on the UpdateCommand, what you need to call is the Update method on the DataAdapter.

You also haven't mapped any of the SqlParameters in the update command to the dataset:
' After declaring the Update command
' I've made some assumption about the datatypes used
Dim updateCmd As New SqlCommand(sqlUpdate, cn)
updateCmd.Parameters.Add("NotificationSentOn", DbType.DateTime).SourceColumn = "NotificationSentOn";
updateCmd.Parameters.Add("uid", DbType.Int).SourceColumn = "uid";
 
' Continue with your code
da.UpdateCommand = updateCmd
da.AcceptChangesDuringUpdate = True
 
'With da.UpdateCommand.Parameters
'  .Clear()
'  .AddWithValue("@NotificationSentOn", Now)
'  .AddWithValue("@SendNotification", 0)
'  .AddWithValue("@uid", dr("uid"))
'End With
'da.UpdateCommand.ExecuteNonQuery()
Dim changed As Integer = da.Update(oDataSet)

Open in new window

0
 
LVL 1

Author Comment

by:RichardKline
ID: 24115341
Thank you.

I had to make a couple of small changes to avoid errors  with UpdateCmd.Parameters add lines and Dim changed As Integer = da.Update(oDataSet, "Notifications")

So the code operates without error
    but there is still no change in the SQL table values.



        Dim cn As New SqlConnection
        cn = clsMakeCn.newProc
        Dim da As New SqlDataAdapter(sqlSelect, cn)
 
        With da.SelectCommand.Parameters
            .Clear()
            .AddWithValue("@snapShotGuid", GuidToProcess)
            .AddWithValue("@NotificationSentOn", New DateTime(2000, 1, 1))
        End With
 
        Dim updateCmd As New SqlCommand(sqlUpdate, cn)
        With updateCmd.Parameters
            .Add("NotificationSentOn", SqlDbType.DateTime).SourceColumn = "NotificationSentOn"
            .Add("uid", SqlDbType.Int).SourceColumn = "uid"
        End With
 
        da.UpdateCommand = updateCmd
        da.AcceptChangesDuringUpdate = True
 
        Dim oDataSet As New DataSet
        Try
            da.Fill(oDataSet, "Notifications")
        Catch ex As Exception
            Dim emsg As String = ex.Message
        End Try
 
        For Each dr As DataRow In oDataSet.Tables("Notifications").Rows
            If SendNotification(dr) Then
                Try
                    Dim changed As Integer = da.Update(oDataSet, "Notifications")
                Catch ex As Exception
                    Dim eMsg As String = ex.Message
                End Try
            Else
                Dim eMsg As String = "Unable to Send Notification"
            End If
        Next

Open in new window

0
 
LVL 15

Expert Comment

by:oobayly
ID: 24115394
Can you add a breakpoint to the da.Update line, and check the value of dr.RowState. The Update method will only execute the Update command on rows that have a RowState of Modified.
0
 
LVL 1

Author Comment

by:RichardKline
ID: 24115417
Found it.  Silly omission.  Neglected to se the new values before updating.
                dr("SendNotification") = 0
                dr("NotificationSentOn") = Now

The complete and working new code is below.
        Dim sqlSelect As String = "SELECT [uid] " & _
        "      ,[epk] " & _
        "      ,[user_id] " & _
        "      ,[password] " & _
        "      ,[firstName] " & _
        "      ,[lastName] " & _
        "      ,[email] " & _
        "      ,[genDate] " & _
        "      ,[userOrigin] " & _
        "      ,[sendNotification] " & _
        "      ,[emailTemplate] " & _
        "      ,[snapShotGuid] " & _
        "      ,[NotificationSentOn] " & _
        "  FROM [bbprocessing].[dbo].[UrNewUsers] " & _
        "  WHERE [snapShotGuid] = @snapShotGuid" & _
        "       AND [sendNotification]=1 " & _
        "       AND [NotificationSentOn] < @NotificationSentOn"
 
        Dim sqlUpdate As String = "UPDATE [bbprocessing].[dbo].[UrNewUsers] " & _
            "   SET [sendNotification] = 0 " & _
            "      ,[NotificationSentOn] = @NotificationSentOn " & _
            " WHERE [uid] = @uid "
 
        Dim cn As New SqlConnection
        cn = clsMakeCn.newProc
        Dim da As New SqlDataAdapter(sqlSelect, cn)
 
        With da.SelectCommand.Parameters
            .Clear()
            .AddWithValue("@snapShotGuid", GuidToProcess)
            .AddWithValue("@NotificationSentOn", New DateTime(2000, 1, 1))
        End With
 
        Dim updateCmd As New SqlCommand(sqlUpdate, cn)
        With updateCmd.Parameters
            .Clear()
            .Add("NotificationSentOn", SqlDbType.DateTime).SourceColumn = "NotificationSentOn"
            .Add("uid", SqlDbType.Int).SourceColumn = "uid"
        End With
 
        da.UpdateCommand = updateCmd
        da.AcceptChangesDuringUpdate = True
 
        Dim oDataSet As New DataSet
        Try
            da.Fill(oDataSet, "Notifications")
        Catch ex As Exception
            Dim emsg As String = ex.Message
        End Try
 
        For Each dr As DataRow In oDataSet.Tables("Notifications").Rows
            If SendNotification(dr) Then
                dr("SendNotification") = 0
                dr("NotificationSentOn") = Now
                Try
                    Dim changed As Integer = da.Update(oDataSet, "Notifications")
                Catch ex As Exception
                    Dim eMsg As String = ex.Message
                End Try
            Else
                Dim eMsg As String = "Unable to Send Notification"
            End If
        Next

Open in new window

0
 
LVL 1

Author Comment

by:RichardKline
ID: 24115568
Also neglected to say "Thanks!"   I appreciate the Excellent help.  
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
What's the most efficient way to load up a couple of large table in C#? 5 45
Capture logon name 13 73
Crystal reports vb.net 2 41
Modal Popup Extender control 1 20
Flash (http://en.wikipedia.org/wiki/Adobe_Flash) has evolved over the years to where it has become a masterful tool for displaying content screen.  It has excellent layout placement, UI precision as well as rendering capabilities. This, along with t…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question