Kodları lütfen aşağıdaki butonları kullanarak renklendirin. Örnek: <php> echo "Selam Dünya"; </php>
Yardım
karakter kaldı

visual basic asp.net üyelik girişi sırasında

asp.net üzerinde visual basic ile üye giriş paneli yapıyorum. Koldarım şu şekilde



 baglanti = New SqlConnection(" Data Source=94.73.145.253;Initial Catalog=DB1203617346d9; User Id=USRe120fewrfgr309;Password=PSS455L2rferferD6I0%; ")
        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

fakat bu şekilde üye girişi yapmaya çalıştığımda hiç bir şekilde çalışma anında hata almıyorum. fakat doğru şifre ve kullanıcıyıda girsem şifre hatalı diyor. visual basic ile kullanıcı girişini nasıl yapmalıyım bu koddaki hata nedir sizce.
+0
-0
Cevaba KatılıyorumKatılmıyorum
Cevap Yaz Yorum Yaz Arşivime Ekle Takip Et

Cevaplar

  • trfeg adlı üyenin fotoğrafı
    10 yıl önce yazılmış
    6 cevap - 10 soru
    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 adlı üyenin fotoğrafı 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 Sub
      10 yıl önce yazılmış
  • 1
    1kaan1 adlı üyenin fotoğrafı
    10 yıl önce yazılmış
    8 cevap - 29 soru
    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.