[الطالب]

سلام

ممكن سؤال!
كيف تعرف 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

موفقين