GERAR TTX ,CRYSTAL REPORTS 10

PARREIRA 07/05/2010 10:30:34
#341177
Bom dia!!
Pessoal ,alguêm sabe quais comando tenho que usar para colocar os dados de um recordset em um relatorio crystal reports através do ttx?,Ja criei os campos no crystal tu beleza,mas não sei como jogos os dados para o relatório,alguêm pode me ajudar?
FERRAZ 07/05/2010 11:02:33
#341185 Resposta escolhida
PARREIRA, olha neste link vc tera um passo a passo de como fazer o que vc deseja:

http://www.vbweb.com.br/artigos/view_article.asp?aid=298


Bom trabalho.
PARREIRA 07/05/2010 11:05:19
#341187
Eu ja dei uma olhada nesse link,porem não deu certo,não sei o que significa esse crystal.
FERRAZ 07/05/2010 20:14:41
#341257
PARREIRA, veja no link abaixo como vc monta seu report tipo .ttx

http://yfrog.com/5bimgreportttxj

Eu criei um report.ttx e mostro com imagens como fazer isto, veja o link acima colega.
FERRAZ 12/05/2010 11:08:39
#341562
Citação:

PARREIRA, desculpa pois nao havia entendido exatamente o que vc deseja, mais enfim, tenho um caminho para vc resolver seu problema, caso tenha duvidas ainda, como seu topico ainda esta aberto, vou lhe mostrar como fazer.



Citação:

Agora vc vai precisar fazer algumas alteracoes como seu tipo de banco e suas tabelas. Nao esquecendo que ao concluir a estrutura de seu arquivo .ttx no crystal vc tem que deixar igual na sua montagem da sql, digo campos identicos a sua tabela ok.



[Ô]Na Guia General Declarations[Ô]

Dim CRApp As CRAXDDRT.Application
Dim ReportDb As CRAXDDRT.Database
Dim ReportRs As CRAXDDRT.DatabaseTable
Dim Report As CRAXDDRT.Report

Dim StrRelat As String

[Ô]No seu form de abertura do seu report[Ô]

Private Sub Command1_Click()

Dim conn As ADODB.Connection
Dim SQL As String
Dim TabRelatorio As ADODB.Recordset
Set conn = New ADODB.Connection

conn.ConnectionString = [Ô]Provider=DAO ou ADO;Password=Sua Senha do Bd;User ID=Seu ID;Data Source=Qual Bd ?[Ô]
conn.Open

SQL = [Ô]Select Campo1, Campo2, Campo3, Campo4, _
                            Campo5, Campo6, Campo7, Campo8 _
                            FROM Sua Tabela[Ô]

Set TabRelatorio = New ADODB.Recordset
TabRelatorio.CursorLocation = adUseServer
TabRelatorio.Open SQL, conn, adOpenDynamic, adLockReadOnly

StrRelat = App.Path & [Ô]\Seu Report.rpt[Ô]
Set CRApp = New CRAXDDRT.Application
Set Report = CRApp.OpenReport(StrRelat)
Set ReportDb = Report.Database
    
ReportRs.SetPrivateData 3, TabRelatorio

Screen.MousePointer = 0


End Sub


PARREIRA, eu nao fiz uns testes aqui no trabalho, pq so tenho crystal 4.6 e nele nao eh possivel
criar um arquivo .ttx, so em versoes mais recentes.

Agora o caminho eh este para vc trabalhar com arquivos .ttx no crystal report, bom trabalho colega.
PARREIRA 13/05/2010 09:07:34
#341642
È por ai mesmo Ferraz,fiz aqui no meu mas não deu certo,Deve ser a versão do Crystal,mas obrigado pelo ajuda cara!
Tópico encerrado , respostas não são mais permitidas
Voltar