|
|
|
|
|
|
|
|
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
|
|
|
|
|
