Hello all,
I'am trying to update a modified Dataset back into the DB. I looked all over and surely the answer is out there but haven't yet to find it. When I run this I get zero result. Also, the proc is not being called at all when check in the profiler. Any help or thoght would be really appreciated.
Regards...
Here is the code:
Public Sub UpdateDB() ' //executing the stored proc Dim da As New SqlDataAdapter Dim cmd As New SqlCommand
cmd =
New SqlCommand("proc_UpdateUser", Me.DataConnection())cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(
"@DeliveredOn", SqlDbType.DateTime, 8, itemsDS.Tables(1).Columns("delivery_date").DateTimeMode) 'cmd.Parameters.Item("@DeliveredOn").Value = Now ' itemsDS.Tables(1).Rows.Item(2)cmd.Parameters.Add(
"@UserID", SqlDbType.Int, 4, itemsDS.Tables(1).Columns("user_id").ColumnName) ' cmd.Parameters.Item("@UserID").Value = itemsDS.Tables(1).Columns("")cmd.Parameters.Add(
"@ProdD", SqlDbType.Int, 4, itemsDS.Tables(1).Columns("prod_id").ColumnName) 'cmd.Parameters.Item("@ProdD").Value = itemsDS.Tables(1).Rows.Item(0)cmd.CommandTimeout = 30
' da = New SqlDataAdapter(cmd) ' da.SelectCommand = cmdda.UpdateCommand = cmd
Dim i As Integer Try If (itemsDS.HasChanges()) Then 'i = da.Fill(itemsDS) 'Dim d As DataRow 'For Each d In itemsDS.Tables(1).Rows'd.SetModified()
'Nexti = da.Update(itemsDS)
itemsDS.AcceptChanges()
'Dim dsTest As DataSet 'dsTest = itemsDS.GetChanges() 'i = da.Update(dsTest) 'dsTest.Tables(0).AcceptChanges()End If
i = i
Catch ex As Exception End Try End Sub
And here is the proc:
ALTER
proc [dbo].[proc_UpdateUser]@DeliveredOn
datetime,@UserID
int,@prodD
intas
update
delivered_dateset
delivered_on=@DeliveredOnwhere
user_id=@UserIDand
prod_id=@prodID