Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » Veritabanınız boşken programınız hata veriyorsa...
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

vb.net te yön tuşları

Yazar: without_luck
Vb.net te oyun yazanlar için gerekli olabilir.Ben yılan oyununda kullanmıştım.Çalışıyor


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 3821
Yayın Tar:28.07.2005
Yazar : guru09
Hit :3225

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

eger veritabanında kayıt yokken programınız hata veriyorsa form load da buna benzer bir yapı kullanabilirsiniz....En azından fikir vermesi açısından...form load da kayıt olup olmadıgı kontrol edilerek kullanıcının giris yapması istenebilir


Dim c
If RS.State = 1 Then RS.Close
If CN.State = 1 Then CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:kişisel dosyalarKuruvt2.mdb;Mode=ReadWrite;Persist Security Info=False"
RS.Open "select * from kayıt", CN, adOpenStatic
If RS.RecordCount = 0 Then
cmdYeniKayit.Enabled = False
c = MsgBox("Programı Aktif Olarak Kullanmak İçin Kayıt Eklemelisiniz...", vbExclamation + vbOKCancel, " Veritabanı Boş ")
If c = vbOK Then
Dim i, j, k
i = InputBox("Kutudaki bilgileri değiştirip ilk kaydı gerçekleştirebilirsiniz...", "OKUL NO", 1)
Text1.Text = i
j = InputBox("Kutudaki bilgileri değiştirip ilk kaydı gerçekleştirebilirsiniz...", "İSİM", "<isim girin>")
Text2.Text = j
k = InputBox("Kutudaki bilgileri değiştirip ilk kaydı gerçekleştirebilirsiniz...", "SOYİSİM", "<soyisim girin>")
Text3.Text = k
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then
RS.Close
sql = " insert into kayıt (okulno,isim,soyisim) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
RS.Open sql, CN, adOpenStatic
If RS.State = 1 Then RS.Close
RS.Open "select * from kayıt"
RS.Requery
Adodc1.Refresh
Else: MsgBox "En Az Bir Bilgiyi Eksik Girdiniz !!!", vbInformation, "Eksik Tanımlama"
End If
Else: End
End If




Yorumlar, eklemeler ve düşünceler
        RS.Open "select * from kayıt", CN, adOpenStatic
If RS.RecordCount = 0 Then

c = MsgBox("Programı Aktif Olarak Kullanmak İçin Kayıt Eklemelisiniz...", vbExclamation + vbOKCancel, " Veritabanı Boş ")
exit sub
İşte hepsi bu veri tabanında kayıt yoksa yeni kayıt yapıncaya kadar hiç bir iş yaptırma....
cmdYeniKayit.Enabled = False ""Bu kopdu da anlayamadım. Yani hiç kayıt yoksa bu adam daha başka bir kayıt yapmayacakmı?

   asmin80, 29.07.2005 21:46
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin