Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/08/2009 14:10
Konu Sahibi
ancyra
Yorumlar
3
Okunma
2277
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ancyra

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
60
01/07/2009
Kayseri
Ofis 2003
16/06/2010,10:59
Çözüldü 
Oluşturduğum program login formunda şu şekilde kod kullandım ama hep hata alıyorum. Yardımcı olabilirseniz sevinirim.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim komut As New OleDbCommand
Try
If IsDBNull(tbxsifre.Text) = False Then
Dim ds As New DataSet
komut.Connection = b
komut.CommandType = CommandType.Text
komut.CommandText = "select username_,password_ from tblusers where username_='" & cmdkullanıcı.Text & "' and password_='" & tbxsifre.Text & "'"
Dim oku As OleDb.OleDbDataReader = komut.ExecuteReader
If oku.Read = True Then
If (ds IsNot Nothing) AndAlso (ds.Tables.Count > 0) AndAlso (ds.Tables(0).Rows.Count = 1) Then
admin = CBool(ds.Tables(0).Rows(0).Item("admin"))

If admin = True Then
MsgBox("Yönetici Hoşgeldiniz" & cmdkullanıcı.Text & "!", MsgBoxStyle.OkOnly, "")
Else
MsgBox("Hoşgeldiniz" & cmdkullanıcı.Text & "!", MsgBoxStyle.OkOnly, "")
End If

giris = True
kisiid = cmdkullanıcı.Text
Me.Close()
End If
Else
MsgBox("Kullanıcı Adı veya Şifre Yanlış!", MsgBoxStyle.OkOnly, "")
giris = False
End If
End If
Catch ex As Exception
MsgBox("Hata!!!")
giris = False
End Try
End Sub

programın bir parçası ektedir......................


Ek Dosyalar
.rar   login form.rar (Dosya Boyutu: 234,62 KB / İndirme Sayısı: 49)
Cevapla

cuneyt

Aktif Üye
Kullanici Avatari
Aktif Üye
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
merhaba,
ilk etapta sadece kullanıcı ve şifre doğrulaması yaptırarak dene. hatta sadece kullanıcı kriterlerlerini karşılıklı sorgulatarak girişi yaptır. ayrıca ilk etapta Admin olarak kriter sorgulayıp giriş yapmasın. ki buna göre hatanın asıl yerini bulabiliriz.. admin olarak sorgulamadan girişi yaparsa bu durumda admin için kullanılan kodda hata var anlayacaz. birde combo da text ile karşılaştırıp giriş yapmak yerine comboda isimler görünecek şekilde arka planda da sayı çalışsın. yani combo da iki alan olacak ilki gizli ve 0 genişlik diğeri ise kullanıcı adları ve görünür. çünkü text karşılıklı sorgulamalarda mutlaka hata verebilmektedir. bunları bir dene olmazsa vb.net yükleyip kendi bilgisayarımda deneyeyim.
selamlar.


Cevapla

ancyra

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
60
01/07/2009
Kayseri
Ofis 2003
16/06/2010,10:59
Çözüldü 
evet dediğiniz gibi yaptım. Kullanıcı girişinde bir sorun yok ama adminin sorguladığımda hata veriyor, yada -- kullanıcı adı veya şifre yanlış diyor. admin sorgulamasını nasıl yapabilirim?
Birde Login Formunu şifre doğruysa me.hide ile gizleyim ana formu açıyorum. Ana formu çıkış butonu ile me.close ile kapattığımda ekran kapanıyor ama program hala çalışır durumda bulunuyor bunu nasıl düzelte bilirim?


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Konuya cevap bekleniyor..


İnadına, ille de Accesstr.net...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü C# İnsert İnto Hatası emir ustaoğlu 2 628 13/12/2016, 17:10 emir ustaoğlu
Çözüldü vb.net access bağlantı hatası emir ustaoğlu 6 2.030 24/05/2016, 15:26 HilasNemkid
Çözüldü nesne başvurusu bir nesnenin örneğine ayarlanmadı hatası quardio4 4 1.044 23/05/2016, 18:34 atoz112
Çözüldü Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası Gorkemku 4 5.512 02/06/2015, 23:01 drmet
Çözüldü Vb.net Sayısal İfadede Noktayı Virgüle çevirme hatası 47terminator 8 4.068 24/05/2014, 00:35 47terminator

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.