Vb-tekrar kayıt engelleme

dogckr · 16 Haziran 2022

Kod:

 Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dogukan\source\repos\kayıt\kayıt\veri3.accdb")
        Dim komut As New OleDbCommand("select * from kayıt where kadi='" & TextBox1.Text & "'", baglan)
        komut.Connection = baglan
        baglan.Open()
        Dim oku As OleDbDataReader = komut.ExecuteReader

        If oku.Read() Then
            Label1.Text = "Kullanıcı adı zaten var tekrar deneyiniz "

        Else
            baglan.Close()
            Dim kayıt As New OleDbCommand("insert into kayıt(kadi,sifre,ad,soyad)values('" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "')", baglan)
            kayıt.Connection = baglan
            baglan.Open()
            kayıt.ExecuteNonQuery()
            baglan.Close()

        End If
        baglan.Close()

Tekrar kayıtı böyle engelleyebilir miyim?

pottie4r · 16 Haziran 2022

Bu kodda o kadar fazla güvenlik açığı var ki anlatamam. Tek derdiniz yinelenen kayıtları engellemek olmamalı gibi.

dogckr · 16 Haziran 2022

pottie4r dedi:
Bu kodda o kadar fazla güvenlik açığı var ki anlatamam. Tek derdiniz yinelenen kayıtları engellemek olmamalı gibi.

Şu anlık güvenlik önemli değil benim için.

pottie4r dedi:
Bu kodda o kadar fazla güvenlik açığı var ki anlatamam. Tek derdiniz yinelenen kayıtları engellemek olmamalı gibi.

Kod:

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k_adi, sifre, yol, sql As String
        k_adi = TextBox1.Text
        sifre = TextBox2.Text
        yol = Server.MapPath("veri.accdb")
        sql = "Select * from uyeler where k_adi='" & k_adi & "' and sifre= '" & sifre & "'"
        Dim baglanti As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" &
       yol)
        Dim verial As New OleDbDataAdapter(sql, baglanti)
        Dim ds As New DataSet
        verial.Fill(ds)
        Dim kisi_sayisi As Integer
        kisi_sayisi = ds.Tables(0).Rows.Count
        If kisi_sayisi = 1 Then
            Response.Redirect("anasayfa.aspx")
        Else
            Label3.Text = "Hatalı Girişi"
        End If
    End Sub

bu örnek de

Dim kisi_sayisi As Integer
kisi_sayisi = ds.Tables(0).Rows.Count

ne işe yarıyor anlayamadım da

pottie4r · 16 Haziran 2022

dogckr dedi:

Şu anlık güvenlik önemli değil benim için.

Kod:

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k_adi, sifre, yol, sql As String
        k_adi = TextBox1.Text
        sifre = TextBox2.Text
        yol = Server.MapPath("veri.accdb")
        sql = "Select * from uyeler where k_adi='" & k_adi & "' and sifre= '" & sifre & "'"
        Dim baglanti As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" &
       yol)
        Dim verial As New OleDbDataAdapter(sql, baglanti)
        Dim ds As New DataSet
        verial.Fill(ds)
        Dim kisi_sayisi As Integer
        kisi_sayisi = ds.Tables(0).Rows.Count
        If kisi_sayisi = 1 Then
            Response.Redirect("anasayfa.aspx")
        Else
            Label3.Text = "Hatalı Girişi"
        End If
    End Sub

bu örnek de

Dim kisi_sayisi As Integer
kisi_sayisi = ds.Tables(0).Rows.Count

ne işe yarıyor anlayamadım da

Tabloda verilen bilgiye uyan kişi sayısını denetliyor. Eğer verilen bilgilerle eşleşen 1 kişi varsa anasayfaya yönendiriyor.

Vb-tekrar kayıt engelleme

dogckr

Hectopat

pottie4r

Megapat

dogckr

Hectopat

pottie4r

Megapat