DO DATAGRIDVIEW PARA BANCO DE DADOS
Tenho um datagridview onde adiciono os itens de uma venda, e ele não é ligado a uma fonte de dados.
Como salvo esses itens que adicionei no datagridview no banco de dados?
Utilizo vb.net e access.
Como salvo esses itens que adicionei no datagridview no banco de dados?
Utilizo vb.net e access.
Testa ai.
Dim sql As String
Dim conexao As OleDbConnection
Dim Comando As OleDbCommand
Dim I As Integer
conexao = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.MDB[Ô])
For I = 0 To DataGridView1.Rows.Count - 1
sql = [Ô]INSERT INTO Usuarios (Idusuario,Usuarionome,idsexo,senha) VALUES ([ô][Ô] & DataGridView1.Item([Ô]Idusuario[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]Usuarionome[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]IdSexo[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]Senha[Ô], I).Value & [Ô][ô])[Ô]
Try
Comando = New OleDbCommand(sql, conexao)
conexao.Open()
Comando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
conexao.Close()
End Try
Next
Se o campo for auto numerção tem que retirar [txt-color=#e80000]Idusuario [/txt-color]e[txt-color=#e80000]DataGridView1.Item([Ô]Idusuario[Ô], I).Value & [Ô][ô] [ô][Ô] & [/txt-color]
Dim sql As String
Dim conexao As OleDbConnection
Dim Comando As OleDbCommand
Dim I As Integer
conexao = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.MDB[Ô])
For I = 0 To DataGridView1.Rows.Count - 1
sql = [Ô]INSERT INTO Usuarios (Idusuario,Usuarionome,idsexo,senha) VALUES ([ô][Ô] & DataGridView1.Item([Ô]Idusuario[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]Usuarionome[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]IdSexo[Ô], I).Value & [Ô][ô],[ô][Ô] & DataGridView1.Item([Ô]Senha[Ô], I).Value & [Ô][ô])[Ô]
Try
Comando = New OleDbCommand(sql, conexao)
conexao.Open()
Comando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
conexao.Close()
End Try
Next
Se o campo for auto numerção tem que retirar [txt-color=#e80000]Idusuario [/txt-color]e[txt-color=#e80000]DataGridView1.Item([Ô]Idusuario[Ô], I).Value & [Ô][ô] [ô][Ô] & [/txt-color]
Faça seu login para responder