PATH NOT FOUND [ô]76[ô]

TUNUSAT 07/09/2015 12:02:32
#451110
ROBSONSLZ,,

Agora sim. Consegui rodar o ActiveReport e rodar o programa.
Descobri o seguinte (abaixo), observando no menu [Ô]Immediate[Ô]:
===================================
? DataControl1.Recordset!FotoA
Fotos\01.jpg
===================================

Este caminho realmente está errado para o comando:
Set Image1.Picture = LoadPicture(DataControl1.Recordset!FotoA)


Acredito que o certo é:
Set Image1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & DataControl1.Recordset!FotoA)


O [Ô]View Code[Ô] completo do ActiveReport1 ficou assim:

Private Sub ActiveReport_FetchData(EOF As Boolean)

   If EOF = False Then
      Set Image1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & DataControl1.Recordset!FotoA)
   End If

End Sub


Eu fiz uma modificação também nos ConnectionsStrings dentro do Ícone (objeto) que fica dentro do relatório, mudei esta escrita:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=banco.mdb;Persist Security Info=False


Para esta escrita (indicando o caminho completo do Banco de dados:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ActiveReport2\Exemplo\banco.mdb;Persist Security Info=False


Dentro do código-fonte do relatório 2 fiz a mesma coisa:

Private Sub ActiveReport_FetchData(EOF As Boolean)

   If EOF = False Then
      [ô]Set Image1.Picture = LoadPicture(DataControl1.Recordset!FotoB)
      Set Image1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & DataControl1.Recordset!FotoB)
   End If

End Sub


Funcionaram aqui os dois relatórios.

[][ô]s,
Tunusat.
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar