مالغلط في كود الاضافه هنا..

السلام عليكم ورحمه الله وبركاته

اختي لقد نسيتي علامة الوسيط @ في جميع الوسائط!!

السلام عليكم..

عفوا..لم افهم ماتقصده ب

اقتباس

اختي لقد نسيتي علامة الوسيط @ في جميع الوسائط!!

هل تقصد اني يجب ان اكتب الكود كالتالي..

 Dim cmd As New SqlCommand("insert into my_user values (@user_name,@pass_word,@adding,@searshing,@updating,@deleting,@allow_add_users) ", cn)

اذا كنت تقصد ذلك فقد ظهر الخطا التالي عند فعل هذا الكود..

كما في الصورة..

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

هذا الكود كامل "..

Imports System.Data.SqlClient
Public Class Create_users
    Dim MyCommand
    Dim ds As New DataSet
    Dim da As New SqlDataAdapter("SELECT * FROM my_user", cn)
    Dim MyReader As SqlDataReader

    Private Sub Create_users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.Open()
        da.Fill(ds, "my_user")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("اكتب اسم للمستخدم")
            Exit Sub
        End If
        If TextBox2.Text <> TextBox3.Text Then
            MsgBox("كلمات السر غير متطابقة")
            TextBox2.Clear()
            TextBox3.Clear()
            Exit Sub
        End If

        Dim cmd As New SqlCommand("insert into my_user values (@user_name,@pass_word,@adding,@searshing,@updating,@deleting,@allow_add_users) ", cn)
        cmd.Parameters.AddWithValue("@user_name", SqlDbType.VarChar).Value = Trim(TextBox1.Text)
        cmd.Parameters.AddWithValue("@user_pass", SqlDbType.VarChar).Value = Trim(TextBox2.Text)
        cmd.Parameters.AddWithValue("@adding", SqlDbType.Bit).Value = CheckBox2.Checked
        cmd.Parameters.AddWithValue("@updating", SqlDbType.Bit).Value = CheckBox3.Checked
        cmd.Parameters.AddWithValue("@deleting", SqlDbType.Bit).Value = CheckBox4.Checked
        cmd.Parameters.AddWithValue("@searshing", SqlDbType.Bit).Value = CheckBox5.Checked
        cmd.Parameters.AddWithValue("@allow_add_users", SqlDbType.Bit).Value = CheckBox6.Checked
        cmd.ExecuteNonQuery()
        cn.Close()
        MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information)
    End Sub

جزااكم الله كل خير..

السلام عليكم ورحمه الله وبركاته

حسنا فعلتي اختي بس في وسيط واحد لم تعرفي قيمته الا وهو pass_word@ لأنك اخطأت وكتبتي user_pass@

السلام عليكم ورحمه الله وبركاته

حسنا فعلتي اختي بس في وسيط واحد لم تعرفي قيمته الا وهو pass_word@ لأنك اخطأت وكتبتي user_pass@

فعلا هذا ماحدث وانتبهت له وقد تم تصحيحه واشتغل الكود ...

ولكـــــــــــــن لم يتم اضافته على القاعده .."يعني لم اسوي اضافه تطلع رسالة"تم اضافة المستخدم الجديد " ولكن اذا فتح show table datd...ماااااااااالاقي المستخدم حفوظ...

مالمشكله ومالحل..؟

لوكمان في الكود هذا

  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
End Class

وقت التطبيق لا ينفذ دون ان يطلع اخطاء"يعني لمن اختار checkbox لا يقوم باختيار جميع الباقين ..؟ايش المشكله ومالحل..؟

جزاااااااااااااااااااااااك الله كل خير..ونور دربك...

السلام عليكم ورحمه الله وبركاته

اختي بالنسبه للمشكله الاولى عند عرض الجدول حاولي تنقري F5 .. اما بالنسبه للمشكلة الثانية لو سمحتي ارفقي المشروع ليتم تعديله ..

السلام عليكم....

عفوا اخوي ...مافهمت قصدك

اقتباس

اختي بالنسبه للمشكله الاولى عند عرض الجدول حاولي تنقري F5 ..

متى اضغطه ..؟ يعني تقصد اني اعمل رن..؟"لانه لو ضغطته كانو عملت رن.."....؟

هذا شي وشي تاني ...المشروع حجمه كبير مااقدر ارفقه ..هل يوجد طريقه لتصغير الحجم.."او بالاصح مهي الاشياء التي بامكاني حذفخا ليضغر الحجم ولا تؤثر على عمل البرنامج..؟"

السلام عليكم ورحمه الله وبركاته

اختي كان قصدي بالنقر على F5 ليس لتشغيل البرنامج؟!! طيب مو مشكلة اذا كنت فاتحة بيانات الجدول انقري على ايقونة التعجب ! لتنفيذ الاستعلام طبعا بعد بعد الاضافه, اما بالنسبه للمشكلة الثانيه المفروض عند اختيار مربع الاختيار يتم اختيار كل مربعات الاختيار على هذا الفورم, بس تأكدي انهم مش داخل اداة احتواء اخرى مثل ال GroupBox

السلام عليكم...

عفوا ...جربت

اقتباس

اختي كان قصدي بالنقر على F5 ليس لتشغيل البرنامج؟!! طيب مو مشكلة اذا كنت فاتحة بيانات الجدول انقري على ايقونة التعجب

ولكن لم يظهر السجل اللي حفظته "هذه المشكله ايضا واجهتني في شاشة الموظفين ...اما في شاشة الموردين فانه يتم الحفظ .."لادري مالمشكله وكيف يتم حلها ...؟

اما بالنسبه ل

اقتباس

! لتنفيذ الاستعلام طبعا بعد بعد الاضافه, اما بالنسبه للمشكلة الثانيه المفروض عند اختيار مربع الاختيار يتم اختيار كل مربعات الاختيار على هذا الفورم, بس تأكدي انهم مش داخل اداة احتواء اخرى مثل ال group box

هي فعلا داخل هذه الاداه وهذا مااريده ....لكن كيف بامكاني ان ينفذ نفس الكود "اي يتم اختيار الكل عند اختيار الاول "وهي داخل الجروب بوكس ...ماتصحيح الكود..؟

كيف يمكنني ارفاق البرنامج وهو حجمه كبير ...لازم اصغر من حجمه ...بس كيف ..؟

جزاااااااااااااك الله كل خير...ماقصرت ..

السلام عليكم ورحمه الله وبركاته

اختي بالنسبة لمشكلتك الثانيه استبدلي

Me.Controls

GroupBox1.Controls

وعليكم السلام ورحمة الله وبركاته..

جزاك الله كل خير..

اخوي/اعتقد انو السبب في عدم الحفظ في القاعده عدم وجود القاعده في فولدر التشغيل debug...

ولكن الذي اريده كيف يمكنني نقلها اليه ...حاااااااولت عدة طرق بسسسس مازبط..؟الله يسعدك ويفرج عنك عطيني الطريقه المناسبه بالتفصيل

الله يجزاك الجنه ...

السلام علكم ورحمه الله وبركاته

اختي اول شيء هل زبط معاك حل المشكله الثانيه؟!! بالنسبه للمشكله الاولى ياريت تكتبي لي كود الاضافه مره اخرى بالاضافه اكتبي ال ConnectionString بتاعك

السلام عليكم...

ايوا زبط معاي حل المشكله التانيه..والحمد لله ...

هذا كود الاضافه

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("اكتب اسم للمستخدم")
            Exit Sub
        End If
        If TextBox2.Text <> TextBox3.Text Then
            MsgBox("كلمات السر غير متطابقة")
            TextBox2.Clear()
            TextBox3.Clear()
            Exit Sub
        End If

        Dim cmd As New SqlCommand("insert into my_user values (@user_name,@pass_word,@adding,@searshing,@updating,@deleting,@allow_add_users) ", cn)
        cmd.Parameters.AddWithValue("@user_name", SqlDbType.VarChar).Value = Trim(TextBox1.Text)
        cmd.Parameters.AddWithValue("@pass_word", SqlDbType.VarChar).Value = Trim(TextBox2.Text)
        cmd.Parameters.AddWithValue("@adding", SqlDbType.Bit).Value = CheckBox2.Checked
        cmd.Parameters.AddWithValue("@updating", SqlDbType.Bit).Value = CheckBox3.Checked
        cmd.Parameters.AddWithValue("@deleting", SqlDbType.Bit).Value = CheckBox4.Checked
        cmd.Parameters.AddWithValue("@searshing", SqlDbType.Bit).Value = CheckBox5.Checked
        cmd.Parameters.AddWithValue("@allow_add_users", SqlDbType.Bit).Value = CheckBox6.Checked
        cmd.ExecuteNonQuery()
        cn.Close()
        MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information)
    End Sub

وهذا جمله الاتصال

 Public constring As String = "Data Source=.\SQLEXPRESS;AttachDbFilename='" + System.IO.Directory.GetCurrentDirectory() + "\IntellegenceM.mdf" + "';Integrated Security=True;Connect Timeout=30;User Instance=True "
    Public cn As SqlConnection = New SqlConnection(constring)

لكن اعتقد انو لازم تكون القاعده في فولدر التشغيل debug وانا عندي ماهي موجوده فيه...كيف اقدر انقلها اليه..؟

جزاااااااااااااااااااك الله كل خير...

السلام عليكم ورحمه الله وبركاته

ايوه اختي بالفعل عليك نسخ قاعدة البيانات الى مجلد ال debug لأنك استخدمتي الداله GetCurrentDirectory التي سوف ترجع اسم المجلد للبرنامج التنفيذي

السلام عليكم...

عفوا اخوي...بس انت ماجاوبت على سؤالي..

اقتباس

لكن اعتقد انو لازم تكون القاعده في فولدر التشغيل debug وانا عندي ماهي موجوده فيه...كيف اقدر انقلها اليه..؟

اقتباس

ولكن الذي اريده كيف يمكنني نقلها اليه ...حاااااااولت عدة طرق بسسسس مازبط..؟الله يسعدك ويفرج عنك عطيني الطريقه المناسبه بالتفصيل

لو سويت نسخ عادي ولصقتها في debugماتزبط لانه اسااسا لمن افتح خصائصها يكون المسار غير...ولو نقلتها نفس الشي ...كييييييييف اقدر انقلها وتبقى موجوده في solution explorer؟؟؟

يعني مثلا احذفها وارجع اضيفها ..؟بس كيف ماعرف..؟لو سمحت ابي الطريقه بالتفصيل ولو كانت بايخه محاتكون بايخه عندي لاني بجد ماعرف..

جزااااااااك الله كل خير...

السلام عليكم ورحمه الله وبركاته

اختي انسخيها من الويندوز وبعده قومي بعمل Exclude في ال Solution Explorer للقاعدة القديمة وفي اعلى القائم قومي باظهار جميع الملفات في المشروع وقمي بالنقر الايمن على القاعده الجديده واختار Include ليتم اضافتها لل Solution Explorer

السلام عليكم..

اعذرني مافهمت كيف اسوي ....

ليييييت توضح اكثر ..

انا سويت كذا..."حذفت القاعده الاولى من السليوشن....وافتحت الديباج وسويت نسخ لها ....وبعدين رجعت سويت اظهار لكل الملفات...بس مافي شي اسمه include....واذا سويتها سحب ماينفع ..كيييف تصير..؟

انا اشتغل على vb2010...لييييت توضح اكتتتتتر خطوه خطوه ....واعذرني

جزاك الله كل خير...

السلام عليكم ورحمه الله وبركاته

اختي بعد ماتعرضي كل الملفات اكيد بتظهر القاعدة الجديده بس بلون خافت, انقري عليها باليمين واختاري Include

السلام عليكم...

عفوا اخوي مامشي الحال يللي قلت عنه ...لانه لما اضغط علىيها باليمين مايجيني شي...

لكن راح انزل موضوع جديد ...لهذه المشكله لانها هي اكبر من كذ بكثير ...ليت تناظره وترد عليه...

جزااااك الله كل خير ...ماااااقصرت

السلام عليكم ورحمه الله وبركاته

اختي يرجى ارفاق مشروعك ...