تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن حل مشكلة التعديل من خلال البرنامج فى قاعدة البيانات
#1
السلام عليكم 

   

الكود اهو

كود :
   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
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button3_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button3.Click
    Try
        dataconnection
()
 
       If (String.IsNullOrEmpty(textna.TextOrElse String.IsNullOrWhiteSpace(textpas.Text)) Then
            MessageBox
.Show("يجب ادخال اسم المستخدم والسريال ""خطأ"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Return
        End 
If
 
       Dim ID As Integer CInt(DataGridView1(0DataGridView1.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(strcnn)
 
       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 
الرد
تم الشكر بواسطة:
#3
(13-02-18, 07:21 PM)طالب برمجة كتب :
PHP كود :
Private Sub Button3_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button3.Click
    Try
        dataconnection
()
 
       If (String.IsNullOrEmpty(textna.TextOrElse String.IsNullOrWhiteSpace(textpas.Text)) Then
            MessageBox
.Show("يجب ادخال اسم المستخدم والسريال ""خطأ"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Return
        End 
If
 
       Dim ID As Integer CInt(DataGridView1(0DataGridView1.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(strcnn)
 
       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 

هجرب ورد علي حضرتك
الرد
تم الشكر بواسطة:
#4
عدل الارقام التي موجودة بالمواد الخاص بك 0.1.2.3.4.5 حيث انت كاتب 0.1.3.4.5.6
الرد
تم الشكر بواسطة: MOSTAFA.KAMEL
#5
(13-02-18, 07:55 PM)MOSTAFA.KAMEL كتب :
(13-02-18, 07:21 PM)طالب برمجة كتب :
PHP كود :
Private Sub Button3_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button3.Click
    Try
        dataconnection
()
 
       If (String.IsNullOrEmpty(textna.TextOrElse String.IsNullOrWhiteSpace(textpas.Text)) Then
            MessageBox
.Show("يجب ادخال اسم المستخدم والسريال ""خطأ"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Return
        End 
If
 
       Dim ID As Integer CInt(DataGridView1(0DataGridView1.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(strcnn)
 
       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

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

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

لو ركزت في رسالة الخطأ لعرفت الخلل حتى لو لم تكن تعرف لغة إنجليزية.
الرد
تم الشكر بواسطة: عبد العزيز البسكري , MOSTAFA.KAMEL
#7
(13-02-18, 11:35 PM)طالب برمجة كتب : الخطأ أنك وضعت مسافة بين @ و EmpNum

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] رفعت قاعدة بيانات access على Google Drive ولم استطع استعراض التقارير؟؟ abomo3ath 9 244 منذ اقل من1 دقيقه مضت
آخر رد: mero5000
  [VB.NET] استيراد اعمدة جريد فيو من قاعدة بيانات اكسس حسب الاختيار Marwan9990 4 64 منذ 1 ساعه مضت
آخر رد: Marwan9990
Sad [VB.NET] اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا kalshsami 7 70 منذ 2 ساعة مضت
آخر رد: mrnooo2000
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 2 22 منذ 3 ساعة مضت
آخر رد: dametucorazon
  [VB.NET] فزعتكم يا شباب ضروري البرنامج مايتعرف على sql server 2014 0theghost0 1 31 منذ 4 ساعة مضت
آخر رد: Done
  ممكن مساعدة طباعة دفاتر صكوك مصرفية الزوي 12 128 منذ 5 ساعة مضت
آخر رد: elgokr
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 3 32 منذ 7 ساعة مضت
آخر رد: elgokr
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 367 أمس, 10:23 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 81 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 86 18-07-18, 07:26 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم