Şimdi bir cok arkadaşın sorusuna cevap arayacağız. Nasıl oluyor da veri tabanına resim ekliyorlar ? Diye bircok 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 yontemini anlatmaya calışacağım. Ama daha once 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 resim.mdb olarak atayın. Daha sonra tablolar sekmesinde iken yeni butonuna basarak cıkan pencereden tasarım gorunumu' nu secin. Cıkan pencereden ilk alan adına anahtar yazın ve veri turune de otomatik sayı deyin ikinci satıra adı veri turune ise metin, ucuncusune ise soyadı veri turune metin, dorduncu satıra resim veri turune 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 (uste sarı bir anahtar vardır nah ona basın) tablo ismi olarak GIRIS verin ve veri tabanı kaydedin cı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 acın ve bu projenin ustene altına bir yerlerine iki adet textbox (text1,text2) ve bir adet ole nesnesi (OLE1) ve uc 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 ozelliğine RESİM.MDB dosyasını, recordsource ozelliğ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 calıştıracağız
Form_Load()
Command1.caption=�YENI KAYIT�
Command2.caption=�SONRAKI KAYIT�
Command3.caption=�NESNE EKLE�
End sub
Command1_click()
On local error resume next
Data1.Recordset.AddNew� Bu kod sizinde bildiğiniz gibi yeni bir kayıt ekliyor.
End sub
Command2_click()
On local error resume next
Data1.Recordset.Movenext�Bu ise sonraki kayda gidiyor.
End sub
Command3_click()
On local error resume next
OLE1.InsertObjDlg� Bu kod ole nesnesine ekleyeceğiniz resim icin NESNE EKLE penceresini acar.
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ıkca veri tabanının boyutunun aşırı derecede buyuduğunu goreceksiniz. Veri tabanına resim eklemek nasıl olur? -2- de daha kullanışlı bir proje hazırlayacağız. Kendinize iyi davranın.
Baksana59 ve Quarizma
__________________