Não há respostas para este tópico

[danilotinoco]

Bom Dia

Preciso gravar dados de dois data gride , ja fiz varias tetativas .


Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

' Data Grid de Peças

For Each col As DataGridViewRow In datagridPecas.Rows

Dim codigo2 = col.Cells(0).Value.ToString
Dim codigopecas = Nothing

If Not col.Cells(0).Value Is Nothing And Not col.Cells(1).Value Is Nothing And Not col.Cells(2).Value Is Nothing And Not col.Cells(3).Value Is Nothing And Not col.Cells(4).Value Is Nothing Then

codigopecas = col.Cells(0).Value.ToString

'Data Grid de Serviços

End If
Next

For Each col1 As DataGridViewRow In datagridServicos.Rows

Dim codigo = col1.Cells(0).Value.ToString
Dim codigoservicos = Nothing

If Not col1.Cells(0).Value Is Nothing And Not col1.Cells(1).Value Is Nothing And Not col1.Cells(2).Value Is Nothing And Not col1.Cells(3).Value Is Nothing And Not col1.Cells(4).Value Is Nothing Then
codigoservicos = col1.Cells(0).Value.ToString

Dim sql As New StringBuilder

sql.Append("insert into det_pedido values (" & codigoservicos & ",")
sql.Append(txtCodigo.Text & ",")
sql.Append(codigopecas & ")")

Try
Me.conn.Open()
Dim cmdcomando As New SqlCommand(sql.ToString, Me.conn)
cmdcomando.ExecuteNonQuery()

Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
Me.conn.Close()
End Try
End If
Next

Dim sql1 As New StringBuilder

sql1.Append("insert into pedido values ('" & DateTimePicker1.Text & "'," & txtCodigoped.Text & ",'" & txtTotalPedido.Text & "')")

Try
Me.conn.Open()
Dim cmdcomando As New SqlCommand(sql1.ToString, conn)
cmdcomando.ExecuteNonQuery()

Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
Me.conn.Close()

End Try

MessageBox.Show("Pedido inserido com sucesso!", "Obrigado!")


End Sub