Pessoal estou tentando exibir os dados de uma tabela em uma listview mas esta gerando um erro bobo e ñ estou conseguindo saber o porque será que alguem pode me ajudar?
eu ja trabalhei com a listview, mas foi tudo bem, não tive problema algun. mas desta vez! eu até comparei o código e esta igual, muito estranho!
O Código é este abaixo:
O Erro é o seguinte: (run time error '13';) Type Mismatch
Esta na linha em amarelo:
Private Sub Form_Load()
Set Rs_LHist_Exc = conn.Execute("SELECT * FROM tbl_historico_exclusao")
lv_historico.ColumnHeaders.Add , , "REGISTRO", 2500, , 0
lv_historico.ColumnHeaders.Add , , "NOME", 2200, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "CARGO", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "C.CUSTO", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "SEÇÃO", 1100, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "SETOR", 2500, , 0
lv_historico.ColumnHeaders.Add , , "RISCO", 2200, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "EPI", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "ADM.CLINICO", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "P.F.CLINICO", 1100, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "R.CLINICO", 2500, , 0
lv_historico.ColumnHeaders.Add , , "D.CLINICO", 2200, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "ADM.AUDIO", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "P.F.AUDIO", 1100, lvwColumnCenter, 0
lv_historico.ColumnHeaders.Add , , "R.AUDIO", 1100, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "D.AUDIO", 2500, , 0
lv_historico.ColumnHeaders.Add , , "DT.EXCLUSÃO", 2200, lvwColumnLeft, 0
lv_historico.ColumnHeaders.Add , , "USUÁRIO", 1100, lvwColumnCenter, 0
Dim itmx6 As ListItem
lv_historico.ListItems.Clear
Rs_LHist_Exc.MoveMin
Do While Not Rs_LHist_Exc.EOF
Set itmx6 = lv_historico.ListItems.Add(, , Rs_LHist_Exc(0), 1)
itmx.SmallIcon = 1
itmx6.SubItems(1) = Rs_LHist_Exc!registro
itmx6.SubItems(2) = Rs_LHist_Exc!nome
itmx6.SubItems(3) = Rs_LHist_Exc!cargo
itmx6.SubItems(4) = Rs_LHist_Exc!c_custo
itmx6.SubItems(5) = Rs_LHist_Exc!secao
itmx6.SubItems(6) = Rs_LHist_Exc!setor
itmx6.SubItems(7) = Rs_LHist_Exc!risco
itmx6.SubItems(8) = Rs_LHist_Exc!epi
itmx6.SubItems(9) = Rs_LHist_Exc!adm_clinico
itmx6.SubItems(10) = Rs_LHist_Exc!per_freq_clinico
itmx6.SubItems(11) = Rs_LHist_Exc!ret_clinico
itmx6.SubItems(12) = Rs_LHist_Exc!dem_clinico
itmx6.SubItems(13) = Rs_LHist_Exc!adm_audi
itmx6.SubItems(14) = Rs_LHist_Exc!per_freq_audi
itmx6.SubItems(15) = Rs_LHist_Exc!ret_audi
itmx6.SubItems(16) = Rs_LHist_Exc!dem_audi
itmx6.SubItems(17) = Rs_LHist_Exc!data_exclusao
itmx6.SubItems(18) = Rs_LHist_Exc!usuario
Rs_LHist_Exc.MoveNext
Loop
End Sub
