Member Avatar for onilu

Can anyone help my code for updating is given an error that “no value given for one or more required parameter".
my code is below

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
a = period.Text
If period.Text >= 0 Then
period.Text = period.Text - 1

OleDbConnection1.Open()

OleDbDataAdapter1.UpdateCommand.Connection = OleDbConnection1
OleDbDataAdapter1.UpdateCommand.CommandText = "Update ok set nastaff = '" & nastaff.Text & "' , period = '" & period.Text & _
"', amount = '" & amount.Text & "', groupid = " & txtid.SelectionLength + 1 & " where Period = '" & TmpNumber & "'"

'GroupCmbo.Hide()

Try
OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()
DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11, "ok")
Catch Ex As Exception
MsgBox(Ex.Message)
End Try
OleDbConnection1.Close()

nastaff.ReadOnly = True
amount.ReadOnly = True
loan.ReadOnly = True
period.ReadOnly = True


'UpdateBtn.Enabled = False
'UpdateBtn.Enabled = True
TmpNumber = period.Text
nastaff.Focus()

Else
TextBox1.Text = 1


End If


End Sub

  • 2 Contributors
  • 1 Reply
  • 134 Views
  • 12 Hours Discussion Span
  • Latest Post Latest Post by cellus205
Member Avatar for cellus205

Is your key an autonumber field? If so, just go to the tableadapter , select the update command that you are using, and under parameters, remove the parameter for the key, so that it isnt expecting that parameter to be passed

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.