Veritabanına fotoğraf eklemek

sarigozoglu

Altın Üye
Katılım
26 Eylül 2014
Mesajlar
85
Excel Vers. ve Dili
Office 365 TR-32
Altın Üyelik Bitiş Tarihi
06-01-2025
Arkadaşlar merhaba, VBA'dan sonra SQL ve Veritabanına uygulamalarına yeni geçiş yapıyorum.

SQL veritabanında bir alanda id numaları var, diğer bir tarafta da C:\foto\ klasörü içinde de bu id numaları ile adlandırılmış fotoğraflar var.

Yani id alanında "123456" diye bir değer, C:\foto\123456.jpg şeklinde de fotoğraf.

Öncelikle fotoğraf boyutları 100 KB'ı geçmediği için bunları yol göstererek çağırmak yerine, veritabanına gömmek istiyorum.

Yapmak istediğim ise id'lere karşılık gelen yaklaşık 1.000 fotoğrafı tek seferde eşleştirerek aynı satırda veritabanına atmak

Yardımcı olur musunuz ?
 
Katılım
13 Şubat 2016
Mesajlar
2
Excel Vers. ve Dili
2007 versiyonunu kullanıyorum
bende de aynı sorun var bilen yok mu ?
 

sarigozoglu

Altın Üye
Katılım
26 Eylül 2014
Mesajlar
85
Excel Vers. ve Dili
Office 365 TR-32
Altın Üyelik Bitiş Tarihi
06-01-2025
Arkadaşlar yardımcı olabilecek birisi var mı ?
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,344
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Merhaba,

Resim dosya içeriğini önce ikili veriye çevirmeniz gerekir. Bundan önce tabloda "BLOB" veri tipinde alan olması gerekir. Bu veri tipi bunun içindir.

İkili veri veri elde edebilmeniz için aşağıdaki fonksiyonu kullanabilirsiniz :

Kod:
function getbinary (byval jpgfile as string) as byte ()
  dim byt() as byte

  open jpgfile for binary as #1

    redim byt (1 to lof(1)) 

   get #1, , byt

 close #1

  getbinary = byt
end function
 
Katılım
17 Nisan 2006
Mesajlar
228
Merhaba,

Resim dosya içeriğini önce ikili veriye çevirmeniz gerekir. Bundan önce tabloda "BLOB" veri tipinde alan olması gerekir. Bu veri tipi bunun içindir.

İkili veri veri elde edebilmeniz için aşağıdaki fonksiyonu kullanabilirsiniz :

Kod:
function getbinary (byval jpgfile as string) as byte ()
  dim byt() as byte

  open jpgfile for binary as #1

    redim byt (1 to lof(1)) 

   get #1, , byt

 close #1

  getbinary = byt
end function
Konuyu bende takip ediyorum. Bundan sonraki adımlar nasıl olmalıdır ?
c:\foto\ klasöründe id numarası ile eşleşen fotoğrafları veri tabanına nasıl aktaracağız ?
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,344
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
İkili veriyi "Recordset" tanımlı değişkene "addnew" deyip ekleyeceksiniz o kadar.

Bu kısmını da ben yazmayayım artık.
 

sarigozoglu

Altın Üye
Katılım
26 Eylül 2014
Mesajlar
85
Excel Vers. ve Dili
Office 365 TR-32
Altın Üyelik Bitiş Tarihi
06-01-2025
Vallahi ben anlamadım :(

Zeki Bey rica etsek çakma da olsa bir SQL bağlantısı ile bizim için örnekleyebilir misiz ?

İnanın bakmadığım site aramadığım arama motoru kalmadı :(
 
Üst