منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الكود عباره عن بحث عن الاسم ده موجود ولا لاه وده فى حاله تعديل اسم المستخدم كود للتاكيد هل اسم المستخدم موجود او لا 
USERNAME ده اسم المستخدم فى قاعدة البيانات
NOTKOL ده عباره عن TRUE او FALSE فى قاعدة البيانات وده علشان الحذف لو TRUE يبقى محذوف فى قاعدة البيانات
ID عباره عن كود المستخدم فى قاعدة البيانات
ارجو المساعده وشكرا وده الكود 

طبعا الكود غلط

(19-04-18, 10:46 PM)نبيل فتحى كتب : [ -> ]الكود عباره عن بحث عن الاسم ده موجود ولا لاه وده فى حاله تعديل اسم المستخدم كود للتاكيد هل اسم المستخدم موجود او لا 
USERNAME ده اسم المستخدم فى قاعدة البيانات
NOTKOL ده عباره عن TRUE او FALSE فى قاعدة البيانات وده علشان الحذف لو TRUE يبقى محذوف فى قاعدة البيانات
ID عباره عن كود المستخدم فى قاعدة البيانات
ارجو المساعده وشكرا وده الكود 

PHP كود :

md = New OleDbCommand("select username from user_name where user_name.NOTKOL = False AND ID <> @ID", con)
        md.Parameters.Add(New OleDbParameter("@ID", fe))
        con.Open()
        Dim dr As OleDbDataReader = md.ExecuteReader
        dr.Read()
    If dr.Item("username") = TextBox1.Text Then
            MsgBox("هذا الاسم موجود بالفعل")
            con.Close()
            TextBox1.Text = ""
            TextBox1.Focus()
            Return
        End If 


طبعا الكود غلط

بس الكود منطقيا صح
ولا فى غلط

---

(20-04-18, 03:08 AM)عبد العزيز البسكري كتب : [ -> ]

(19-04-18, 10:46 PM)نبيل فتحى كتب : [ -> ]الكود عباره عن بحث عن الاسم ده موجود ولا لاه وده فى حاله تعديل اسم المستخدم كود للتاكيد هل اسم المستخدم موجود او لا 
USERNAME ده اسم المستخدم فى قاعدة البيانات
NOTKOL ده عباره عن TRUE او FALSE فى قاعدة البيانات وده علشان الحذف لو TRUE يبقى محذوف فى قاعدة البيانات
ID عباره عن كود المستخدم فى قاعدة البيانات
ارجو المساعده وشكرا وده الكود 

PHP كود :

md = New OleDbCommand("select username from user_name where user_name.NOTKOL = False AND ID <> @ID", con)
        md.Parameters.Add(New OleDbParameter("@ID", fe))
        con.Open()
        Dim dr As OleDbDataReader = md.ExecuteReader
        dr.Read()
    If dr.Item("username") = TextBox1.Text Then
            MsgBox("هذا الاسم موجود بالفعل")
            con.Close()
            TextBox1.Text = ""
            TextBox1.Focus()
            Return
        End If 


طبعا الكود غلط

السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. بدون ملف لا يمكن التّأكّد من الخطأ .. لكن بالبداية حاول تتبع كلمة SELECT ب .. نجمة

تحياتي

بس الكود لغويا صح ولا فيه مشكله