Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek

20/05/2011, 18:16

|By|KiDnArUt|

Selamlar Şimdiden Teşekkür Ederim Yardımcı Olacak Kişilere

Ufak ßir Örnek Ekledim Access Veri Tabanına Resmi Kaydedecek Ve Kayıtlar Arasında Gezinirken Resimler Picture De Gözukecek Nerde Eksik Yapıyorum ßulamadım ?

Örnek Ektedir
20/05/2011, 18:45

Coskun0559

kod şu şekilde;

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Resim Dosyası Aç"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Jpg Dosya(*.jpg)|*.jpg|Bütün Dosyalar(*.*)|*.*"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Text2.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
End Sub

Private Sub Command3_Click()
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
Adodc1.Refresh
End Sub



Private Sub Form_Load()
Image1.Picture = LoadPicture(Text2.Text)
End Sub

çıkış saatine denk geldi tam detaylı yapamadım ama çözeceğiniz şekilde yaptım
veri tabanını "respath" diye bi alan ekledim ve resmin yolunu kaydettirdim.
form açılıca text2 deki resim yolunu alıyor ve resmi picture nesnesine load yapıyor
adodc nin response yordamına aynı kodu yazman gerekli
kolay gelsin
20/05/2011, 18:46

|By|KiDnArUt|

Çok Tşk Ederim İnceleyeyim ßir
20/05/2011, 19:15

|By|KiDnArUt|

Malesef Ado Olayını Gerçekleştiremedim Hata Veriyor Resim Yolu Gösteriyor Kayıtlar arasında Gezindigimde Tek Resim Kalıyor
20/05/2011, 19:27

|By|KiDnArUt|

Sorun Çözüldü Teşk Ederim İlginiz İçin. İleri Geri Butonlarına Atadım Resmin Yolunu