Salvar todas linhas do Listview no banco SQL
Bom Dia Galera,
Estou com um formulário que eu adiciono itens a uma listview( Um Item em cada Linha) e quando eu clico em salvar deveria salvar todos Itens no banco de dados SQL Server. Se Existir somente um Item ele Salva normalmente,porém se houverem mais de um Item Aparece a mensagem ("O nome da Variável já foi declarado, os nomes de variáveis devem ser exclusivos ..."). Como Faço para fazer com a variavel mude de acordo com as linhas do LIstView se for isso mesmo que deve ser feito ?
Segue Abaixo o codigo até o momento.
----------------------------------------------------------------------------------------------------------------------
Function SalvarItens()
Dim sqlCon As New SqlConnection(StrCon)
Dim sqlCmd As New SqlCommand
Try
sqlCon.Open()
With sqlCmd
.CommandType = CommandType.Text
.CommandText = ""
For Each item As ListViewItem In FrmOrcamentos.ListComprar.Items
.CommandText = "INSERT INTO Orcamentos (OrcNum,CodProd,DescProd,Quantidade) VALUES (@OrcNum,@CodProd,@DescProd,@Quantidade)"
.Connection = sqlCon
.Parameters.Add(New SqlParameter("@OrcNum", SqlDbType.NVarChar)).Value = FrmOrcamentos.LblNumOrc.Text
.Parameters.Add(New SqlParameter("@CodProd", SqlDbType.NVarChar)).Value = FrmOrcamentos.ListComprar.Items(0).Text
.Parameters.Add(New SqlParameter("@DescProd", SqlDbType.NVarChar)).Value = FrmOrcamentos.ListComprar.Items(0).SubItems(1).Text
.Parameters.Add(New SqlParameter("@Quantidade", SqlDbType.NVarChar)).Value = FrmOrcamentos.ListComprar.Items(0).SubItems(3).Text
Next
End With
sqlCmd.ExecuteNonQuery()
MsgBox("Item Cadastrado com Sucesso.", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlCmd.Parameters.Clear()
sqlCon.Close()
End Try
Return True
End Function
--------------------------------------------------------------------------------------------------------------------------------
SE PUDEREM ME AJUDAR EU AGRADEÇO, ENQUANTO ISSO VOU QUEBRANDO A CABEÇA AQUI ...
*** RESPEITO E ATITUDE ***
Discussão (11)
Carregando comentários...