منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعده فى تعديل كود SELECT - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعده فى تعديل كود SELECT (/showthread.php?tid=24588)

ارجو المساعده فى تعديل كود SELECT - نبيل فتحى - 19-04-18

الكود عباره عن بحث عن الاسم ده موجود ولا لاه وده فى حاله تعديل اسم المستخدم كود للتاكيد هل اسم المستخدم موجود او لا 
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 

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

RE: ارجو المساعده فى تعديل كود SELECT - عبد العزيز البسكري - 20-04-18

(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 ب .. نجمة
تحياتي


RE: ارجو المساعده فى تعديل كود SELECT - نبيل فتحى - 20-04-18

بس الكود منطقيا صح
ولا فى غلط
(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 ب .. نجمة
تحياتي

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

RE: ارجو المساعده فى تعديل كود SELECT - عبد العزيز البسكري - 20-04-18

كلام منطقي أخي الكريم ..
فقط للدردشة أخي الكريم .. الغير منطقي هو أنّك تريد التّأكّد من اسم موجود أو غير موجود .. أثناء التعديل مثلما ذكرت
لمّا نقول تعديل .. يعني تعديل على شيء هو أصلاُ موجود !! ؟؟
تحياتي


RE: ارجو المساعده فى تعديل كود SELECT - محمد كريّم - 20-04-18

كود :
where user_name.NOTKOL = 0


كود :
where user_name.NOTKOL = 'false'