Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Jvinhais

AJUDA ! Criar uma page html pelo vb e colocar imagens da base de dados

Recommended Posts

Jvinhais

Entao a minha duvida e saber como posso ir buscar a base de dados as imagens k estao guardadas la e colocalas no html

Fica aqui o codigo espero que alguem possa ajudar

Private Sub Command1_Click()
'Cria o novo txt temporário na pasta temporaria do sistema
Open App.Path & "\relatorio.html" For Output As #1
'Manda para o arquivo de texto
Print #1, "<html>"
Print #1, "<head>"
Print #1, "    <title>Relatório de dados</title>"
Print #1, "</head>"
Print #1, "<body>"
Print #1, "<font color='#FF0000'><h2 align='center'>..:: Relatório de dados ::..</h2></font><hr />"
Do While Not Data1.Recordset.EOF
    Print #1, "<b>Nome: </b>" & Data1.Recordset("Nome")
    Print #1, "<br />"
    Print #1, Data1.Recordset("Nome")
    
    Print #1, "<p><img border=" & "DUVIDA "></p>"
    
    Data1.Recordset.MoveNext
Loop
Print #1,
Print #1, "</body>"
Print #1, "</html>"
'Fecha o arquivo de texto para gravar os dados
Close

If MsgBox("Relatório gerado com sucesso, posso exibi-lo agora ?", vbQuestion + vbYesNo, "Confirmação !!") = vbYes Then
    Shell ("explorer.exe " & App.Path & "\relatorio.html")
    Exit Sub
Else
    If MsgBox("Deseja finalizar o programa agora ?", vbQuestion + vbYesNo, "Sair ?") = vbYes Then
        End
    Else
        Exit Sub
    End If
End If

End Sub

Espero k alguem ajude !

Share this post


Link to post
Share on other sites
programadorvb6

Preciso de :

1ª Estrotura da BD

2º Como agregas-te as imagens á BD  (Codigo) ex: Como tizeram no FM08

Pecebeste pelo menos  o que escreveste em cima????? , ou o código foi copiado de outro lado ?

Caso não entendas pêvas do que apresentas-te  isto não te irá ajudar.

Link : http://www.box.net/shared/la8729v2cy

Até+

Programadorvb6

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.