[MOSTAFA.KAMEL]

السلام عليكم 

   

الكود اهو

كود :

   Private Sub Button3_Click(sender As Object, 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 = String.Format("Update App set EmpName='{0}',EmpAss='{1}',EmpNum='{3}',DateAdd=#{4}#,Expirydate=#{5}# WHERE id={6}", textna.Text, textpas.Text, textser.Text, DateTimePicker1.Value.ToString("yyyy/MM/dd"), DateTimePicker2.Value.ToString("yyyy/MM/dd"), ID)
           Dim cmd As New OleDbCommand(str, cnn)
           cmd.ExecuteNonQuery()
           cnn.Close()
           MessageBox.Show("تم التحديث")
           loaddata()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
End Class

[طالب برمجة]

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 


[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 


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

[وائل القطاوي]

عدل الارقام التي موجودة بالمواد الخاص بك 0.1.2.3.4.5 حيث انت كاتب 0.1.3.4.5.6

[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

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

[طالب برمجة]

الخطأ أنك وضعت مسافة بين @ و EmpNum

---

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

---

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

[MOSTAFA.KAMEL]

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

---

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

---

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

معلش بقي ياريس ساعات الواحد مش بياخد بالو  طيب معلش عايز كود لو العميل فتح البرنامج وجه كتب السريال تمام او رقم فى التكست بوكس ويضغط على البوتن لو السريال بتاعة العميل موجودة يفتح مضش موجودة ميفتحش

[MOSTAFA.KAMEL]

 عايز كود لو العميل فتح البرنامج وجه كتب السريال تمام او رقم فى التكست بوكس ويضغط على البوتن لو السريال بتاعة العميل موجودة يفتح مضش موجودة ميفتحش