+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek (/konu-vb-6-veri-tabanina-commandiyalog-ile-resim-ekleme-ve-gostermek.html)
Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek - |By|KiDnArUt| - 20/05/2011
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
Cvp: Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek - Coskun0559 - 20/05/2011
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
Cvp: Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek - |By|KiDnArUt| - 20/05/2011
Çok Tşk Ederim İnceleyeyim ßir
Cvp: Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek - |By|KiDnArUt| - 20/05/2011
Malesef Ado Olayını Gerçekleştiremedim Hata Veriyor Resim Yolu Gösteriyor Kayıtlar arasında Gezindigimde Tek Resim Kalıyor
Cvp: Vb 6 Veri Tabanına Commandiyalog İle Resim Ekleme Ve Göstermek - |By|KiDnArUt| - 20/05/2011
Sorun Çözüldü Teşk Ederim İlginiz İçin. İleri Geri Butonlarına Atadım Resmin Yolunu