pessoal, olhem só. Eu tenho esse a seguinte função de inserção no banco de dados com listview. Meu listview tem checkbox
Function GravarPCP()
Dim f As Integer
Set OP = New ADODB.Command
For f = 1 To frmpcp.lstPeca.ListItems.Count
Set frmpcp.lstPeca.SelectedItem = frmpcp.lstPeca.ListItems.Item(f)
'If frmpcp.lstPeca.ListItems(f).Checked = True Then
If frmpcp.lstPeca.SelectedItem.Checked Then
With OP
.ActiveConnection = Conn
.CommandText = "Insert into PCP (CodRegra, NomeProduto, Departamento, Responsavel, CodPeca, " _
& "Peca, Quantidade, Dias, Horas, Minutos, Obs )" _
& "Values ('" & frmpcp.txtCodigoRegra.Text & "', '" & frmpcp.txtNomeProduto.Text & "', " _
& "'" & frmpcp.cmbDepartamento.Text & "', '" & frmpcp.cmbResponsavel.Text & "', " _
& "'" & frmpcp.lstPeca.ListItems(f).Text & "', '" & frmpcp.lstPeca.SelectedItem.SubItems(1) & "', '" & frmpcp.lstPeca.SelectedItem.SubItems(2) & "' ,'" & frmpcp.txtDias.Text & " ', '" & frmpcp.txtHoras.Text & "', " _
& "'" & frmpcp.txtMinutos.Text & "', '" & frmpcp.txtObs.Text & "' ) "
.Execute
End With
End If
Next f
Set OP = Nothing
MsgBox "Registro gravado com sucesso!", vbInformation, "PCP"
End Function
Só que o estranho é que quando eu depuro o código (função), ele pega todos os dados do form, inclusive os items do listview que eu selecionei. E na depuração ele chega no .Execute para executar o insert mais não está inserindo. E uso essa mesma função para outras partes do sistema.
Detalhe: não dá nenhum erro.
O q pode ser?
