filhinho
|
PONTA PORÃ
MS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2005 12:33 hs
Alou galera.
Tenho que entregar um relatório antes do dia 30/12 e eu fiz no crystal report 10 e banco de dados mysql.
Até ai blza.
Só que eu não sei como eu faço pra chamar o relatório usando o VB6.
Obs. : O controle do Crystal viewer ja foi incluido no projeto. O que eu preciso são as linhas de comandos para mostrar o relatório.
Valeu
|
|
|
|
|
|
|
|
Postada em 27/12/2005 12:56 hs
Em um módulo Public Relatorio As CRAXDDRT.Report
Aqui no meu caso eu uso TextBox Screen.MousePointer = vbHourglass
FrmVisu!CRViewer91.ReportSource = CrystalReport1
Set Relatorio = CrystalReport1
If txtDtInic.Text = "" And txtDtFin.Text = "" Then
MsgBox ("Campo datas Invalidos "), 64, "Relatório"
Exit Sub
Else
Sql = "select * from SuaTabela where SeuCampo >= #" & FrmRelVendas!txtDtInic.Text & "# and SeuCampo <= #" & FrmRelVendas!txtDtFin.Text & "#"
End If
If RS.State <> adStateClosed Then RS.Close
Set RS = Nothing
Set RS = New ADODB.Recordset
RS.Open Sql, Conexao, adOpenKeyset ' conexao é a minha conexao, você deve usar a sua !
CrystalReport1.Database.SetDataSource RS
FrmVisu!CRViewer91.ViewReport
DoEvents
FrmVisu!CRViewer91.Refresh
Screen.MousePointer = vbDefault
Repare que no select eu uso uma outra tela para fazer a pesquisa por data, então você pode fazer uma sub tipo ConectaData e colocar esse código nela, nas TextBox no evento Keyascii você coloca a sub nela. Espero que ajude. |
|
|
|
|
|
Postada em 27/12/2005 12:58 hs
Na seção de dicas tem um tópico exclusivo só para o crystal.. Tem tudo que voce precisa por lá. De um pesquisada.. Um abraço.. |
|
|
|
filhinho
|
PONTA PORÃ
MS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2005 13:33 hs
Valeu galera :)
|
|
|
|
filhinho
|
PONTA PORÃ
MS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/12/2005 13:59 hs
Valeu pela ajuda, mas o que eu to precisando é chamar um arquivo RPT criado no crysta report 10 e com banco de dados mysql.
No exemplo acima, ele cria um viewer diretamente do objeto ADODB.
Já procurei muito na internet e até agora não consegui achar.
Valeu pela atenção.
|
|
|
|
