RELATORIO

CESARCOFFEE 29/12/2009 15:37:22
#330682
estou precisando de ajuda para aprender a criar relatorio no vb 6
CESARCOFFEE 29/12/2009 16:18:39
#330687
estou tentando criar no data reports com access

grato
FERRAZ 29/12/2009 17:58:51
#330698
CESARCOFFEE, veja esta dica que o site disponibiliza, acho que ira resolver seu problema.

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7616
CESARCOFFEE 30/12/2009 10:22:16
#330737
eu sou iniciante em vb 6 tenho um pouco de experiencia em dos,,, vc me pediu ,,
abra um recordset para chamar os dados do BD para impressão,,,,
ok faço para abrir
FERRAZ 30/12/2009 10:38:20
#330739
Bom, vc esta usando o access com o vb6 correto, agora descreva o seu codigo para chamar o access (Recordset), para ficar mais facil o entendimento, pois com isso, montaremos seu DataReport.
CESARCOFFEE 30/12/2009 10:42:24
#330740
eu estou precisando saber como abrir o recordset ,,
SERGIO.CARDOSO 30/12/2009 10:44:17
#330741
http://www.macoratti.net/dao_ado2.htm
CESARCOFFEE 30/12/2009 10:45:29
#330742
ferraz ,, vc tem como me encinar a localizado help em portugues do vb 6 ,,, o meu nao instalou o msdn ,, acho eu que com uma ajuda como tinha o livro do clipper5,, todos os comandos,,, eu trabalharia melhor


grato pelo apoio
FERRAZ 30/12/2009 10:57:49
#330743
Na guia general declarations coloque isso:

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


Para chamar um DataReport eh assim:
No vb6 clique em project, depois em [Ô]Add DataReport[Ô].
Ponha em seu Projeto uma textbox para cada campo de sua tabela, neste exemplo sao tres. Depois coloque na Propriedade DataField de cada text o nome do campo da tabela que sera 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


Este eh um exemplo do macedo, que esta disponivel aqui no site, tente e veja se funciona bem ai pra vc.
FERRAZ 30/12/2009 14:46:52
#330759
CESARCOFFEE, olha, eu nao conheco um help em portugues do vb6, e se nao me falha a memoria, o vb6 nao acompanha o msdn mais fica tranquilo, vc pode iniciar com esta ferramenta aqui que achei interessante veja:

http://superdownloads.uol.com.br/download/38/curso-visual-basic-6/
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar