تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى زر التعديل
#1
السلام عليكم ورحمه الله وبركاته
اخواني الكرام لدي مشروع اقوم بالتعديل عليه
ووصادفت مشكلة هو اثناء عرض موظفين والتعديل عليهم
كود :
'الاتصال بمزود البيانات
    Dim Connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#"
    Dim newconnection As New OleDbConnection(Connectionstring)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim n As String = Label6.Text
            Dim Savecommand As New OleDb.OleDbCommand
            'الاتصال بمزود البيانات
            Dim Connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#"
            Dim newconnection As New OleDbConnection(Connectionstring)
            Savecommand.Connection = newconnection
            Savecommand.CommandType = CommandType.Text
            'التعديل هنا ويكون ما تكتبه فى التكست بوكس
            Savecommand.CommandText = "UPDATE main SET  b1 = '" & Trim(TextBox2.Text) & "' , b2 = '" & Trim(TextBox3.Text) _
            & "' , b3 = '" & Trim(TextBox4.Text) & "' , b4 = '" & Trim(TextBox5.Text) & "' , b5 = '" & Trim(DateTimePicker1.Text) _
            & "' , b6 = '" & Trim(TextBox6.Text) & "' , b7 = '" & Trim(TextBox7.Text) & "' , b8 = '" & Trim(TextBox8.Text) _
            & "' , b9 = '" & Trim(DateTimePicker2.Text) & "' , b10= '" & Trim(TextBox9.Text) & "' , b11= '" & Trim(DateTimePicker3.Text) _
            & "' , b12 = '" & Trim(ComboBox1.Text) & "' , b13 = '" & Trim(ComboBox2.Text) & "' , b14 = '" & Trim(TextBox10.Text) _
            & "' , b15 = '" & Trim(DateTimePicker4.Text) & "' , b16 = '" & Trim(TextBox11.Text) & "' , b17 = '" & Trim(DateTimePicker5.Text) _
            & "' , b18 = '" & Trim(TextBox12.Text) & "' , b19 = '" & Trim(DateTimePicker6.Text) & "' , b20 = '" & Trim(TextBox13.Text) _
            & "' , b22 = '" & Trim(TextBox14.Text) & "'  WHERE id  like '" & n & "'"
            'فتح الاتصال وعمل التعديل الذى قمت به وبعد ذلك اغلاق الاتصال وتظهر رساله للمستخدم بنجاح التعديل الذى قام به
            newconnection.Open()
            Savecommand.ExecuteNonQuery()
            newconnection.Close()

            MsgBox("تم التعديل", 64, "نجاح")
            '   Me.Close()
            'اظهار الفورم الرئيسى بعد نجاح التعديل واغلاق فورم التعديل
            ' main.Show()
            'اصطياد الاخطاء
        Catch ex As Exception
            'عرض الخطا فى رساله
            MsgBox(ex.Message, 16, "خطأ")

        End Try

    End Sub
هذا هو كود البرمجة ولكن عند عرض من قاعدة البينات ومن ثم البدء فى التعديل تظهرلي خطأ ومن ثم لا يقوم بالتعديل
اتمني من احد الاخوه ان يساعدني فى تلك المشكلة
الرد }}}}
تم الشكر بواسطة:
#2
سلام

ممكن سؤال!
كيف تعرف b1 وb2 الخ ان هاد نص وهاد رقم وهاد تاريخ،
وكمان textbox1 وtextbox2 كيف تعرف هاد تبع ايه وهاد تبع ايه
وادا كان نص تضعه في trim وادا كان رقم تضعه في val وادا كان ناريخ من datetimepicker تاحد منه value.date بدل text،
ما تشوف الحكايه ملخبطه خالص حتى على اللي بيحاول يساعدك.

الله يعينك
كود :
'الاتصال بمزود البيانات
    Dim newconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#")

    Dim DataSet1 As New DataSet
    Dim SQLstr As String


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim n As String = Label6.Text
            Dim Savecommand As New OleDb.OleDbCommand
            'الاتصال بمزود البيانات
            Savecommand.Connection = newconnection
            Savecommand.CommandType = CommandType.Text
            'التعديل هنا ويكون ما تكتبه فى التكست بوكس
            Savecommand.CommandText = "UPDATE [main] " & _
                "SET [b1]=@param1, [b2]=@param2, [b3]=@param3, [b4]=@param4, [b5]=@param5, [b6]=@param6, [b7]=@param7, [b8]=@param8, [b9]=@param9, [b10]=@param10, [b11]=@param11," & _
                "[b12]=@param12, [b13]=@param13, [b14]=@param14, [b15]=@param15, [b16]=@param16, [b17]=@param17, [b18]=@param18, [b19]=@param19, [b20]=@param20, [b22]=@param22" & _
                "WHERE [id]=@param99"

            Savecommand.Parameters.AddWithValue("@param1", Trim(TextBox2.Text))
            Savecommand.Parameters.AddWithValue("@param2", Trim(TextBox3.Text))
            Savecommand.Parameters.AddWithValue("@param3", Trim(TextBox4.Text))
            Savecommand.Parameters.AddWithValue("@param4", Trim(TextBox5.Text))
            Savecommand.Parameters.AddWithValue("@param5", DateTimePicker1.Value.Date)
            Savecommand.Parameters.AddWithValue("@param6", Trim(TextBox6.Text))
            Savecommand.Parameters.AddWithValue("@param7", Trim(TextBox7.Text))
            Savecommand.Parameters.AddWithValue("@param8", Trim(TextBox8.Text))
            Savecommand.Parameters.AddWithValue("@param9", DateTimePicker2.Value.Date)
            Savecommand.Parameters.AddWithValue("@param10", Trim(TextBox9.Text))
            Savecommand.Parameters.AddWithValue("@param11", DateTimePicker3.Value.Date)
            Savecommand.Parameters.AddWithValue("@param12", Trim(ComboBox1.Text))
            Savecommand.Parameters.AddWithValue("@param13", Trim(ComboBox2.Text))
            Savecommand.Parameters.AddWithValue("@param14", Trim(TextBox10.Text))
            Savecommand.Parameters.AddWithValue("@param15", DateTimePicker4.Value.Date)
            Savecommand.Parameters.AddWithValue("@param16", Trim(TextBox11.Text))
            Savecommand.Parameters.AddWithValue("@param17", DateTimePicker5.Value.Date)
            Savecommand.Parameters.AddWithValue("@param18", Trim(TextBox12.Text))
            Savecommand.Parameters.AddWithValue("@param19", DateTimePicker6.Value.Date)
            Savecommand.Parameters.AddWithValue("@param20", Trim(TextBox13.Text))
            Savecommand.Parameters.AddWithValue("@param22", Trim(TextBox14.Text))

            Savecommand.Parameters.AddWithValue("@param99", Val(n))

            'فتح الاتصال وعمل التعديل الذى قمت به وبعد ذلك اغلاق الاتصال وتظهر رساله للمستخدم بنجاح التعديل الذى قام به
            newconnection.Open()
            Dim rt As Integer = Savecommand.ExecuteNonQuery()
            newconnection.Close()

            If rt > 0 Then
                MsgBox("تم التعديل", 64, "نجاح")
            Else
                MsgBox("لم يجد الرقم " & n, 64, "خطأ")
            End If
            '   Me.Close()
            'اظهار الفورم الرئيسى بعد نجاح التعديل واغلاق فورم التعديل
            ' main.Show()
            'اصطياد الاخطاء
        Catch ex As Exception
            'عرض الخطا فى رساله
            MsgBox(ex.Message, 16, "خطأ")

        End Try

    End Sub

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 6 106 أمس, 02:49 PM
آخر رد: السندبااد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 174 19-09-17, 07:59 PM
آخر رد: سعود الشامان
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 110 17-09-17, 03:35 PM
آخر رد: 0theghost0
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 8 159 16-09-17, 08:02 PM
آخر رد: tarek
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 113 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 518 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 1 43 15-09-17, 01:28 AM
آخر رد: أبو نوره
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 648 14-09-17, 06:24 PM
آخر رد: محمود صالح
  مشكلة الفورم الشفاف محمود صالح 2 136 14-09-17, 04:59 PM
آخر رد: محمود صالح
  [VB.NET] لدي مشكلة مع كود التعديل 0theghost0 13 178 09-09-17, 05:24 PM
آخر رد: ola

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


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