|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Impressões/Impressoras)
|
|
 |
Título da Dica: Crystal Report 10 - Passando parametros para um objeto DESIGNS crviwer
|
 |
|
|
|
Postada em 10/6/2005 por Sérgio Jr.
'Após criar um relatório e chamalo através do menu PROJECT do VB
'Será criado um novo FORM com o Objeto CRVIWER.DLL e um Objeto DESIGNERS esse objeto deve chamar-se
'CrystalReport1 para o código abaixo funcionar
'No meu exemplo o relatório irá pegar os dados da Tabela Clientes
'do MDB Dados que está na mesma pasta do Aplicativo EXE
'
'Na verdade oque quero mostrar é como definir via código
'Parametros para o DESIGNERS
'Neste exemplo o meu relatório irá mostrar apenas o registro cujo
'Nome seja igual ao Valor informado na Caixa de Texto ( txtNome.Text )
'Você pode substituir essa caixa de texto por uma variável ou valor
'Direto na string SQL
'
'
'Coloque esse código no Form criado com o obejto CRVIWER.DLL
'
'OBS: Esse relatório foi feito em CrystalReport 10 e Visual Basic 6
'Usando o Windows XP SP2
'
Option Explicit
Dim m_Report As New CrystalReport1
Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset
Private Sub Form_Load()
Dim xCam As String
If Right(App.Path, 1) <> "" Then
xCam = App.Path & "Dados.mdb"
Else
xCam = App.Path & "Dados.mdb"
End If
Dim SQL As String
Dim strConnect As String
'Cria a conexão usando o objeto ADO Recordset
'Não esqueça de fazer referência a esse objeto
'
Set m_Connection = New ADODB.Connection
Set adoRS = New ADODB.Recordset
' Abri a conexão
'
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & xCam & ";Mode=Read"
m_Connection.Open strConnect
SQL = "Select * from Clientes Where Nome = '" & txtNome.Text & "'"
adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic
m_Report.Database.SetDataSource adoRS
'Carrega o Crystal Report
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
'Fim
Tentei...
|
|
|
|
|
