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

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



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


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