[MOSTAFA.KAMEL]

(13-02-18, 07:55 PM)MOSTAFA.KAMEL كتب :

(13-02-18, 07:21 PM)طالب برمجة كتب :

PHP كود :

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    Try
        dataconnection()
        If (String.IsNullOrEmpty(textna.Text) OrElse String.IsNullOrWhiteSpace(textpas.Text)) Then
            MessageBox.Show("يجب ادخال اسم المستخدم والسريال ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        Dim ID As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())
        Dim str As String = "Update App set EmpName=@EmpName, EmpAss=@EmpAss, EmpNum=@ EmpNum, DateAdd=@DateAdd, Expirydate=@Expirydate WHERE id=@id"
        Dim cmd As New OleDbCommand(str, cnn)
        cmd.Parameters.AddWithValue("@EmpName", textna.Text)
        cmd.Parameters.AddWithValue("@EmpAss", textpas.Text)
        cmd.Parameters.AddWithValue("@EmpNum", textser.Text)
        cmd.Parameters.AddWithValue("@DateAdd", DateTimePicker1.Value.Date)
        cmd.Parameters.AddWithValue("@Expirydate", DateTimePicker2.Value.Date)
        cmd.Parameters.AddWithValue("@id", ID)
        If cmd.ExecuteNonQuery() > 0 Then
            MessageBox.Show("تم التحديث")
            loaddata()
        Else
            MessageBox.Show("لن يتم التحديث")
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        cnn.Close()
    End Try
End Sub 


هجرب ورد علي حضرتك

حضرتك فى مشكلة تانى 

   

---

(13-02-18, 08:23 PM)وائل القطاوي كتب : عدل الارقام التي موجودة بالمواد الخاص بك 0.1.2.3.4.5 حيث انت كاتب 0.1.3.4.5.6

ههههههههه فضلت ساعة قاعد اكتب فى الكود اكثر من مره وشوف الخطاء فى ايه صبحان الله تسلم ياريس الف شكر