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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التأثير على فورم ببرنامج من خلال فورم ببرنامج أخر djelloul 1 69 25-04-17, 02:01 AM
آخر رد: silverlight
  رسالة عند فتح فورم يحتوي على تقرير تناسيم 0 70 20-04-17, 11:29 AM
آخر رد: تناسيم
  جعل فورم يطلع أكثر من مرة djelloul 2 81 15-04-17, 12:59 PM
آخر رد: djelloul
  مشكله فى الكود ارجو المساعده نبيل كونكت 0 50 14-04-17, 09:16 PM
آخر رد: نبيل كونكت
  مشكله في Update الداتا في DataGridview أحمد العرب 3 176 13-04-17, 01:46 PM
آخر رد: أحمد العرب
  مطلوب كود بسيط عند الظغط على Button في فورم واحد يتم الظغط على Button في الفورم 2 nmst70 2 112 09-04-17, 03:07 PM
آخر رد: nmst70
  [VB.NET] التعامل مع فورم من نوع UserControl ssayed111 2 66 06-04-17, 12:17 AM
آخر رد: abdualla
  [VB.NET] كيفية التعامل مع فورم جديد برمجيا الماجيك مسعد 2 213 02-04-17, 07:51 PM
آخر رد: LoveVb
  مشكله فى الكود خاصتا الــ id نبيل كونكت 1 98 01-04-17, 04:03 PM
آخر رد: abdualla
  مشكله فى ترقيم الفواتير برده ارجو المساعده نبيل كونكت 0 84 11-03-17, 09:06 AM
آخر رد: نبيل كونكت

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


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