*-._.-*_Veritabani Na Resim Eklemek_*-._.-*

Şimdi bir çok arkadaşın sorusuna cevap arayacağız Nasıl oluyor da veri tabanına resim ekliyorlar ? Diye birçok kişi kendine ilk zamanlar soru sormuştur Bunun iki yolu var birincisi doğrudan resmi veri tabanına OLE olarak kaydetmek ki bu veri tabanının boyutunu devasa hale getiriyor İkincisi ise kaydedilecek resmin adresini veri tabanına metin olarak kaydetmek Ben bu makalede OLE yöntemini anlatmaya çalışacağım Ama daha önce projede de kullanılan nesneleri sıralayalım TEXT1,TEXT2,OLE1,DATA1,COMMAND1, COMMAND2, COMMAND3 Kullanacağız


İlk olarak bir adet veri tabanı oluşturun bunu eğer access de hazırlayacaksanız veri tabanı ismi olarak resimmdb olarak atayın Daha sonra tablolar sekmesinde iken yeni butonuna basarak çıkan pencereden tasarım görünümü' nü seçin Çıkan pencereden ilk alan adına anahtar yazın ve veri türüne de otomatik sayı deyin ikinci satıra adı veri türüne ise metin, üçüncüsüne ise soyadı veri türüne metin, dördüncü satıra resim veri türüne OLE Nesnesi olarak yazın yazdıysanız eğer ilk satıra otomatik sayı olarak atadığınız satıra birincil anahtarı atayın (üste sarı bir anahtar vardır nah ona basın) tablo ismi olarak GIRIS verin ve veri tabanı kaydedin çıkın gidin kardeşim bu ne be sizinle mi uğraşacağım değil dabi Veri tabanı hazır Eğer visdata ile hazırlayacaksanız ole olarak atadığınız alanın yerine vis data da BINARY olarak tanımlayın aradaki fark bu kadarcık


Şimdi gelelim vb kısmına ilk olarak yeni bir proje açın ve bu projenin üstene altına bir yerlerine iki adet textbox (text1,text2) ve bir adet ole nesnesi (OLE1) ve üç adet command buton (command1,command2, command3) ve bir adet data nesnesi(data1) yerleştirin nefes alalım biraz


Data1 i veri tabanına bağlayın (data1 in data base name özelliğine RESİMMDB dosyasını, recordsource özelliğine ise GIRIS tablosunu atayın) daha sonra text1 ve text2 nin datasource ve datafıeld larını sırası ile data1,adı ve data1,soyadı olarak atayın buraya kadar normal bir bağlantı yaptık Ole nesnesinide yine diğerlerinde olduğu gibi datasource ve datafield leri data1 ve RESİM alanına bağlayın Bağlantıda tamam


Şimdi gelelim olayın can alıcı noktasına yani nasıl çalıştıracağız


Form_Load()

Command1caption=”YENI KAYIT”

Command2caption=”SONRAKI KAYIT”

Command3caption=”NESNE EKLE”

End sub


Command1_click()

On local error resume next

Data1RecordsetAddNew’ Bu kod sizinde bildiğiniz gibi yeni bir kayıt ekliyor

End sub


Command2_click()

On local error resume next

Data1RecordsetMovenext’Bu ise sonraki kayda gidiyor

End sub


Command3_click()

On local error resume next

OLE1InsertObjDlg’ Bu kod ole nesnesine ekleyeceğiniz resim için NESNE EKLE penceresini açar

End sub


Ben burada sadece sonraki kayıt butonu yaptım siz diğerlerini de yaparsınız Bu arada ole ile resim dosyalarında farklı olarak videolarda ekleyebilirsiniz Son olarak veri tabanının boyutuna dikkat edin kayıt sayısı arttıkça veri tabanının boyutunun aşırı derecede büyüdüğünü göreceksiniz


----------------------------------------------------------------------------------------

YORUMLARINIZI BEKLİYORUM















(¯`•(¯`•(¯`•(¯`•¯`•¸¸•´¯`•¸¸•´ ¯)_•´¯)_•´ ¯)_•´¯)

(¯`•(¯`•(¯`•(¯`• wwwforumexnet )_•´¯)_•´¯)_•´¯)

(¯`•(¯`•(¯`•(¯`•¯`•¸¸•´¯`•¸¸•´ ¯)_•´¯)_•´ ¯)_•´¯)