mdb dosyasından jpg ve gif biçiminde kayıt

[k0081]

Merhaba arkadaşlar

mdb dosyasında jpg biçimindeki "uzun ikili veri" çıktı alabiliyorum. ( çıktı : xxxxx.jpg). Fakat biçim mdb dosyasına "gif" olarak kayıt edilmişse dışarıya çıktıyı vermiyor...

yardımcı arkadaşa şimdiden teşekkürler.

Private Sub picrecord_Click()
Dim dbname1 As String
secilen = LstContacts.Text
Database05 = txtdat.Text
dbname1 = App.Path + "\" + "picture.mdb"
dosya = secilen & ".jpg"

GetFileFromDB dbname1, "Select * from " & Database05 & " where Xklavye Like '" & secilen & "'", "Ximagefile", CurDir & "\" & dosya

MsgBox "Resim dosyası oluşturuldu"

End Sub

 

[k0081]

*********************** BU KONU ÇÖZÜLMÜŞTÜR ************************

aşagıdaki yapı ile çözdüm.

If secilen Like "*:*" Then
secilen2 = Split(txtName.Text, ":")(1)
dosya = secilen2 & ".gif"
Else
dosya = secilen & ".jpg"
End If

 

[Haluk]

Bu kod VBA'de çalışıyor mu?

.

 

[k0081]

Bu kod VBA'de çalışıyor mu?

.

VB6 da çalışıyor

 

[Haluk]

VBA'de "GetFileFromDB" diye bir fonksiyon yoktur.... o yüzden sordum.

İlk mesajınızdan sanki uzantı "jpg" olsa, VBA'de sorun yokmuş gibi algılanıyor....

.

 

[k0081]

Evet doğru hocam. "GetFileFromDB " fonksiyon yok. Bununla mdb den resim dosyasını alıyorum. dosya olarak yani.

jpg lerde sorun yok. bir ara .gif kaydetmiştim. onu çağırmak istedim... hata verdi. daha doğrusu dosyayı oluşturmadı... sonradan fark ettim ki, fonksiyonda hiçbir sorun yok. sorun dosya adından kaynaklanıyormuş... onuda basit bir if yapısı ile düzelttim.