none
Fazer Update Datagrid acess RRS feed

  • Pergunta

  • 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.!

    sábado, 9 de fevereiro de 2013 13:00

Todas as Respostas