منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

(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 


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

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

[attachment=17152]

---

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

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

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

---

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

---

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

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

---

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

---

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

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