Gerando Relatorio Datareport Com Dados Do Recordset

[Macêdo]

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

[Guii]

Segui o código passo a passo, está acusando este erro:

Run-timer Error '3001':

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito

Debug marca a linha :

.ActiveConnection = cnn_paciente

Me Ajude preciso muito emitir os filtros no relatório

Editado Outubro 25, 2007 por Guii