تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] ارجو تصحيح الخطا فى المشروع
#21
إقتباس :معلش تعبتك معى واين اجد ملف pics لكى ااعدل عليه
افتح برنامج SQL Server Management Studio
ثم انتقل الى database ستجد القاعدة باسم pics
الرد }}}
تم الشكر بواسطة:
#22
(13-04-14, 04:06 AM)سعود كتب : تسلم هذا من طيبك
يعني حليت المشكلة؟
منع تكرار التسجيل كالتالي:
1-نكتب دالة جديدة بالموديول
2- نستدعي الدالة من نفس دالة تسجيل جديد Addme وهو بالموديول ايضا

الان التطبيق اذهب للموديول واكتب اعلى دالة التسجيل Addme الدالة التالية:
كود :
Function amefound(ByVal un As TextBox) As Boolean
        Dim cm As New SqlCommand("select count(un) from tusers where un=@un", con)
        cm.Parameters.AddWithValue("@un", un.Text)

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            If cm.ExecuteScalar <= 0 Then
                Return False
            Else
                Return True
            End If

        Catch ex As Exception
            Return False
        End Try
    End Function


الان لنذهب لدالة التسجيل Addme
اكتب باول الدالة الكود التالي:
كود :
If amefound(un) Then
            Return False
            Exit Function
        End If
لتصبح دالة التسجيل بعد اضافة منع تكرار التسجيل هكذا
كود :
Function addme(ByVal un As TextBox, ByVal ps As TextBox) As Boolean
        If amefound(un) Then
            Return False
            Exit Function
        End If

        Dim cm As New SqlCommand("insert into tusers(un,ps) values(@un,@ps)", con)
        cm.Parameters.AddWithValue("@un", un.Text)
        cm.Parameters.AddWithValue("@ps", ps.Text)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            cm.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
هذا باختصار طبعا المستخدم لن يعرف سبب عدم تمكنه من التسجيل الا اذا فصلنا في طرق اعطاء الرسائل لكن كتبت بسرعة
وربى انت استاذ محترف ربنا يبارك فيك ويزيدك من العلم الف شكر يارب يوفقك
الرد }}}
تم الشكر بواسطة:
#23
افتح برنامج SQL Server Management Studio
ثم انتقل الى databases ستجد القاعدة باسم pics
الرد }}}
تم الشكر بواسطة: ابراهيم مراد
#24
(13-04-14, 04:16 AM)سعود كتب : افتح برنامج SQL Server Management Studio
ثم انتقل الى databases ستجد القاعدة باسم pics

معلش انا اسف اخر نقطه بس افرض انا عملت قاعدة جديده كيف اضافها مثل ما حضرتك عملت كدا فى المشروع معللش انا ولله محرج منك اسف ولله
الرد }}}
تم الشكر بواسطة:
#25
اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليكSad
الرد }}}
تم الشكر بواسطة:
#26
(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليكSad

طيب هو الموضوع جميل وسهل عليا كتير اخى الكريم واناا فى دماغى كام فكره كدا هجربها هجرب انشاء قاعده واستعمل الاكواد من الموجوده اشكرك اخى الكريم
الرد }}}
تم الشكر بواسطة:
#27
(13-04-14, 04:40 AM)ابراهيم مراد كتب :
(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليكSad

طيب هو الموضوع جميل وسهل عليا كتير اخى الكريم واناا فى دماغى كام فكره كدا هجربها هجرب انشاء قاعده واستعمل الاكواد من الموجوده اشكرك اخى الكريم

استاذى العظيم سعود ممكن بعد اذنك يا اخى االفاضل برمجة نفس المثال ولكن بدل موديل 1
نخلى WebService1.asmx
عن طريق ال asp.net
واالاستعلام هيكون من الفورم لان هنضيف ويندوز ابلكيشن هىا هيا نفس الخطوط
وتحت كل كود اكتبلى بالعربى دا بيعمل ايه عشان افهم
الرد }}}
تم الشكر بواسطة:
#28
PHP كود :
'التحقق من عدم وجود قيمة
        If txtUserName.Text = "" And txtPass.Text = "" Then
            MessageBox.Show("فضلا ادخل اسم المستخدم وكلمة المرور", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If


        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb")
        Dim cmd As New OleDbCommand("select username,password from usres where username='" & txtUserName.Text & "'and password= '" & txtPass.Text & "'", con)
        con.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader

        If dr.Read Then
            MessageBox.Show("تم الدخول بنجاح", "دخول", MessageBoxButtons.OK, MessageBoxIcon.Information)
            con.Close()
            Me.Hide()
            Form2.ShowDialog()

        Else
            MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
            con.Close()
            Return
        End If 



هذا الكود صحيح ومجرب مع قواعد بيانات اكسس



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}
تم الشكر بواسطة:
#29
(13-04-14, 09:05 AM)ابراهيم مراد كتب :
(13-04-14, 04:40 AM)ابراهيم مراد كتب :
(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليكSad

طيب هو الموضوع جميل وسهل عليا كتير اخى الكريم واناا فى دماغى كام فكره كدا هجربها هجرب انشاء قاعده واستعمل الاكواد من الموجوده اشكرك اخى الكريم

استاذى العظيم سعود ممكن بعد اذنك يا اخى االفاضل برمجة نفس المثال ولكن بدل موديل 1
نخلى WebService1.asmx
عن طريق ال asp.net
واالاستعلام هيكون من الفورم لان هنضيف ويندوز ابلكيشن هىا هيا نفس الخطوط
وتحت كل كود اكتبلى بالعربى دا بيعمل ايه عشان افهم

اتمنى اكون اعرف حتى اسوي اللي قلت عليه لكن المعذرة فلم اتطرق لهذه الامور
الرد }}}
تم الشكر بواسطة: ابراهيم مراد
#30
للاسف ليس لي اي خبرة في التعامل مع قواعد البينات
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  تحزيم المشروع Lamyaa 1 319 17-11-23, 07:44 AM
آخر رد: أبو خالد الشكري
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 8 3,907 21-08-23, 11:11 PM
آخر رد: mohamed Matrix

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم