ListView Para Instrução em Sql

[Helvio 0]

Bom dia Senhores(as).

Estou precisando de uma ajuda para desenvolver uma rotina para inserir os dados que tenho num listview num banco de dados.

Por exemplo tenho 4 linhas preenchidas e preciso inserir seus dados no banco. obs (preciso pegar os dados de todas as colunas que eu tiver.

 

ex:

 

NomeMedicamento_______Quantidade

Medicamento1 ________________5

Medicamento2 ________________2

Medicamento3 ________________1

 

 

 

Obrigado

[LiPe 0]

Olá,Faça o seguinte---------------------------------------------------------------------------------Dim qtdList as longDim strMedicamento as stringDim qtdMedicamento as longDim strSQL as stringqtdList = lstView.ListItems.Count For i = 1 To qtdList strMedicamento = lstView.listItems(i).text 'nome do medicamento qtdMedicamento = lstView.listItems(i).subItems(1) 'qtde do medicamento strSQL = "INSERT INTO TB_MEDICAMENTO (DS_MEDICAMENTO,NR_MEDICAMENTO) VALUES(" strSQL = strSQL & "'" & strMedicamento & "'," & qtdMedicamento & ")" Conn.Execute(strSQL)Next i

[Helvio 0]

Olá,Faça o seguinte---------------------------------------------------------------------------------Dim qtdList as longDim strMedicamento as stringDim qtdMedicamento as longDim strSQL as stringqtdList = lstView.ListItems.Count For i = 1 To qtdList strMedicamento = lstView.listItems(i).text 'nome do medicamento qtdMedicamento = lstView.listItems(i).subItems(1) 'qtde do medicamento strSQL = "INSERT INTO TB_MEDICAMENTO (DS_MEDICAMENTO,NR_MEDICAMENTO) VALUES(" strSQL = strSQL & "'" & strMedicamento & "'," & qtdMedicamento & ")" Conn.Execute(strSQL)Next i

Boa tarde Lipe.Vou testar no meu codigo ainda hoje.Obrigado

[Helvio 0]

Lipe, verifiquei e funciona como eu estava fazendo antes.Mas o que eu preciso é que ele guarde numa variavel tbm um 2º medicamento.No seu modo ele só vai pegar a primera linha e não as outras.Att.