Relatórios x Dados no BD Access - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Relatórios x Dados no BD Access

70tenta

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 16/10/2007 15:52 hs

Boa tarde, pessoal. Estou com dúvidas... é que estou em fase de construção de relatórios para um projeto de curso, mas não sei como selecionar dados para jogar em um relatório através de textbox, ou seja, tenho os campos do cadastro de um livro (autor, nome, ano, editora, agradecimentos etc.) e depois que eu selecionar o registro no banco de dados, jogar em um relatório do crystal para imprimir. Sei que tenho que criar uma fórmula no crystal (tipo: PegaDados) e depois referenciar ela no código dentro do vb... É aí que mora minha dúvida. Como criar o código para pegar o valor de cada text das textboxes e inserir no relatório?!

CarlinhosBrown

ALTO PARAÍSO DE GOIAS
GO - BRASIL

Postada em 16/10/2007 17:57 hs

Eai blz....

eu faço assim:

Dim AnoSel As Variant
AnoSel = App.Path & "Alm.mdb" SEU BANCO DE DADOS

    Dim NrPront As String
    NrPront = trim(text1.text)   SUA TEXT COM DADO PARA O FILTRO DA FORMULA

        With CrystalReport1
              .Connect = "MS Access;pwd=82621932"
              .SelectionFormula = "{CadEncaminhamento.Atend} >=" & NrPront & ""
              .ReportFileName = App.Path & "RelEncaminhamento.rpt"
              .DataFiles(0) = AnoSel
              .CopiesToPrinter = 1
              .DiscardSavedData = True
              .Destination = crptToWindow
              .WindowState = crptMaximized
              .WindowTitle = "Relação dos Encaminhamentos"
              .Action = 1
              AnoSel = Empty
        End With

Qualquer duvida estamos ai.....

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site