Bom dia, sou iniciante na programação e estou tentado salvar dados que estão em uma grid no banco...
O código que conseguir até agora é foi esse
Sub cadastrarPizza()
'Dim WF_OJGridFeriado As DataTable
Dim WL_OjConnection As SqlConnection
Dim WL_OjCommand As SqlCommand
Dim WL_OjTransaction As SqlTransaction
WL_OjConnection = New SqlConnection("Data Source= SIMONE-PC;Initial Catalog= bdBambinaPizza;Integrated Security=SSPI;")
WL_OjConnection.Open()
WL_OjTransaction = WL_OjConnection.BeginTransaction(IsolationLevel.ReadCommitted)
WL_OjCommand = New SqlCommand
WL_OjCommand.CommandTimeout = 54000
WL_OjCommand.Connection = WL_OjConnection
WL_OjCommand.Transaction = WL_OjTransaction
Try
For I = 0 To frmPrincipal.tabela.Rows.Count - 1
WL_DSSQL = "INSERT INTO tbPedido(codVenda, codProduto, quantidade) "
WL_DSSQL = WL_DSSQL + " VALUES "
WL_DSSQL = WL_DSSQL + " ( " & ultimaVenda & " , " & frmPrincipal.tabela.Rows(I).Item("cod") & " ,' " & frmPrincipal.tabela.Rows(I).Item("quant") & " ')"
WL_OjCommand.CommandText = WL_DSSQL
WL_OjCommand.ExecuteNonQuery()
Next
MessageBox.Show("Pedido cadastrado com sucesso", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
Catch ex As Exception
'MsgBox(ex.Message)
MessageBox.Show("Pedido não cadastrado", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
End Try
End Sub
No código acima o VB mostra a mensagem: Pedido cadastrado com sucesso, porém quando vou conferir no banco não salvo nada.
Alguém poderia me dá uma mãozinha.