Şimdi Ara

Aynı isimle kullanıcı kaydını önleme??

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
15
Cevap
0
Favori
642
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Öne Çıkar
0 oy
Sayfa: 1
Giriş
Mesaj
  • Selamlar,ben bir portal hazırlıyorum.Bir üyelik sistemi hazırladım ama aynı isimle username kaydını önleyemiyorum.

    Dim Gd
    Set Gd = Server.CreateObject("ADODB.RecordSet")
    Gd= ("select * from uyeler")
    Gd.Open sql, baglanti, 1, 3
    if kullanici = Gd("kullanici") then
    response.write "isim kullanımda"

    Kodlarımı böle denedim ama "0x800A01A8 Gd:Nesne Gerekli" hatası veriyor..Yardımcı olursanız sevinirim..Şimdiden tşk ederim



    < Bu mesaj bu kişi tarafından değiştirildi okan10111 -- 18 Kasım 2007; 0:19:36 >



    _____________________________
    Ne Mutlu Türküm Diyene
  • Gd.Open sql, baglanti, 1, 3
    if kullanici = Gd("kullanici") then

    bu nasıl bir kullanım böle..?..arkasım böle yaparak sen sennce neyi esit yapıosun?

    mantıgı olustur once..söle ki...
    kayıtsetini acarken where kısmına sutunadın=isim seklinde bir kullanımla recorsetini olustursun sonra bakarısın böle biri var m yok u sen ole yaparak ..kayıt seti nerdeyse orayı kontol ettirio.tüm kayıtı kontrol ettirrimio.
    _____________________________
  • ilk önce veri tabanında kullanıcı ismine göre arattır. eğer sonuç 0 dan büyükse kayıtlı kullanıcı var dersin eğer 0 sa o zaman kayıt yapar

    bunun için textboxla ile select cümlesi içinde where kullanarak eşitle. sonra onu datatable a aktar. datatabledan da sayıyı al.

    örnek

    Dim oku As New OleDbDataAdapter("select * from firma where kullanici='" & Me.TextBox1.Text & "'", baglanti)
    Dim datat As New DataTable
    oku.Fill(datat)
    If datat.Rows.Count < 1 Then
    ' kayıt yap burada
    else
    ' böyle bir kullanıcı var hatası verdir



    < Bu mesaj bu kişi tarafından değiştirildi mkaratas -- 18 Kasım 2007; 0:58:42 >
    _____________________________
    ACEMİCE
  • Ben asp.net değil, asp çalışıyorum,söylemeyi unutmuşum..Bir de benim sütun adım kullanici...tam olarak kodları nasıl yazmam gerektigini gösterirseniz cok işime yarıycak..tşk ederim..
    _____________________________
    Ne Mutlu Türküm Diyene
  • Kod yazmana gerek yok aslında tam insert yapmadan önce try catch bloğu açarsın try içinde insert işlemi catch içindede lblHata.Text = "Kullanıcı Adı var!! ";
    Hata nerde diye sorarsan.
    Sql 2005 göre yazıyorum, oluşturduğun tablo içindeki kullanıcı adı veya email gibi satırlara,benzersiz olmasını isteyeceksin. Bunuda, sağ clik yapıp Index ekleyeceksin, uniq değer yapıcaksın. Hatada sana Sql den gelecek ve catcth içinde ne yapmak istersen onu yaparsın.

    Böylece Sql e gidip sorgu yapmamış ve kaynakları daha az kullanmış olursun.



    < Bu mesaj bu kişi tarafından değiştirildi mobilecom -- 19 Kasım 2007; 12:26:50 >
    _____________________________
  • Ben access kullanıyorum :)) valla kafam iyice karıstı.Basit bi şekilde tüm kodları yazan olsa tam süper olcaktı ama :S 3gündür ugrasıyorum hala yapamadım...
    _____________________________
    Ne Mutlu Türküm Diyene
  • Access te varmıdır bilmiyorum ama mutlaka vardır bi araştır bence. uniq değer vermeyi. :Bulamassan yazarız iki satır kod sorun olmaz.Aslında kodun da mantığı şu;

    veritabanında ki kullaniciAdi ve email kolonlarını kayıt etmeden önce okutman ve kayıtta gelen iki değer yoksa kaydı yapman.

    Ben Sql 2005'e göre yazim sen accese göre düzenlersin.

    SqlConnection con = new SqlConnection("database=?;data source=?; integrated security=true");
    SqlCommand cmd = new SqlCommand("select kullaniciAdi,mail from dbo.kullanici where kullaniciAdi=@kullaniciAdi or mail=@mail",con);

    cmd.Parameters.AddWithValue("@kullaniciAdi",TextBox1.Text);
    cmd.Parameters.AddWithValue("@mail",TextBox2.Text);

    con.Open();
    SqlDataReader dr= cmd.ExecuteReader();
    if (!dr.Read())
    {
    //Kayıt işlemi
    }
    else
    {
    Label1.Text = "Kullanıcı Adı veya Email daha önce kayıt edilmiş.";
    }
    Not: Kodlar gelişi güzel yazılmıştır. Validation yapılmamıştır.
    Sanırım senin işinide OleDb görecektir.
    _____________________________




  • Yapay Zeka’dan İlgili Konular
    KULLANICI Engelleme
    11 yıl önce açıldı
    Daha Fazla Göster
  • Ben bu şekilde yaptım ve sorgu benziyo.

    Dim Gd
    Set Gd = Server.CreateObject("ADODB.RecordSet")
    Gd= ("select * from uyeler where kullanici= " &kullanici& " ")
    Gd.Open sql, baglanti, 1, 3
    if kullanici = Gd(kullanici) then
    response.write "kullanılıor"
    else
    kayıt işlemi


    accesste kodun dogru hali buna yakın birşey olmalı..aslında belki cok minik bi hata ama sonucta calıştıramadım..
    _____________________________
    Ne Mutlu Türküm Diyene
  • bu yazılımdan fazla anlamıyorum ama mantıken Gd(kullanici) burda hat var

    gd("değer") parantez içindeki değeri " " içinde yazmayı dene. çünkü diğeri mantıklı değil
    _____________________________
    ACEMİCE
  • Sen asp mi asp.net ile yazıyorsun projeyi. Sanırım asp ile ama?
    _____________________________
  • Ben asp ve access ile çalışıyorum.Bu arada Gd("kullanici") bunu da denedim ama olmadı

    Şu anki kullanım şeklim bu ama olmadı yine

    Dim Gd
    Set Gd = Server.CreateObject("ADODB.RecordSet")
    sql = ("select * from uyeler where kullanici= " &kullanici& " ")
    Gd.Open sql, baglanti, 1, 3
    if kullanici = Gd("kullanici") then
    response.write "kullanılıor"
    else
    kayıt işlemi



    < Bu mesaj bu kişi tarafından değiştirildi okan10111 -- 20 Kasım 2007; 17:53:49 >
    _____________________________
    Ne Mutlu Türküm Diyene
  • sql = ("select * from uyeler where kullanici= "" &kullanici& "" ")
    Gd.Open sql, baglanti, 1, 3

    dersin ve de

    if gd.eof or gd.bof then
    burda kayıt yabilirsin.
    else
    response.write("Böyle kullanıcı var")
    end if
    _____________________________
  • quote:

    Orjinalden alıntı: youngboy_ugur

    sql = ("select * from uyeler where kullanici= "" &kullanici& "" ")
    Gd.Open sql, baglanti, 1, 3

    dersin ve de

    if gd.eof or gd.bof then
    burda kayıt yabilirsin.
    else
    response.write("Böyle kullanıcı var")
    end if



    Bence mutlaka email'de kontrol edilmeli.
    _____________________________
  • quote:

    Orjinalden alıntı: youngboy_ugur

    sql = ("select * from uyeler where kullanici= "" &kullanici& "" ")
    Gd.Open sql, baglanti, 1, 3

    dersin ve de

    if gd.eof or gd.bof then
    burda kayıt yabilirsin.
    else
    response.write("Böyle kullanıcı var")
    end if


    Öyle Veya..
    <%
    dim kullanici 'Değişken Belirle
    set gd = Server.CreateObject("ADODB.RecordSet") ' Bağlantı
    sql = "select * from uyeler where kullanici= "" &kullanici& "" "
    Gd.Open sql, baglanti, 1, 3

    if not gd.eof or gd.bof then ' Eğer Boş Değilse.YAni O Kullanıcıdan Varsa.
    response.write("İsim kullanımda") ' Uyarı
    else ' değilse
    kullanici = request.form("kullaniciadi") ' textboxu Cağır
    gd.addnew ' Ekeleme İşlemi
    gd("kullanici") = kullanici
    gd.update
    end if
    %>
    _____________________________




  • Cok saolun üstatlar oldu valla ' "& kullanici &" ' böyle cagrılcakmış.Birgün birinin daha işine yararsa diye yazıyorum..Son hali budur...Very tnx

    set gd = Server.CreateObject("ADODB.RecordSet")
    sql = "select * from uyeler where kullanici= ' " &kullanici& " ' "
    Gd.Open sql, baglanti, 1, 3

    if not gd.eof then
    response.write("İsim kullanımda")
    else
    kayıt işlemi



    < Bu mesaj bu kişi tarafından değiştirildi okan10111 -- 25 Kasım 2007; 19:28:44 >
    _____________________________
    Ne Mutlu Türküm Diyene
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.