Get error on No value given for one or more required parameters.

[christing]

cmd.Connection = app
If CStr(Textbox1.Tag) & "" = "" Then
cmd.CommandText = "INSERT INTO ADMIN(CusID,Name) " & _
" VALUES('" & Me.Textbox1.Text & "','" & Me.txtname.Text & "')"


cmd.ExecuteNonQuery()


Else

cmd.CommandText = "UPDATE ADMIN " & _
" SET ID=" & Me.Textbox1.Text & _
",Name='" & Me.txtname.Text & "'" & _
"WHERE ID=" & CStr(Textbox1.Tag)
cmd.ExecuteNonQuery() (Get error on No value given for one or more required parameters.)

[June7]

Is this code in the same db as tables to be edited? If so, don't need connection and command objects.

Don't use Text property. You want Value property and since it is default don't even have to type it.

CurrentDb.Execute "INSERT …"

[christing]

yes it is a same data table. but normally insert data is use this command to add data. i am success add data delete data exclude update data. and fail on this command cmd.ExecuteNonQuery() (Get error on No value given for one or more required parameters.)
which mean i need change my cmd.CommandText = "INSERT INTO ADMIN(CusID,Name) " & _

If Me.dgv.Rows.Count > 0 Then
If Me.dgv.SelectedRows.Count > 0 Then
Dim intID As Integer = CInt(Me.dgv.SelectedRows(0).Cells("ID").Value)
If Not app.State = ConnectionState.Open Then
app.Open()
End If
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM ADMIN " & _
" WHERE ID=" & intID, app)


Dim dt As New DataTable
da.Fill(dt)
Me.Textbox1.Text = CStr(intID)
Me.txtname.Text = CStr(dt.Rows(0).Item("Name"))
Me.Textbox1.Tag = intID
Me.add.Text = "Update"
Me.btnEdit.Enabled = True
End If
app.Close()
End If()

[June7]

I have never used ExecuteNonQuery.

Regardless, don't use Text property. Why use Tag property? Why even update ID field?

Also need a space after apostrophe before WHERE clause so text won't run together.

cmd.CommandText = "UPDATE ADMIN SET Name='" & Me.txtname & "' WHERE ID=" & CStr(Me.Textbox1)

[christing]

Thanks for your reply my message after i try the code you give for me....i am still get error on Syntax error in UPDATE statement.
cmd.CommandText = "UPDATE ADMIN" & _
"SET" & _
"Name = " & Me.txtname.Text & _
"WHERE ID=" & CStr(Textbox1.Text)

cmd.CommandText = "UPDATE ADMIN " & _
" SET" & _
" [Name]='" & Me.txtname.Text & "'" & _
" WHERE [ID]=" & CStr(Textbox1.Tag)
I SUCCESS ALREADY

[Minty]

As June has said stop using the .Text property , and add a space after / before the where clause.
In fact do it properly and build your sql statement as a string so you can debug it ;

Dim sSql As string

sSql = "UPDATE ADMIN SET [Name]='" & Me.txtname & "' WHERE ID=" & CStr(Me.Textbox1)

Debug.Print sSql
CurrentDb.Execute sSql , DbSeeChanges

If your ID field is a number then why are changing it to a string ?
Also Name is a reserved word so will need putting in square brackets, or preferably change the field name.