Dear yanti yang imut2,
gak usah dibingungin, di sql server field gambarnya
diset dengan data type : image, kemudian di VB 6.0
tambahkan referensi Microsoft ActiveX Data Object 2.6
Library ato Microsoft ActiveX Data Object 2.7 Library
Sekarang taruh koding ini di module :
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Public adoxstream As ADODB.Stream
Public Function GetPic(RS As ADODB.Recordset, _
nNamaField As String) As StdPicture
On Error GoTo SalahGambar
If RS Is Nothing Then
GoTo SalahGambar
End If
Dim adoxstream As ADODB.Stream
Set adoxstream = New ADODB.Stream
adoxstream.Type = adTypeBinary
adoxstream.Open
adoxstream.Write RS.Fields(nNamaField).Value
adoxstream.SaveToFile "C:\temp.jpg",
adSaveCreateOverWrite
Set GetPic = LoadPicture("C:\temp.jpg")
Kill ("C:\temp.jpg")
Exit Function
SalahGambar:
End Function
Public Function ConvPic(nNamaFile As String) As
ADODB.Stream
On Error GoTo SalahGambar
Dim objGambar As StdPicture
Set objGambar = LoadPicture(nNamaFile)
If objGambar Is Nothing Then
MsgBox "Format File Gambar Salah!"
ConvPic = False
Exit Function
End If
Dim adoxstream As ADODB.Stream
Set adoxstream = New ADODB.Stream
adoxstream.Type = adTypeBinary
adoxstream.Open
adoxstream.LoadFromFile nNamaFile
Set ConvPic = adoxstream
Exit Function
SalahGambar:
End Function
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Tempatkan koding ini di Form Entry :
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim rscrew as ADODB.Recordset
Private Sub cmdsave_Click()
On Error Resume Next
Dim hGambar As New ADODB.Stream
Set hGambar = KonversiGambar("C:\Riyan_Ganteng.jpg")
Set rscrew = New ADODB.Recordset
With rscrew
.Open "Select * from Eng_crew", StrConnection,
3, 3
.AddNew
.Fields(0).Value = NIK.Text
.Fields(1).Value = NAMA.Text
.Fields(2).Value = TITLE.Text
.Fields(3).Value = Trim(ADDRESS.Text)
.Fields(4).Value = HOMEPHONE.Text
.Fields(5).Value = HP.Text
.Fields(6).Value =
Trim(Responsibility.Text)
.Fields(7).Value = hGambar.Read
.Update
End With
rscrew.Close
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Untuk ambil Pic dari drive c atau d, yanti pake
komponen CommonDialog aja, biar lebih simple.
Nah untuk dicrystal Report 8.5 nya, type data dari
image di sql server akan dikonversi menjadi BlobField.
(buat report seperti biasa aja)
Oke yanti met dicoba, kalo ada masalah, lemparkan ke
forum lagi yach, biar teman2 yang lain bisa bantuin.
Best Regard,
Riyan Sugara
--- djayanti wagnah <[EMAIL PROTECTED]>wrote:
>
>
> Dear
> Teman-2 VB
>
> aku lagi bingung nih,akau ada Project yang harus
> memasukan gambar ke tampilanm Crystall Report
> gambar tersebut berganti-2 sesuai permintaan gambar
> apa yang akan tampil.
> aku memakai Crystall Report 8.5 bagaimana yach
> Gambar itu
> bisa masuk ke Database SQl server karena di Crystall
> report aku nantinya hanya Drag berdasarkan ID Gbr
>
> terimakasih atas bantuannya
>
> yanti
>
>
>
> ---------------------------------
> Yahoo! for Good
> Click here to donate to the Hurricane Katrina
> relief effort.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Yahoo! for Good
Click here to donate to the Hurricane Katrina relief effort.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
