USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Gerando relatórios com dados do Recordset
Postada em 10/10/2007 por JOM            
abra um recordset para chamar os dados do BD para impressão

general declarations:

Dim cmd_relatorio As New ADODB.Command
Dim rs_relatorio As New ADODB.Recordset

No Form_Load:

Private Sub Form_Load()
With cmd_relatorio
.ActiveConnection = cnn_Sua_Connexão
.CommandType = adCmdText
.CommandText = "Select campo1, campo2, campo3 from Tabela"
Set rs_relatorio = .Execute
End With

End Sub

Agora insira um DataReport em seu Projeto e ponha uma textbox para cada campo de sua tabela, neste exemplo são três. Depois coloque na Propriedade DataField de cada text o nome do campo da tabela que será impresso no relatorio, assim:

ex:
text   = DataField

text1 = campo1
text2 = campo2
text3 = campo3

agora é só chamar o relatório com o botão no form:

Private Sub Cmd_relatorio_Click()

With DataReport1
    Set .DataSource = rs_relatorio
    .DataMember = ""
    .Refresh
    .Show
End With
End Sub

Beleza? já viu que jogando todo tipo de filtro no Recordset da pra fazer muita coisa com esse relatório né?...Bons estudos

Macêdo
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página