I-BEGO

minta bantuan lagi om om

bagaimana cara membuat laporan yang menampilkan foto yang path fotonya saya ambil dari database..
jadi nanti yang keluar fotonya bukan path fotonya...
mohon bantuannya..

make vb ap ???
klo d vb6 tinggal tempel saja d CR nya,
klo d vb.Net mke datasets

pake vb6 om
tempelin pake komponen atau script?
klo ngeloadnya langsung dari crystal report gak bisa ya??

td uda dpt script dari forum lain
ne code nya

Code: Select all

Private Sub Section10_Format(ByVal pFormattingInfo
> As Object)
>     Set PicHeader.FormattedPicture =
> LoadPicture(Field1.Value)
>     Set Picture1.FormattedPicture =
> LoadPicture(Field1.Value)
> End Sub

bagaimana dg code ini??
dan jika nanti pathnya berubah ada errornya gak??
mohon bantuannya,,

yang d simpan pathny ato binary ny ?

trail wrote:yang d simpan pathny ato binary ny ?

path nya om

klo gitu kita tunggu om tatang saja y....

trail wrote:klo gitu kita tunggu om tatang saja y....

dulu

Kalo Pake Crystal Report bisa lansung pathnya diLoad, Klik aja pada posisi yg akan diLoad nanti muncul Section Berapa. Misal ini contoh Section5

ini menggunakan Koding dalam Form
Buat prosedure seperti ini

Code: Select all

Private Sub sect_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
    Dim bmp As StdPicture
    With sect.ReportObjects
        Set .Item("Picture1").FormattedPicture = LoadPicture(App.Path & "\Foto\Blank.gif") 'default
        If .Item("adoFileName").Value <> "" Then
            Set bmp = LoadPicture(App.Path & "\Foto\" & .Item("adoFileName").Value)
            Set .Item("Picture1").FormattedPicture = bmp
        End If
    End With
End Sub

Nanti tinggal dipanggil aja prosedurenya

Code: Select all

Set db = rpt.Database
Set sect = rpt.Sections("Section5")
sect_Format sect

Mudah-mudahan dapat dimengerti

Post tatangs telah mendapat kopi dari:

trail

tatangs wrote:Kalo Pake Crystal Report bisa lansung pathnya diLoad, Klik aja pada posisi yg akan diLoad nanti muncul Section Berapa. Misal ini contoh Section5

ini menggunakan Koding dalam Form
Buat prosedure seperti ini

Code: Select all

Private Sub sect_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
    Dim bmp As StdPicture
    With sect.ReportObjects
        Set .Item("Picture1").FormattedPicture = LoadPicture(App.Path & "\Foto\Blank.gif") 'default
        If .Item("adoFileName").Value <> "" Then
            Set bmp = LoadPicture(App.Path & "\Foto\" & .Item("adoFileName").Value)
            Set .Item("Picture1").FormattedPicture = bmp
        End If
    End With
End Sub

Nanti tinggal dipanggil aja prosedurenya

Code: Select all

Set db = rpt.Database
Set sect = rpt.Sections("Section5")
sect_Format sect

Mudah-mudahan dapat dimengerti

trims om tatangs, tak coba dulu. semoga dapat dmengerti.

om tatang