تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 600 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 312 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil

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


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