Şimdi Ara

visual basicte seçime bağlı silme işlemi

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
395
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • herkese mrb lar
    visual basicle ilgili bir sorum olacak arkadaşlar


    "Private Sub resimsil_Click()
    a = MsgBox("Emin misiniz?", vbYesNo + vbDefaultButton1, "SİL")
    If a = vbYes Then
    Görüntü.Picture = LoadPicture()
    Else



    End If
    End Sub"


    bu komutla resimsil isimli butona tıkladığımda çıkan msgbox kutusunda evet e basarsam kayıtlı resmi siler
    yapmak istediğimse kullanıcı hayıra basarsa msgbox kutusunu kapatması(sadece msgbox kutusunu kapatsın
    programıo deil)(else endif arasına ne yazacam)
    şimdiden saolun



    < Bu mesaj bu kişi tarafından değiştirildi umut_afsar -- 12 Mart 2007; 22:57:41 >



  • exit sub yazacaksın



    < Bu mesaj bu kişi tarafından değiştirildi ethan hunt -- 13 Mart 2007; 16:24:46 >
  • saol kardeş bişey daha vardı yaf

    arkadaşlar şimdi yaptığım program tam olarak şu
    kişinin kimlik bilgileri ;veritabanına bağladım ("adı.soyadı...v.s....")
    ve resim ekleyim kaydedebiliyorum
    resim ekle düğmesine basıp ekliyorum yani görünüyor bir text butonunada resmi çağırdığım yolu yazdırdım(c:/prog.......)
    programın bi 2. kısmı kaydettiğimz seyleri arayıp bulmak
    onun içinde bi form hazırladım kaydedilenleri görebiliyorum ama resim görünmüyor(kaydetme esnasında eklediğim resim)
    resimin yolunu fln gösteriyor bana ama resmi göstermiyor
    heeralde veritabanına bağlı olmadığı içindir
    bunu nasıl yaparım__? şimdiden tşkler

    kodlar
    resim yuklerken"Private Sub yukle_Click()
    MsgBox ("Lütfen Yükleyeceğiniz fotoğraf 145 x 175 pixels olsun.")
    Resim.DialogTitle = "Bir resim Dosyası Seçiniz."
    Resim.Filter = "Bitmap resimler|*.jpg|Geniş Resim Formatları|*.bmp;*.jpeg|Tüm Dosyalar|*.*|"
    Resim.Action = 1
    GörüntüYolu.Text = Resim.FileName
    Görüntü.Picture = LoadPicture(GörüntüYolu.Text)
    End Sub"

    şimdi vereceğim kodda ise şöyle
    ben resim kutucuğunun yanınada bide resim yolu için bir text ekledim resmi çağırdığım yerin adresini gösteriyor
    kodlar;"If GörüntüYolu = "" Then
    dbbilgi.Recordset.Fields("resimyolu") = "C:\Program Files\Personel Takip\yok.jpg"
    Else
    dbbilgi.Recordset.Fields("resimyolu") = GörüntüYolu
    End If
    ""
    peki resmi nasıl kaydedecem




  • kaydettiğin kişinin resminin yolunu veri tabanında saklıyorsun değilmi??
  • ewet
    ama sadece görüntü yolunu--resim veritabanında nasıl saklanırki
    http://img124.imageshack.us/my.php?image=adszcq4.jpg bu kaydet formunda eklediğim resmin görüntüsü

    buda arama formunda çağırdığım kişinin resminin görüntüsü(bakın resmi göstermiyor--ama nerden çağırdığımı bana text e sölemiş)
    http://img266.imageshack.us/my.php?image=adsz22ss7.jpg




  • saol kardeş.
  • şimdi sen ilk kayıt gerçekleşirken kişini resmini forma eklediğinde resmin yolunu bir değişkende tut ve
    onuda veri tabanında ilgili kiinin kayıt alanına yeni bir alana kaydet
    mesela tablondaki alanların ad soyad yaş tel ve resimyol gibi alanlar olduğunu düşünelim
    sen resmin load ında bir değişkende yolu tutup sonra kayıt işleminde yoluda ilgili alana kayıt edeceksin

    sonra kaydı çağırıken ise tam ters işlemi yapacaksın
    textlere ilgili kişinin bilgileri gelirsken
    picturebox ın load ına veri tababnından okuttuğun resmin yolu nu yükleyeceksin..
  • Yapay Zeka’dan İlgili Konular
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.