INSERT COM DATAGRIDVIEW
Bom dia a todos,se alguém poder me ajudar a fazer um insert, tipo assim, popular um DataGridView e depois fazer um insert com esses dados no meu BD.
Desde já agradeço a ajuda,
Edi Carlos
Desde já agradeço a ajuda,
Edi Carlos
Pesquisa um pouco o assunto.
Estive tentando fazer o código funcionar de forma adequada mas não deu.
Ai tive que travar o erro.
Ficou assim
Private Sub Button28_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
On Error Resume Next
Dim i As Integer
Dim conS As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.MDB[Ô])
CMD = conS.CreateCommand
conS.Open()
For i = 0 To DG.Rows.Count - 1
Dim sql As String = [Ô]INSERT INTO CLIENTES(CodCli,Nome,Bairro,Cidade,Telefone)Values([Ô] & _
Me.DG.Item([Ô]CodCli[Ô], i).Value.ToString & [Ô],[ô][Ô] & _
Me.DG.Item([Ô]Nome[Ô], i).Value & [Ô][ô],[ô][Ô] & _
Me.DG.Item([Ô]Bairro[Ô], i).Value & [Ô][ô],[ô][Ô] & _
Me.DG.Item([Ô]Cidade[Ô], i).Value & [Ô][ô],[ô][Ô] & _
DG.Item([Ô]Telefone[Ô], i).Value & [Ô][ô])[Ô]
CMD.CommandText = sql
CMD = New OleDbCommand(sql, conS)
CMD.ExecuteNonQuery()
Next
End Sub
Se alguém olhar e melhora vou aproveitar e usar.
Valeu
Ai tive que travar o erro.
Ficou assim
Private Sub Button28_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
On Error Resume Next
Dim i As Integer
Dim conS As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.MDB[Ô])
CMD = conS.CreateCommand
conS.Open()
For i = 0 To DG.Rows.Count - 1
Dim sql As String = [Ô]INSERT INTO CLIENTES(CodCli,Nome,Bairro,Cidade,Telefone)Values([Ô] & _
Me.DG.Item([Ô]CodCli[Ô], i).Value.ToString & [Ô],[ô][Ô] & _
Me.DG.Item([Ô]Nome[Ô], i).Value & [Ô][ô],[ô][Ô] & _
Me.DG.Item([Ô]Bairro[Ô], i).Value & [Ô][ô],[ô][Ô] & _
Me.DG.Item([Ô]Cidade[Ô], i).Value & [Ô][ô],[ô][Ô] & _
DG.Item([Ô]Telefone[Ô], i).Value & [Ô][ô])[Ô]
CMD.CommandText = sql
CMD = New OleDbCommand(sql, conS)
CMD.ExecuteNonQuery()
Next
End Sub
Se alguém olhar e melhora vou aproveitar e usar.
Valeu
Faça seu login para responder