RELATORIOS EM HTML

LEONARDOSILVEIR 22/11/2010 21:51:03
#358009
Pessoal já pesquisei em todo o fórum, porém nao encontrei a maneira de criar um relatório HTML, atraves das informaçoes do meu banco de dados, preciso de ajuda para criar tal relatorio em html no vb.net
No VBA eu criava da seguinte forma:

Public Sub Workflow_Contratos_Contabilidade()

Dim sql As String
Dim fnum As Integer
Dim num_fields As Integer
Dim I As Integer
Dim num_processados As Integer
Dim caminho_relat

fnum = FreeFile


caminho_relat = (ThisWorkbook.Path & [Ô]\RELATORIOS RECEB\Relatórios.htm[Ô])
Open caminho_relat For Output As #fnum

[ô] Escreve o cabeçalho da página HTML
Print #fnum, [Ô]<HTML>[Ô]
Print #fnum, [Ô]<HEAD>[Ô]
Print #fnum, [Ô]<TITLE>Relatório de dados</TITLE>[Ô]
Print #fnum, [Ô]</HEAD>[Ô]
Print #fnum, [Ô]<body>[Ô]

Print #fnum, [Ô]<IMG SRC=[ô]http://xxxxxx.xxxxx.com.br/imgMMC//topo/topo_logo.jpg[ô]alt= [ô]x[ô]>[Ô]
Print #fnum, [Ô]<IMG SRC=[ô]http://xxxxxx.xxxxx.com.br/imgMMC//banner/banner_108_1.jpg[ô]alt= [ô]cc[ô]>[Ô]

Print #fnum, [Ô]<font color=[ô]#FF0000[ô]><h4 align=[ô]center[ô]>..:: Contrato Aguardando Aprovação Contábil ::..</h4></font><hr />[Ô]
Print #fnum, [Ô]<table style=background-color= rgb(204, 204, 204) width= 90% border=1 cellpadding=1 cellspacing=1>[Ô]
Print #fnum, [Ô][Ô]


Dim RsTemp As New ADODB.Recordset

Set RsTemp = Conexao.Execute([Ô]SELECT ID_LANCAMENTO, DESCR_MODAL, ESPECIE_CONTR, ID_FORNECEDOR, NOME_FORNECEDOR, CNPJ_FORNECEDOR, VALOR_CONTRATO, DATA_ASSINATURA, DATA_VENCIMENTO FROM MMC_CONTRATOS WHERE FLAG_CONTABIL LIKE [ô]Não[ô] AND ID_LANCAMENTO LIKE [ô][Ô] & Form_Cadastro_Contratos.ID_LANCAMENTO.Text & [Ô][ô] ORDER BY ID_LANCAMENTO ASC[Ô])
If RsTemp.EOF Then
GoTo Final
End If

Print #fnum, [Ô]<TR>[Ô] [ô] inicia uma linha
num_fields = RsTemp.Fields.Count
Print #fnum, [Ô]</TH>[Ô]
Print #fnum, [Ô]</TR>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>ID Contrato<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Descr. Modal<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Espécie<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>ID Forn.<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Nome Curto<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>CNPJ<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Valor<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Data Assinatura<small></th>[Ô]
Print #fnum, [Ô]<th style= Font-Weight = Bold ><small>Data Vencimento<small></th>[Ô]


[ô] processa os registros da tabela
Do While Not RsTemp.EOF
num_processados = num_processados + 1
[ô] Começa uma nova linha
Print #fnum, [Ô] <TR>[Ô];
For I = 0 To num_fields - 1
Print #fnum, [Ô]<td><small><small>[Ô]
Print #fnum, RsTemp.Fields(I).Value;
Print #fnum, [Ô]</small></small></td>[Ô]
Next I
Print #fnum, [Ô]</TR>[Ô];

RsTemp.MoveNext
Loop

[ô] Encerra a tabela
Print #fnum, [Ô]</TABLE>[Ô]
Print #fnum, [Ô]<P>[Ô]
Print #fnum, [Ô]<H4>[Ô] & _
Format$(num_processados) & _
[Ô] registros processados.</H4>[Ô]
Print #fnum, [Ô]<HR COLOR=#d000>[Ô]
Print #fnum, [Ô]</BODY>[Ô]
Print #fnum, [Ô]</HTML>[Ô]

[ô] Fecha a tabela e a base de dados
Final:
RsTemp.Close
Close fnum

Conexao.Close
LEONARDOSILVEIR 24/11/2010 00:00:53
#358086
Alguém pra me ajudar?
TECLA 24/11/2010 11:22:45
#358108
VB6 OU .NET?
FOXMAN 24/11/2010 14:27:00
#358121
Amigo, veja se este exemplo te ajuda.




Baixar Exemplo
LEONARDOSILVEIR 24/11/2010 18:44:05
#358160
Preciso gerar atraves de um formulario + gridview do Vb.net!
ESLEYSANCHES 24/11/2010 21:41:37
#358172
Tah pronto amigão, ficou legal até, vou usar tbm. rsrsrs
Segue ele em anexo.
Claro que agora vc da uma incrementada nele com backgrounds, estilos CSS, efeitos e por ai vai. rsrs


Flw abraços !!!
SERGIO 24/11/2010 23:22:29
#358179
Citação:

:
Tah pronto amigão, ficou legal até, vou usar tbm. rsrsrs
Segue ele em anexo.
Claro que agora vc da uma incrementada nele com backgrounds, estilos CSS, efeitos e por ai vai. rsrs


Flw abraços !!!


excelente brother
ESLEYSANCHES 29/11/2010 00:47:23
#358374 Resposta escolhida
Amigo não esqueça de encerrar o tópcio se sua dúvida foi solucionada

Flw abraços !!!
LEONARDOSILVEIR 29/11/2010 19:37:34
#358439
Muito Obrigado pela força galera. Estive meio sem tempo pra testar, mas consegui fazer e deu tdo certo.
Tks.
Tópico encerrado , respostas não são mais permitidas
Voltar