تقييم الموضوع :
  • 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 [email protected][email protected][email protected][email protected][email protected] WHERE [email protected]"
 
       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 [email protected][email protected][email protected] EmpNum, [email protected][email protected] WHERE [email protected]"
 
       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 [email protected][email protected][email protected] EmpNum, [email protected][email protected] WHERE [email protected]"
 
       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] التاكد من محتويات واجهة البرنامج محمد اسماعيل 2 0 منذ 32 دقيقة مضت
آخر رد: محمد اسماعيل
  مشكلة في تشغيل المشروع vs2010 Abdulaziz Hazazi 2 0 منذ 2 ساعة مضت
آخر رد: Abdulaziz Hazazi
  [VB.NET] فتح و غلق قاعدة البيانات في كل استعلام قد يكون مضر بها sniperjawadino 5 0 منذ 2 ساعة مضت
آخر رد: sniperjawadino
  [VB.NET] مشكلة عند دخول غرفة الدردشة + مشروع e-coder 2 0 أمس, 10:07 AM
آخر رد: e-coder
  [VB.NET] البحث بالتاريخ بقاعدة البيانات محمد اسماعيل 10 0 أمس, 02:45 AM
آخر رد: محمد اسماعيل
  [سؤال] ممكن حل الله يكرمكم لهذا الموقع ابو روضة 6 0 23-02-18, 02:01 AM
آخر رد: ابو روضة
Tongue [VB.NET] رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة MohammedHikmat 2 0 22-02-18, 09:46 PM
آخر رد: MohammedHikmat
  مشكلة ادخال الى قاعدة البيانات eeee2 0 0 22-02-18, 09:30 PM
آخر رد: eeee2
  حل مشكلة DataGrid Riyadh.Bataher 4 0 22-02-18, 02:56 PM
آخر رد: طالب برمجة
  [VB.NET] ممكن كود خفظ البيانات فى الــMy.Settings MOSTAFA.KAMEL 12 0 22-02-18, 01:02 AM
آخر رد: spoony

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


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