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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ancyra

Aktivasyon Bekleyen
 37
 60
 27
 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......................



Kullanici Avatari

cuneyt

Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
Çö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.



Kullanici Avatari

ancyra

Aktivasyon Bekleyen
 37
 60
 27
 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?



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 219
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,08:54
Çözüldü 
Konuya cevap bekleniyor..


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Setup Oluşturmada ReportViewer Hatası emremzrk 4 4.076 06/05/2018, 01:10
Son Yorum: DesignDoor New
Çözüldü C# İnsert İnto Hatası emir ustaoğlu 2 916 13/12/2016, 17:10
Son Yorum: emir ustaoğlu
Çözüldü vb.net access bağlantı hatası emir ustaoğlu 6 2.828 24/05/2016, 15:26
Son Yorum: HilasNemkid
Çözüldü nesne başvurusu bir nesnenin örneğine ayarlanmadı hatası quardio4 4 1.468 23/05/2016, 18:34
Son Yorum: atoz112
Çözüldü Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası Gorkemku 4 6.652 02/06/2015, 23:01
Son Yorum: drmet

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.