Dataset Designer problems

S

SAL

I'm curious if anyone else is having this problem. If I let the Dataset
designer generate update commands for me, I don't seem to be able to get
them to work without an exception getting thrown, (Update requires a valid
UpdateCommand), but if I execute the following code it does work. It seems
like a total waste of time to have to write the following code if the
dataset designer can generate the code:

Dim annexs As New SqlDataAdapter
Dim sql As String = "SELECT DateReceived, Name, EstimatedTaxImpacts, " & _
"EstimatedAssessedValue, GSReview, StatuteId, " & _
"StatuteRequirementsMet FROM Annexations " & _
"WHERE AnnexationId = " & annexationId.ToString()
annexs.SelectCommand = New SqlCommand(sql)
annexs.SelectCommand.CommandType = CommandType.Text
annexs.SelectCommand.Connection = Adapter.Connection

Dim ds As DataSet = New DataSet
annexs.UpdateCommand = New SqlCommand( _
"UPDATE Annexations SET DateReceived = @dateReceived, Name = @name,
EstimatedTaxImpacts = " & _
"@estimatedTaxImpacts, EstimatedAssessedValue = @estimatedAssessedValue,
" & _
"GSReview = @gsReview, StatuteId = @statuteId, StatuteRequirementsMet =
" & _
"@statuteRequirementsMet WHERE AnnexationId = " & annexationId,
Adapter.Connection)
annexs.UpdateCommand.Parameters.Add("@dateReceived", SqlDbType.DateTime)
annexs.UpdateCommand.Parameters.Add("@name", SqlDbType.VarChar, 25)
annexs.UpdateCommand.Parameters.Add("@estimatedTaxImpacts",
SqlDbType.Decimal)
annexs.UpdateCommand.Parameters.Add("@estimatedAssessedValue",
SqlDbType.Decimal)
annexs.UpdateCommand.Parameters.Add("@gsReview", SqlDbType.DateTime)
annexs.UpdateCommand.Parameters.Add("@statuteId", SqlDbType.Int)
annexs.UpdateCommand.Parameters.Add("@statuteRequirementsMet",
SqlDbType.Bit)
annexs.Fill(ds, "Annexations")
Dim annex As DataRow
If ds.Tables(0).Rows.Count > 0 Then
annex = ds.Tables(0).Rows(0)
Else
Return False
End If
If dateReceived.HasValue Then
annexs.UpdateCommand.Parameters("@dateReceived").Value =
dateReceived.Value
End If
With annex
annexs.UpdateCommand.Parameters("@name").Value = name
If Not estimatedTaxImpacts.HasValue Then
annexs.UpdateCommand.Parameters("@estimatedTaxImpacts").Value =
DBNull.Value
Else
annexs.UpdateCommand.Parameters("@estimatedTaxImpacts").Value =
estimatedTaxImpacts.Value
End If
If Not estimatedAssessedValue.HasValue Then
annexs.UpdateCommand.Parameters("@estimatedAssessedValue").Value =
DBNull.Value
Else
annexs.UpdateCommand.Parameters("@estimatedAssessedValue").Value =
estimatedAssessedValue.Value
End If
If gsReview.HasValue Then
annexs.UpdateCommand.Parameters("@gsReview").Value = gsReview.Value
Else
annexs.UpdateCommand.Parameters("@gsReview").Value = DBNull.Value
End If
annexs.UpdateCommand.Parameters("@statuteId").Value = statuteId.Value
annexs.UpdateCommand.Parameters("@statuteRequirementsMet").Value =
statuteRequirementsMet
End With
Dim affectedrows As Integer = annexs.Update(ds, "Annexations")
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,483
Members
44,903
Latest member
orderPeak8CBDGummies

Latest Threads

Top