تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في regex farfour 1 72 23-04-19, 12:13 AM
آخر رد: fouadhdfouad
  مشكلة حفظ التاريخ samira20 17 296 20-04-19, 06:17 AM
آخر رد: elgokr
  [VB.NET] مشكلة برنامجي ببعض النسخ محمد اسماعيل 4 87 19-04-19, 11:43 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الاستعلام اسامه الهرماوي 4 68 18-04-19, 07:05 PM
آخر رد: ابراهيم ايبو
  مشكلة تظهر عند العميل اسامه الهرماوي 3 66 18-04-19, 03:59 AM
آخر رد: ابراهيم ايبو
  مشكلة فى جلب كامل الصفحة ابو روضة 5 111 15-04-19, 05:38 PM
آخر رد: ابو روضة
  [تم الحل] مشكلة فى تحويل هذا الكود الى كلاس ابو روضة 3 132 10-04-19, 11:35 PM
آخر رد: ابو روضة
  كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد anis 11 428 06-04-19, 06:08 PM
آخر رد: Emam emam
  ارجو التعديل على كودالاستعلام Group By new_programer 3 73 03-04-19, 12:23 AM
آخر رد: elgokr
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 6 152 02-04-19, 10:16 AM
آخر رد: dubai.eig

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


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