ERRO USANDO WEBBROWSER

FAUSTOARAXA 23/02/2010 11:38:59
#335123
Ola amigos do forum bom no mais queria agradecer a todos que estam me ajudano aqui no forum com meu sistema

O meu problema é o seguinte

estou na parte que monta relatorio esta quase todo funcional o codigo segue abaixo com o erro

Dim fnum As Integer
Dim num_fields As Integer
Dim i As Integer
Dim num_processados As Integer
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset

[ô] Abre o arquivo de saida

fnum = FreeFile
Open [Ô]C:\Pdv\Relatorio\produto.htm[Ô] For Output As #fnum

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

Print #fnum, [Ô][Ô]
Print #fnum, [Ô]<BODY TEXT=#000000 BGCOLOR=#FFFFFF>[Ô]
Print #fnum, [Ô]<H1>Gerador de Relatório para Impressão</H1>[Ô]

[ô] Inicia a geração da tabela HTML
Print #fnum, [Ô]<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BGCOLOR=#FFFFFF BORDER=1>[Ô]

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô] abre a base de dados[ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]

Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnPDV
.CommandType = adCmdText
[ô]Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = [Ô]SELECT * FROM PRODUTO[Ô]

Set rsSelecao = .Execute

If Not rsSelecao.EOF Then
P1 = rsSelecao([Ô]P1[Ô])
End If

[ô] Usa o nome dos campos como cabeçalho das colunas
Print #fnum, [Ô] <TR>[Ô] [ô] inicia uma linha
num_fields = rsSelecao.Fields.Count
For i = 0 To num_fields - 1
Print #fnum, [Ô] <TH>[Ô];
Print #fnum, rsSelecao.Fields(i).Name;
Print #fnum, [Ô]</TH>[Ô]
Next i
Print #fnum, [Ô] </TR>[Ô]

[ô] processa os registros da tabela
Do While Not rsSelecao.EOF
num_processados = num_processados + 1
[ô] Começa uma nova linha
Print #fnum, [Ô] <TR>[Ô];

For i = 0 To num_fields - 1
Print #fnum, [Ô] <TD>[Ô];
Print #fnum, rsSelecao.Fields(i).Value;
Print #fnum, [Ô]</TD>[Ô]
Next i
Print #fnum, [Ô]</TR>[Ô];

rsSelecao.MoveNext
Loop

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô] Encerra a tabela[ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]

Set rsSelecao = Nothing
Set cnnComando = Nothing
Screen.MousePointer = vbDefault

Print #fnum, [Ô]</TABLE>[Ô]
Print #fnum, [Ô]<P>[Ô]
Print #fnum, [Ô]<H3>[Ô] & _
Format$(num_processados) & _
[Ô] registros processados.</H3>[Ô]
Print #fnum, [Ô]<HR COLOR=C000C0>[Ô]
Print #fnum, [Ô]<A HREF=http://www.geocities.com/SiliconValley/Bay/3994>FaustoSoft</A>.[Ô]

Print #fnum, [Ô]</BODY>[Ô]
Print #fnum, [Ô]</HTML>[Ô]

[ô] Fecha a tabela e a base de dados

Close fnum

MsgBox [Ô]Foram Processados [Ô] & _
Format$(num_processados) & [Ô] registros.[Ô], vbExclamation, [Ô]JcmSoft[Ô]


WebBrowser1.Navigate2 = [Ô]C:\Pdv\Relatorio\produto.htm erro nesta linha a linha que chama o navegador para aparece no form relatorio

erro 424 object requirid

Exit Sub
End With
End Sub

o resto do codigo esta todo funcional porque quanto eu abro o arquivo produto.html ele abarce certo o relatorio so que tenho que ir na pasta onde ele esta e abrir por isso que sei que esle esta certo amigos me de um help
MARCELO.TREZE 23/02/2010 11:44:26
#335124 Resposta escolhida
colega vc colocou um objeto webbrowser no seu projeto?
FAUSTOARAXA 23/02/2010 12:16:53
#335128
sim amigo ainda da erro

WebBrowser1.Navigate2 = [Ô]C:\Pdv\Relatorio\produto.htm erro nesta linha a linha que chama o navegador para aparece no form relatorio

da erro aqui .Navigate2 ai eu troco coloco navegate tb da erro oque pode ser
TECLA 23/02/2010 15:00:00
#335143
Experimente tirar o [Ô]=[Ô].
Exemplo:

WebBrowser1.Navigate [Ô]google.com.br[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar