none
salvar datagridview acess RRS feed

  • Pergunta

  • 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 ?

    terça-feira, 26 de fevereiro de 2013 14:41

Todas as Respostas

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

    terça-feira, 26 de fevereiro de 2013 17:24
  • 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) = "neweamil@email.com" 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
    ?

    terça-feira, 26 de fevereiro de 2013 22:07
  • alguem pode ser de outra forma .!
    quarta-feira, 27 de fevereiro de 2013 22:37
  • como ficou sua pergunta?


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

    domingo, 17 de março de 2013 12:48
    Moderador