Como preencher dinamicamente um relatório de dados de grupo no Visual Basic

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 289793
Sumário
Este artigo explica como criar um relatório de dados do grupo por meio de programação sem ligá-lo para quaisquer dados em tempo de design.
Mais Informações

Exemplo passo a passo

  1. Abra um projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
  2. Adicione um botão de comando ao Form1.
  3. No menu Project , clique em referências e, em seguida, adicionar uma referência ao Microsoft ActiveX Data Objects Library .
  4. No menu Project , clique para adicionar DataReport1. Se Adicionar Datareport não está no menu Project , adicioná-lo na guia designers localizada no menu projeto em componentes . (Certifique-se de desmarcar Somente itens selecionados no menu projeto em componentes .)
  5. Abra Datareport1 e garantir que as seções detalhe , Cabeçalho da página e Rodapé da página fiquem visíveis. Se as seções de Cabeçalho ou rodapé estiverem visíveis, removê-los clicando com o botão direito do mouse o relatório e removendo a marca de seleção de Mostrar cabeçalho/rodapé do relatório .
  6. Clique com o botão direito do mouse e selecione Inserir cabeçalho/rodapé de grupo . Uma nova seção, Section4, é adicionada ao Datareport.
  7. Adicione um controle rptLabel e um controle rptTextbox para a nova seção.
  8. Adicione dois controles rptLabel e rptTextbox dois controles à seção detalhe do Datareport.
  9. Copie e cole o código a seguir no formulário:
          Dim cn As New ADODB.Connection      Dim rs As New ADODB.Recordset      Dim cmd As New ADODB.Command      Dim rs1 As New ADODB.Recordset      Private Sub Command1_Click()      Dim q As Integer      Dim intCtrl As Integer      Dim x As Integer      Dim z As Integer      x = 0      q = 0      z = 0      With DataReport1      .Hide      Set .DataSource = rs      .DataMember = ""      With .Sections("section4").Controls      For intCtrl = 1 To .Count      If TypeOf .Item(intCtrl) Is RptLabel Then         .Item(intCtrl).Caption = "City" & " :"          q = q + 1      End If      If TypeOf .Item(intCtrl) Is RptTextBox Then        .Item(intCtrl).DataMember = ""        .Item(intCtrl).DataField = "City"      End If      Next      End With            q = 0      With .Sections("Section1").Controls          For intCtrl = 1 To .Count          If TypeOf .Item(intCtrl) Is RptLabel Then                   .Item(intCtrl).Caption = rs1.Fields(q).Name & " :"                    q = q + 1          End If          If TypeOf .Item(intCtrl) Is RptTextBox Then                   .Item(intCtrl).DataMember = "Command1"                   .Item(intCtrl).DataField = rs1(z).Name                   z = z + 1          End If      Next intCtrl      End With      .Refresh      .Show      End With      End Sub      Private Sub Form_Load()      Command1.Caption = "Show Report"      cn.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _               "Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;"             With cmd           .ActiveConnection = cn           .CommandType = adCmdText           .CommandText = " SHAPE {SELECT FirstName,Lastname,City FROM `Employees`}  AS Command1 COMPUTE Command1 BY 'City'"           .Execute      End With             With rs           .ActiveConnection = cn           .CursorLocation = adUseClient           .Open cmd      End With      Set rs1 = rs(0).Value      End Sub					
Referências
Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
240019Como preencher dinamicamente um relatório de dados no Visual Basic

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 289793 - Última Revisão: 07/15/2004 20:01:58 - Revisão: 3.3

Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 3, Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4, Microsoft ActiveX Data Objects 2.0, Microsoft ActiveX Data Objects 2.1, Microsoft ActiveX Data Objects 2.1 Service Pack 2, Microsoft ActiveX Data Objects 2.5, Microsoft ActiveX Data Objects 2.6, Microsoft ActiveX Data Objects 2.7

  • kbmt kbhowto kbreport KB289793 KbMtpt
Comentários