INSERT INTO ITEM_PEDIDO - VALORES DE 6 COMBOBOX
preciso inserir em uma tabela 6 registros de 6 combobox que tenho no form dinamicamente,
veja o código abaixo
[ô]inseri os itens do pedido
[ô]Cada produto vindo do combobox
Dim produto As String = [Ô][Ô]
Dim produto1 As String = cbcli_produto1.Text
Dim produto2 As String = cbcli_produto2.Text
Dim produto3 As String = cbcli_produto3.Text
Dim produto4 As String = cbcli_produto4.Text
Dim produto5 As String = cbcli_produto5.Text
Dim produto6 As String = cbcli_produto6.Text
[ô]Unidade de cada produto, se é M2, RL ou BB
Dim unprod As String = [Ô][Ô]
Dim unprod1 As String = cbcli_uni1.Text
Dim unprod2 As String = cbcli_uni2.Text
Dim unprod3 As String = cbcli_uni3.Text
Dim unprod4 As String = cbcli_uni4.Text
Dim unprod5 As String = cbcli_uni5.Text
Dim unprod6 As String = cbcli_uni6.Text
[ô]Quantidade de cada produto
Dim qtd As String = [Ô][Ô]
Dim qtd1 As String = txtcli_qtd1.Text
Dim qtd2 As String = txtcli_qtd2.Text
Dim qtd3 As String = txtcli_qtd3.Text
Dim qtd4 As String = txtcli_qtd4.Text
Dim qtd5 As String = txtcli_qtd5.Text
Dim qtd6 As String = txtcli_qtd6.Text
[ô]Valor unitario de cada produto
Dim vun As String = [Ô][Ô]
Dim vun1 As String = txtcli_vu1.Text
Dim vun2 As String = txtcli_vu2.Text
Dim vun3 As String = txtcli_vu3.Text
Dim vun4 As String = txtcli_vu4.Text
Dim vun5 As String = txtcli_vu5.Text
Dim vun6 As String = txtcli_vu6.Text
For i As Integer = 1 to 6
sql = [Ô]Insert into item_pedido(npedido,produto,un,qtd,valorun,valortotal,ativado) values([ô][Ô] & txtcli_npedido.Text & [Ô][ô],[ô][Ô] & produto(i) & [Ô][ô],[ô][Ô] & unprod(i) & [Ô][ô],[ô][Ô] & qtd(i) & [Ô][ô],[ô][Ô] & vun(i) & [Ô][ô],[ô]Total[ô],[ô]S[ô])[Ô]
[ô]abrindo a conexao
cn = New OleDbConnection(strconexao)
cn.Open()
[ô]executando o comando
cmd = New OleDbCommand(sql, cn)
cmd.ExecuteNonQuery()
Next
[ô] sucesso
Dim ok As String
ok = [Ô]Pedido inserido com sucesso[Ô]
MsgBox(ok)
No Asp clássico faço assim mesmo mas no vb.net não to conseguindo, o que fiz de errado?
Amigo, primeiramente precisamos saber o que está acontecendo. Ocorre algum erro?
[ô]sql = [Ô]Insert into item_pedido(npedido,produto,un,qtd,valorun,valortotal,ativado) values([ô][Ô] & txtcli_npedido.Text & [Ô][ô],[ô][Ô] & produto(i) & [Ô][ô],[ô][Ô] & unprod(i) & [Ô][ô],[ô][Ô] & qtd(i) & [Ô][ô],[ô][Ô] & vun(i) & [Ô][ô],[ô]Total[ô],[ô]S[ô])[Ô]
Dim produto() As String = {cbcli_produto1.Text, cbcli_produto2.Text, cbcli_produto3.Text, cbcli_produto4.Text, cbcli_produto5.Text, cbcli_produto6.Text}
For i As Integer = 0 To 5
NextAgora tente fazer com os outros itens para ver se resolve.
Citação:[ô]inseri os itens do pedido
Dim produto() As String = {cbcli_produto1.Text, cbcli_produto2.Text, cbcli_produto3.Text, cbcli_produto4.Text, cbcli_produto5.Text, cbcli_produto6.Text}
Dim unprod() As String = {cbcli_uni1.Text, cbcli_uni2.Text, cbcli_uni3.Text, cbcli_uni4.Text, cbcli_uni5.Text, cbcli_uni6.Text}
Dim qtd() As String = {txtcli_qtd1.Text, txtcli_qtd2.Text, txtcli_qtd3.Text, txtcli_qtd4.Text, txtcli_qtd5.Text, txtcli_qtd6.Text}
Dim vun() As String = {txtcli_vu1.Text, txtcli_vu2.Text, txtcli_vu3.Text, txtcli_vu4.Text, txtcli_vu5.Text, txtcli_vu6.Text}
For i As Integer = 0 To 5
sql = [Ô]Insert into item_pedido(npedido,produto,un,qtd,valorun,valortotal,ativado) values([ô][Ô] & txtcli_npedido.Text & [Ô][ô],[ô][Ô] & produto(i) & [Ô][ô],[ô][Ô] & unprod(i) & [Ô][ô],[ô][Ô] & qtd(i) & [Ô][ô],[ô][Ô] & vun(i) & [Ô][ô],[ô]Total[ô],[ô]S[ô])[Ô]
[ô]bloco de tratamento de erro
Try
[ô]abrindo a conexao
cn = New OleDbConnection(strconexao)
cn.Open()
[ô]executando o comando
cmd = New OleDbCommand(sql, cn)
cmd.ExecuteNonQuery()
Catch [ô]tratando o erro
[ô]fechando a conexao
cn = Nothing
[ô]mostrando o erro
MsgBox(Err.Description)
End Try
Next
[ô] sucesso
Dim ok As String
ok = [Ô]Pedido inserido com sucesso[Ô]
MsgBox(ok)
Precisando estamos aÃ.
Não se esqueça de encerrar o tópico.