CONSULTAS UTILIZANDO O D.A.O ,DUVIDA

CHACAL1945 22/02/2013 19:54:25
#419557
Boa noite a todos!
Precisei criar um relatório colunado da sequinte forma:

Codigo:15 Código:16
Nome: Jose Medeiros de Albuquerque Nome: Jose Maria Diniz
Endereço: Rua a nª:091 Endereço: Rua a nª:091
Bairro: Centro Bairro: Centro
Cidade: Muito distante Cidade: Muito distante
Cep:10000-000 Cep:10000-000

....... e assim em uma mesma folha 16 registros

Só que tem um pequeno problema,o Relátório eu consequi formatar como eu queria
mas o método utilizado e o D.A.O para Access 2003
Gostaria de usar o objeto
CrystalReportViewer
Um combo para parametros e um text para selecionar uma select case
Mas não tenho ideia de como começar visto que sou novo com Crystal reports
Pensei em uma estrutura mais ou menos assim mas qual seria o comando para filtrar e chamar o report criado ...



Select Case CBO_PARAMETROS.SelectedIndex [ô].ToUpper
Case Is = 0
Pesquisa = Base.OpenRecordset([Ô]select * from TB_DEVOTOS where ID like [ô]*[Ô] & TXT_PESQUISAR.Text & [Ô]*[ô][Ô])
??????????
Case Is = 1
Pesquisa = Base.OpenRecordset([Ô]select * from TB_DEVOTOS where ENDERECO like [ô]*[Ô] & TXT_PESQUISAR.Text & [Ô]*[ô][Ô])
???????????
Case Is = 2
Pesquisa = Base.OpenRecordset([Ô]select * from TB_DEVOTOS where CEP like [ô]*[Ô] & TXT_PESQUISAR.Text & [Ô]*[ô][Ô])
?????
End Select

Tá tudo pronto qual comando eu utilizo para vizualizar os dados filtrados corretamente no report ,já pesquisei o povo só utiliza parametro não entendi muito bem ..
Me ajudem por favor .... =(
PROFESSOR 23/04/2013 12:00:54
#422360
Na verdade, você deve passar ou a conexão ou a tabela ao Report.
E a DAO é uma tecnologia muito antiga, totalmente inadequada, ainda que você está usando o MS-Access. O menos ruim seria adotar a System.Data,OleDb. No fim, você teria algo como:

[ô]...
   Dim sqlCode As String = [Ô]select * from TB_DEVOTOS where [Ô]
   Select Case CBO_PARAMETROS.SelectedIndex  [ô].ToUpper
        Case Is = 0:    sqlCode &= String.Format([Ô]ID like [ô]*{0}*[ô][Ô], TXT_PESQUISAR.Text)
        Case Is = 1:    sqlCode &= String.Format([Ô]ENDERECO like [ô]*{0}[ô][Ô], TXT_PESQUISAR.Text)
        Case Is = 2:    sqlCode &= String.Format([Ô]CEP like [ô]*{0}[ô][Ô], TXT_PESQUISAR.Text)
    End Select
    PreencheReport(sqlCode)
[ô]...
[ô]...
   Sub PreencheReport(ByVal seleção As String)
        Dim myDS As New Dataset1()
        Dim provedor As String = [Ô]Provider=Microsoft.OleDb.4.0;Data Source={0};[Ô]
        Dim db As String = [Ô]caminho até o banco de dados[Ô]
        Dim cs As String = String.Format(provedor, db)
        Using cn As New OleDbDataAdapter(seleção, cs)
             MyDA.Fill(myDS, [Ô]Query1[Ô])
        End Using
        Dim oRpt As New CrystalReport1()
        oRpt.SetDataSource(myDS)
        Me.CrystalReportViewer1.ReportSource = oRpt
        [ô] ...
   End Sub
[ô]...
Faça seu login para responder
Voltar