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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة فى اظهار فورم داخل فورم اخر باداة Panel eslame elgohary 25 574 اليوم, 12:46 AM
آخر رد: asemshahen5
  [VB.NET] اريد التعديل ع كود للكتابه ع صورة e-coder 5 135 19-08-19, 12:47 AM
آخر رد: ابراهيم ايبو
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 17 383 19-08-19, 12:01 AM
آخر رد: Abdalazim19
  [VB.NET] مشكلة اثناء التشغيل البرنامج محمد بوقزاحة 1 55 18-08-19, 08:20 PM
آخر رد: سعود
  مشكلة في mysql البيانات فارغة عماني939 1 43 17-08-19, 12:32 AM
آخر رد: اسامه الهرماوي
  مبتدىء فى بيئة الدوت نت - مشكلة فى كود الحفظ المبرمج العتيق 10 206 15-08-19, 12:34 AM
آخر رد: المبرمج العتيق
  [VB.NET] كود البحث بين تاريخين به مشكلة اسامه الهرماوي 2 88 14-08-19, 05:29 PM
آخر رد: Beginer
  مشكلة في تحديث nuget mohamedahmed1 0 39 13-08-19, 07:24 PM
آخر رد: mohamedahmed1
Photo مشكلة في WebKitBrowser mohamedahmed1 1 96 13-08-19, 12:23 AM
آخر رد: mohamedahmed1
  مشكلة البحث بين تاريخين اسامه الهرماوي 2 79 10-08-19, 01:29 PM
آخر رد: اسامه الهرماوي

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


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