Soru Mdb dosyasından resim verisini almak-Kaydetmek

[k0081]

Merhaba arkadaşlar;

Veritabanı dosyası olarak mdb biçimini kullanmaktayım. Resim verisi içeren ( "Uzun ikili veri" ) kayıtları mevcut.

List kısmından adı seçili olan bu Resim verisini ( "Uzun ikili veri" ) Aktif klasöre nasıl kaydedebilirim ?

Kaydedilen her resim verisinin boyutu 522x425 pikseldir. Aktif klasörede bu pikselde kayıt olmalıdır...

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[Zeki Gürsoy]

Binary = Uzun ikili veri' dir. Temel dosyalama tekniği (Put) veya ADODB.Stream ile kaydedebilirsiniz. Binary veri resmin ta kendisi olduğundan öznitelikleri, yani çözünürlükleri değişmez.

Temel dosyalama tekniğine örnek:

'Resimlerin 'jpg' biçimi olduğunu varsayalım...
'Function olarak daha kullanışlı olur.
dim b(1 to ubound(rs("resim))
b = rs("resim")
open "c:\resim1.jp" for binary as #1
put #1, , b ' veya rs(resim).value
close #1

 

[k0081]

Zeki bey Merhaba.;

Şimdi bu kodu tam olarak nasıl kullanacağız. ?

Ben Command butona bunu yazmak istiyorum ama, kod eksikmi ben mi yapamadım?

Bir de dosya çıkışlarını *.jpg yapıyoruz. Ama mdb dosyasındaki bazı kayıtlar gif biçiminde. Hatta çoğunlukla gif biçiminde kayıt yapıyorum. ki MDB dosyasının boyutu artmasın...

***************************

sImageName=lstcontacts.text
dbname = App.Path & "\Picture.mdb"
            ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & _
                      ";Persist Security Info=False"
            dbConn.Open ConnStr
  
            Sql = "select * FROM " & Dat1 & " WHERE Xklavye='" & sImageName & "'"

dosyaadi =sImageName
Open CurDir & "\" & dosyaadi & ".jpg" For Binary As #1
Put #1, , Sql
Close #1

Bu şekilde dosya aktif dizine oluşuyor. ama içeriği yok.