Cevaplar
-
kodlarda ufak bir hata olmuş yazarken doğrusu şu şekildedir
Dim baglanti As SqlConnection Dim komut As SqlCommand Dim dr As SqlDataReader Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click baglanti = New SqlConnection(" Data Source=94.73.645.253;Initial Catalog=DB1rfwefew3309; User Id=USfwf3309;Password=PwffefD6I0%; ") baglanti.Open() komut = New SqlCommand("SELECT sifre FROM uyeler where eposta='" + txteposta.Text + "'", baglanti) dr = komut.ExecuteReader If (dr.Read) Then If (dr(0).ToString = txtsifre.Text) Then Label1.Text = "Başarılı giriş yapıldı" Else Label1.Text = "şifre hatalı" End If Else Label1.Text = "yanlış oldu" End If End Sub
-
Levent
Merhaba, Aşağıdaki şekilde denermisin. Benim deneme şansım yok malesef.
If (dr.Read) Then
If (dr("Sifre").ToString = txtsifre.Text) Then
Label1.Text = "Başarılı giriş yapıldı"
Elseif (dr("Sifre").ToString <> txtsifre.Text) Then
Label1.Text = "şifre hatalı"
End If
End Sub10 yıl önce yazılmış
-
-
labellara ayrı ayrı yazı yazdıracağına validation kullanmanı tavsiye ederim. data entity kullanırsan sana kodlarını atarım md5 le şifrelenmiş halini temiz temiz kullanabilirsin.