تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات
#1
السلام عليكم ورحمة الله وبركاته
لدي 2 تيكست بوكس أحدهما يقوم بحساب مفتاح الحساب البريدي بواسطة دالة إذا كانت قيمة TextBoxCle  لا تساوي TexTestCleCcp
أريد إذا كانت قيمتها مختلفة أي أن هنالك خطأ 
يحفظ هذا الخطأ في جدول وبمجرد تصحيح الخطأ تذهب هذه التسجيلة من الجدول

هذا كود الحفظ
كود :
cn.Open()
       cmd.CommandText = "SELECT COUNT (*) FROM EmpCcp WHERE Nem='" & TextBoxNem.Text & "'"
       Dim Cpt As Int16
       Cpt = cmd.ExecuteScalar
       If Cpt = 0 Then
           cmd.CommandText = "INSERT INTO EmpCcp(Nem,nom,NCompte,Cle,MontApayer,Motif)VALUES ('" & TextBoxNem.Text & "','" & TextBoxNomPren.Text & "','" & TextBoxNCcp.Text & "','" & TextBoxCle.Text & "','" & TextBoxMontant.Text & "','" & ComboBoxMotif.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("تمت عملية الحفظ بنجاح")
       Else
           MessageBox.Show("هذا الإسم موجود مسبقا")
       End If
       cn.Close()
       ShowdDataGView()

وهذه الدالة التي تحفظ الخطأ في جدول أخر 
كود :
Private Function EreurCleCcp()
       Try
           cn.Open()
           Dim cmd1 As New OleDbCommand("insert into CcpIncorrect ([numero], [Compte], [NetApayer], [Nom],[Cle]) values (@numero, @Compte, @NetApayer, @Nom,@Cle)", cn)
           With cmd1.Parameters
               .AddWithValue("@numero", TextBoxNem.Text)
               .AddWithValue("@Compte", TextBoxNCcp.Text)
               .AddWithValue("@NetApayer", TextBoxMontant.Text)
               .AddWithValue("@Nom", TextBoxNomPren.Text)
               .AddWithValue("@Cle", TextBoxCle.Text)
           End With
           cmd1.ExecuteNonQuery()
           Return True
       Catch ex As Exception
           MessageBox.Show("خطأ" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
           Return False
       End Try
   End Function

فكيف لي أ أقوم بذلك
والسلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] نص اتصال قاعدة sqlite بكلمة المرور princelovelorn 8 521 18-10-19, 02:08 AM
آخر رد: اللورد محمود
Rainbow [VB.NET] الإتصال بقاعدة بيانات على النت بواسطة تطبيق فجول بيسك علي إبراهيم الحاج علي 4 210 15-10-19, 05:15 PM
آخر رد: علي إبراهيم الحاج علي
  [VB.NET] التعامل مع قاعدة بيانات أكسس vb.net 2012 paypalet 1 75 15-10-19, 03:40 PM
آخر رد: elgokr
  طريقة حفظ بإسم لجدول موجود في قاعدة البيانات مع بقاء الجدول الأساسي جيولوجي مبتدئ 11 258 15-10-19, 05:00 AM
آخر رد: elgokr
Sad [VB.NET] نقل بيانات جدول بقاعدة بيانات الى جدول اخر بقاعدة بيانات ثانية اسامه الهرماوي 7 153 14-10-19, 11:12 PM
آخر رد: elgokr
  [سؤال] كود الحذف من قاعدة بيانات muad 2 91 14-10-19, 10:11 PM
آخر رد: muad
  [VB.NET] مسار قاعدة البيانات محمد اسماعيل 12 269 06-10-19, 01:52 PM
آخر رد: محمد اسماعيل
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 7 158 02-10-19, 10:21 PM
آخر رد: asemshahen5
  معرفة عدد الجداول في قاعدة بيانات ابو همام العراقي 6 188 30-09-19, 12:34 AM
آخر رد: asemshahen5
  كيف يتعرف البرناج على موقع قاعدة بيانات sqlserver nooralcown 1 105 29-09-19, 04:05 PM
آخر رد: اسامه الهرماوي

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


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