salvar datagridview acess

Question

Dei uma pesquisada e não achei nada do meu problema.!

Quero inserir tudo que ta no gridview de uma vez, no acess

segue meu codigo.!

            Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\EDSoft\Banco\DB_EdSoft.mdb"
            Dim SQL As String = "INSERT INTO Vendas ([Nota],[Cod_Barra],[Descricao],[Qtde],[V_Unitario],[Sub_Total],[V_Total],[Cliente],[Vendedor],[Data],[Pagamento]) VALUES (?,?,?,?,?,?,?,?,?,?,?)"
            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("Nota", SqlDbType.VarChar).Value = txtcupom.Text
                command.Parameters.Add("Cod_Barra", SqlDbType.Decimal).Value = r("Cód Barra")
                command.Parameters.Add("Descricao", SqlDbType.VarChar).Value = r("Produto")
                command.Parameters.Add("Qtde", SqlDbType.Decimal).Value = r("Qtde")
                command.Parameters.Add("V_Unitario", SqlDbType.VarChar).Value = r("Preço")
                command.Parameters.Add("Sub_Total", SqlDbType.VarChar).Value = r("Total")
                command.Parameters.Add("V_Total", SqlDbType.VarChar).Value = txttotalpagar.Text
                command.Parameters.Add("Cliente", SqlDbType.VarChar).Value = txtCliente.Text
                command.Parameters.Add("Vendedor", SqlDbType.VarChar).Value = txtvendedor.Text
                command.Parameters.Add("Data", SqlDbType.VarChar).Value = date.now
                command.Parameters.Add("Pagamento", SqlDbType.VarChar).Value = "Dinheiro"

                command.ExecuteNonQuery()
            Next

ele inseri no banco mais se tem 3 registro ele insere 3 registo mais contendo conteúdo so da primeira linha.!

alguem pode me ajudar ?

Answer 1

olá, eu diria que usando oledbcommandbuilder , consegues fazer isso.

1- carregas a grid com dataset

2- ao clicar num botao, salvas os dados,

fazes getchanges.

http://vb.net-informations.com/dataadapter/dataadapter-commandbuilder-oledb.htm

http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbcommandbuilder.aspx

---

espero ter ajudado.

Answer 2

eu li e não consegui intender =\ 

o link que me passou 

 Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim oledbCmdBuilder As OleDbCommandBuilder
        Dim ds As New DataSet
        Dim i As Integer
        Dim sql As String
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        connection = New OleDbConnection(connetionString)
        sql = "select * from tblUsers"
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbCmdBuilder = New OleDbCommandBuilder(oledbAdapter)
            oledbAdapter.Fill(ds)
            For i = 0 To ds.Tables(0).Rows.Count - 1
                ds.Tables(0).Rows(i).Item(2) = "[e-mail]"
            Next
            oledbAdapter.Update(ds.Tables(0))
            connection.Close()
            MsgBox("Email address updates !")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
não consegui implementar =\ tem como ajudar 
?

Answer 3

alguem pode ser de outra forma .!

Answer 4

como ficou sua pergunta?

---

A flower cannot blossom without sunshine, and man cannot live without love.