Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.rar deneme.rar (Dosya Boyutu: 28,92 KB | İndirme Sayısı: 49)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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
.rar deneme_coskun.rar (Dosya Boyutu: 31,07 KB | İndirme Sayısı: 67)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #3
Çok Tşk Ederim İnceleyeyim ßir
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Malesef Ado Olayını Gerçekleştiremedim Hata Veriyor Resim Yolu Gösteriyor Kayıtlar arasında Gezindigimde Tek Resim Kalıyor
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
Sorun Çözüldü Teşk Ederim İlginiz İçin. İleri Geri Butonlarına Atadım Resmin Yolunu
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task