Galera ajuda ai Por favor.!
Tenho que dar um update ( retirar do estoque ) uso um datagrid olha que to fazendo.!
Dim drProduto As OleDbDataReader
Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=caminho"
Dim SQL As String = "update Cad_Produto set E_Atual = (E_Atual - E_Atual=?) where Cod_Barra=?"
Dim connection As New OleDb.OleDbConnection(myConnectionString)
Dim command As New OleDb.OleDbCommand(SQL, connection)
command.Connection = connection
connection.Open()
For Each r As DataRow In dsProdutos.Tables(0).Rows
command.Parameters.Add("E_Atual", SqlDbType.VarChar).Value = r("Qtde")
command.Parameters.Add("Cod_Bar", SqlDbType.VarChar).Value = r("Cód Barra")
drProduto = command.ExecuteReader()
Next
Problema que quando faço isso o estoque sempre fica " 0 "
to usando acess.!
