RELATORIO VB6 COM DATA REPORT COM VARIAVEIS
Olá
Podem ajudar a criar um relatorio com o data report , consultei pela internet mas não encontrei exemplos com passagem de parametros.
Tenho o banco de dados onde realizo uma consulta com dois paramentros e preciso gerar o realtorio no data report .
Consultei o site macoratti um exemplo mas a conexão fica aberta e esta com um parametro só.
[txt-color=#0000f0]Precisava realizar a consulta e preencher o relatorio com os dados encontrados na consulta[/txt-color]
Cod encontrado no site:
Private Sub cmdImprimir_Click()
With rptdinamico
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = rsdyn.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = rsdyn.Fields(i - 1).Name
End If
Next i
End With
.Show
End With
End Sub
grato:
Bruno
Podem ajudar a criar um relatorio com o data report , consultei pela internet mas não encontrei exemplos com passagem de parametros.
Tenho o banco de dados onde realizo uma consulta com dois paramentros e preciso gerar o realtorio no data report .
Consultei o site macoratti um exemplo mas a conexão fica aberta e esta com um parametro só.
[txt-color=#0000f0]Precisava realizar a consulta e preencher o relatorio com os dados encontrados na consulta[/txt-color]
Cod encontrado no site:
Private Sub cmdImprimir_Click()
With rptdinamico
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = rsdyn.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = rsdyn.Fields(i - 1).Name
End If
Next i
End With
.Show
End With
End Sub
grato:
Bruno
Uma sugestão seria você alimentar um RECORDSET com uma consulta na base de dados, e passar este objeto como DATASOURCE do REPORT.
Já tentou fazer desta forma?
Encontrou alguma dificuldade?
Já tentou fazer desta forma?
Encontrou alguma dificuldade?
Tópico encerrado , respostas não são mais permitidas