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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ancyra

Hesap Aktif Değil
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)

Kullanici Avatari

cuneyt

Aktif Üye
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.



Kullanici Avatari

ancyra

Hesap Aktif Değil
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?



Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
4.787
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
29/03/2018,15:43
Çö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 Tarih Son Yorum
Çözüldü Setup Oluşturmada ReportViewer Hatası emremzrk 4 3.703 06/05/2018, 01:10 DesignDoor New
Çözüldü C# İnsert İnto Hatası emir ustaoğlu 2 767 13/12/2016, 17:10 emir ustaoğlu
Çözüldü vb.net access bağlantı hatası emir ustaoğlu 6 2.530 24/05/2016, 15:26 HilasNemkid
Çözüldü nesne başvurusu bir nesnenin örneğine ayarlanmadı hatası quardio4 4 1.237 23/05/2016, 18:34 atoz112
Çözüldü Nesne başvurusu bir nesnenin örneğine ayarlanmadı. hatası Gorkemku 4 6.244 02/06/2015, 23:01 drmet

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