تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 94 أمس, 02:39 PM
آخر رد: a_abdullah
Information [VB.NET] مشكله في إرسال ايميل bahgat okasha 0 47 22-11-16, 04:50 AM
آخر رد: bahgat okasha
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 190 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
Photo [سؤال] لدي مشكله DataGridView أحمد العرب 4 140 16-11-16, 10:26 AM
آخر رد: أحمد العرب
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 331 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
Lightbulb طلب بسيط: فورم إدخال (4) خانات... Arabia 6 137 25-10-16, 04:36 PM
آخر رد: Arabia
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 7 2,514 22-10-16, 09:53 AM
آخر رد: abbas alshuily
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 130 21-10-16, 04:40 AM
آخر رد: silverlight
  عندالتعديل اى مكونات لاى فورم وعمل run لم يتم التغير ؟؟ servo_eng 11 339 03-10-16, 02:28 AM
آخر رد: tryold
  التسجيل برقم الهارد Mohamed20 1 101 29-09-16, 11:34 PM
آخر رد: ابراهيم النعيمي

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


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