AJUDA COM IMGENS NO DATA REPORT
galera estou fazendo dessa forma mais so aparece uma imgem se no banco estiver 6 so aparece uma oque estou fazendo errado
Dim db_file As String
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
Set RS = conn.Execute([Ô]SELECT * FROM OSENTRA WHERE OSN =[ô][Ô] & A & [Ô][ô][Ô], , adCmdText)
[ô] Connect the Recordset to the DataReport.
Set rptdinamico.DataSource = RS
rptdinamico.WindowState = vbMaximized
With rptdinamico.Sections([Ô]section1[Ô])
Set .Controls([Ô]Image1[Ô]).Picture = LoadPicture(RS.Fields(27).Value)
End With
rptdinamico.Show vbModal
RS.Close
conn.Close
Exit Sub
End If
Dim db_file As String
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
Set RS = conn.Execute([Ô]SELECT * FROM OSENTRA WHERE OSN =[ô][Ô] & A & [Ô][ô][Ô], , adCmdText)
[ô] Connect the Recordset to the DataReport.
Set rptdinamico.DataSource = RS
rptdinamico.WindowState = vbMaximized
With rptdinamico.Sections([Ô]section1[Ô])
Set .Controls([Ô]Image1[Ô]).Picture = LoadPicture(RS.Fields(27).Value)
End With
rptdinamico.Show vbModal
RS.Close
conn.Close
Exit Sub
End If
alguemmm
Citação:mais so aparece uma imgem se no banco estiver 6 so aparece uma oque estou fazendo errado
Explica melhor isso.
uma os numero ex: 000001 nessa ordens muitos itens e todos como imagem entao imprir um relario de itens nessa os com as
imagens dos produtos
imagens dos produtos
1º-Qual o banco de dados
2º-Nesse campo armazena o caminho da imagem ou é Campo tipo blob.
2º-Nesse campo armazena o caminho da imagem ou é Campo tipo blob.
so o caminho to usando o acess
Eu não trabalho com vb6 e crystal a muito anos, e nunca utilizei de maneira dinamica, desculpe se não puder ajudar, mas
me parece que o problema ai, é que vc não faz um looping nos registros para carregar hum a hum.
Assim vc só determina o carregamento do RS.Fields(27).
me parece que o problema ai, é que vc não faz um looping nos registros para carregar hum a hum.
Assim vc só determina o carregamento do RS.Fields(27).
Tópico encerrado , respostas não são mais permitidas