Pessoal,

             Em um form tenho uma caixa de texto e um listview (com a opção checkbox marcado como true) e um botão de comando para gerar o relatório, e estou querendo fazer o seguinte: quando digitar determinado nome na caixa de texto então apareça todos os registros com esse nome no listview, daí eu seleciono os registros que quiser e mando-os para o relatório (data report); a primeira parte eu até já fiz e tá funcionando, mas a parte do relatório dá dando erro..., e o relatório nem abre. Se alguém tiver alguma rotina que faça isso..., estou precisando fechar essa relatório.

 

Segue o código:

 

 

  Private Sub Command2_Click()
 
For i = 1 To ListView1.ListItems.Count
     If ListView1.ListItems(i).Checked Then
Dim rs As New ADODB.Recordset
   
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM teste", con, adOpenDynamic, adLockPessimistic (dá erro nessa linha)
        
        Set drpt1.DataSource = rs
        drpt1.Show

    End If
Next

End Sub

 

 

Private Sub Form_Load()

Set Conexao = New ADODB.Connection
With Conexao
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .ConnectionString = App.Path & "cadastro de fornecedores - 97.mdb"
    .Open
End With

Set Tabela = New ADODB.Recordset

End Sub

tenta isso,

 

Private Sub cmd_imprimir_Click()

Set rs = db.Execute("SELECT * FROM tbl_roa where rg_cia = " & "'" & txt_rg & "'" & " order by data desc")
         If rs.EOF = False Then
            Set rpt_roa.DataSource = rs
           rpt_roa.Orientation = rptOrientLandscape
           rpt_roa.Sections("section5").Controls("label4").Caption = txt_Nome
           rpt_roa.Sections("section5").Controls("label6").Caption = txt_cargo
           rpt_roa.Sections("section5").Controls("label9").Caption = txt_rg
           rpt_roa.Title = "Roa - " & txt_Nome
           rpt_roa.Show
        End If
End Sub