تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في فورم التسجيل
#1
السلام عليكم ورحمه الله وبركاته

اخواني الكرام

انا لدي مشكله
صممت فورم لتسجيل مستخدمين جدد وتحديد صلاحيات لكل شخص منهم عن طريق قوائم الاختيار

وعند تشغيل البرنامج ظهر المشكله التاليه

كما في الصوره

[ATTACH=CONFIG]2751[/ATTACH]


اتمنى منكم التكرم بمساعدتي

لكم كل الشكر


الكود

كود :
Imports System.Data.OleDb
Public Class Formnewuser

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" And TextBox2.Text = "" Then
            MsgBox("Please put username or password")
        End If

        Dim cmd As New OleDb.OleDbCommand("insert into users(user,pass,Approve,SMR,KH,SA,NA,MOD1,AH,NO,AZ,MA,SJ,MOA,HA,OL) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", con)
        cmd.Parameters.AddWithValue("@user", OleDbType.VarChar).Value = Trim(TextBox1.Text)
        cmd.Parameters.AddWithValue("@pass", OleDbType.VarChar).Value = Trim(TextBox2.Text)
        cmd.Parameters.AddWithValue("@SMR", OleDbType.Boolean).Value = CheckBox2.Checked
        cmd.Parameters.AddWithValue("@KH", OleDbType.Boolean).Value = CheckBox3.Checked
        cmd.Parameters.AddWithValue("@SA", OleDbType.Boolean).Value = CheckBox4.Checked
        cmd.Parameters.AddWithValue("@NA", OleDbType.Boolean).Value = CheckBox5.Checked
        cmd.Parameters.AddWithValue("@MOD1", OleDbType.Boolean).Value = CheckBox6.Checked
        cmd.Parameters.AddWithValue("@AH", OleDbType.Boolean).Value = CheckBox7.Checked
        cmd.Parameters.AddWithValue("@NO", OleDbType.Boolean).Value = CheckBox8.Checked
        cmd.Parameters.AddWithValue("@AZ", OleDbType.Boolean).Value = CheckBox9.Checked
        cmd.Parameters.AddWithValue("@MA", OleDbType.Boolean).Value = CheckBox10.Checked
        cmd.Parameters.AddWithValue("@SJ", OleDbType.Boolean).Value = CheckBox11.Checked
        cmd.Parameters.AddWithValue("@MOA", OleDbType.Boolean).Value = CheckBox12.Checked
        cmd.Parameters.AddWithValue("@HA", OleDbType.Boolean).Value = CheckBox13.Checked
        cmd.Parameters.AddWithValue("@OL", OleDbType.Boolean).Value = CheckBox14.Checked
        cmd.Parameters.AddWithValue("@Approve", OleDbType.Boolean).Value = CheckBox15.Checked
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("The new user has been saved successfully", MsgBoxStyle.Information)

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            For Each cntr In Me.Controls
                If TypeOf cntr Is CheckBox Then
                    cntr.checked = True
                End If
            Next
        Else
            For Each cntr In Me.Controls
                If TypeOf cntr Is CheckBox Then
                    cntr.checked = False
                End If
            Next
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Main.Show()
        Me.Close()
    End Sub

    Private Sub Formnewuser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
الرجاء المساعده
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

أخي العزيز هذا الخطأ معناه انه هنالك خطا في اسماء الحقول في الجدول لربما تكون اسماء محجوزة

غير الاسماء وستحل المشكلة ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#4
ما معقول تضع بارمتر في كود الكوماند مثلا @user وفي جملة الربط ?

قم باستبدال كل علامات الاستفهام ؟ بالبارمترات الموجودة في كود الكوماند .
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
حبدا اخي لو تعمل بريك بوينت عند الاضافة و تتيقن من ان كل بارامتر تم ملءه بمعطيات تلائم نوع الحقل في القاعدة
قم بوضع break point عند insert و اضغط F8 لتتبع خطوة خطوة .
الرد }}}}
تم الشكر بواسطة:
#6
معلش يا اخووواني لم افهم المقصووود

الرجاء التوضيح

يعني اغير علامات ؟ الى مثلا @user

ام ماذا
الرد }}}}
تم الشكر بواسطة:
#7
Uuuuuuuuuuppppppp
الرد }}}}
تم الشكر بواسطة:
#8
هناك اختلاف بسيط في طريقة اضافة البارمتر الى الاستعلام /
الطريقة البسيطة و هي وضع التكستبوك المصدر او المصدر الدي نأخد منه المعلومة مباشرة
الطريقة الاساسية في البرنامج و هي التي استعملتها انت . - مع احترامي للاخ kslawy .-
لا شك ان المشكل مصدره خطأ في الاستعلام المرجو ارفاق المشروع لو كان ممكنا .
الرد }}}}
تم الشكر بواسطة:
#9
اخي العزيز

لا استطيع رفع البرنامج كاملا لكبر حجمه

لكن رفعت لك فورم الدخول وفووورم التسجيل


اتمنى منك المساعده

لك كل الشكر


الملفات المرفقة
.zip   WindowsApplication3.zip (الحجم : 288.74 ك ب / التحميلات : 40)
الرد }}}}
تم الشكر بواسطة:
#10
Uppppppppppppppppppppppp
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 223 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [سؤال] مشكله اثناء تثبيت MICROSOFT VISUAL STUDIO ULTIMATE 2013 tempman 0 34 17-01-17, 08:23 AM
آخر رد: tempman
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,868 04-01-17, 09:18 PM
آخر رد: jojo2014
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 85 22-12-16, 06:52 PM
آخر رد: قناص المدينة
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 187 07-12-16, 02:39 PM
آخر رد: a_abdullah
Information [VB.NET] مشكله في إرسال ايميل bahgat okasha 0 75 22-11-16, 04:50 AM
آخر رد: bahgat okasha
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 255 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
Photo [سؤال] لدي مشكله DataGridView أحمد العرب 4 191 16-11-16, 10:26 AM
آخر رد: أحمد العرب
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 430 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
Lightbulb طلب بسيط: فورم إدخال (4) خانات... Arabia 6 207 25-10-16, 04:36 PM
آخر رد: Arabia

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


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