HELLO.
IF I CLICKED BUTTON "SAVE" MS ACCESS ITEM WILL BE UPDATE FROM LISTVIEW.
hhm_pro992 0 Newbie Poster
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
Where is your code?
mh.cool992 -2 Newbie Poster
Private Sub ButtonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Try
Call OpenConnection()
Dim v1 As Integer
Dim v2 As Integer = ListView1.Items(0).SubItems(3).Text
Dim ans As Integer
Dim SQLQuery As String = "Update([INVENTRY] Where [QTY]" = v1 )
ans = v1 - v2
With OleDa
.UpdateCommand = New OleDb.OleDbCommand()
.UpdateCommand.CommandText = "UPDATE [INVENTRY] SET [ItemCode] = @ItemCode , [ItemName] = @ItemName , [QTY] = @QTY , [SalePrice] = @SalePrice , [PurchasePrice] = @PurchasePrice WHERE (EmployeeID = ?)"
.UpdateCommand.Connection = OleCn
.UpdateCommand.Parameters.Add("@ItemCode", OleDb.OleDbType.VarWChar, 50, "ItemCode").Value = ListView1.Items(0).Text
.UpdateCommand.Parameters.Add("@ItemName", OleDb.OleDbType.VarWChar, 50, "ItemName").Value = ListView1.Items(0).SubItems(1).Text
.UpdateCommand.Parameters.Add("@QTY", OleDb.OleDbType.VarWChar, 50, "QTY").Value = ans
.UpdateCommand.Parameters.Add("@SalePrice", OleDb.OleDbType.VarWChar, 50, "SalePrice").Value = ListView1.Items(0).SubItems(3).Text
.UpdateCommand.Parameters.Add("@PurchasePrice", OleDb.OleDbType.VarWChar, 50, "PurchasePrice").Value = ListView1.Items(0).SubItems(4).Text
End With
Call CloseConnection()
MsgBox("Record(s) has been Updated...", MsgBoxStyle.Information, "Record(s) Updated...")
Me.Close()
Catch ex As Exception
MsgBox("Unable to update record(s), Employee ID already exist, please enter another Employee ID...", MsgBoxStyle.Exclamation, "Attention...")
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error...")
Call CloseConnection()
End Try
End Sub
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.