(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, 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

(13-02-18, 11:35 PM)طالب برمجة كتب : الخطأ أنك وضعت مسافة بين @ و EmpNum

---

آسف، اتضح أن الخطأ مني، فأنا من وضعت المسافة بالخطأ، تم تصحيح الكود.

---

لو ركزت في رسالة الخطأ لعرفت الخلل حتى لو لم تكن تعرف لغة إنجليزية.