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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اين الخطأ في الكود bakriano30@yahoo.com 6 138 18-07-19, 02:35 AM
آخر رد: bakriano30@yahoo.com
  مشكلة عند الاتصال مع قاعدة بيانات sqlserver nooralcown 2 103 13-07-19, 10:01 AM
آخر رد: nooralcown
  [VB.NET] رسالة غريبة بعد إضافة بيانات (ظهرت و إختفت) sniperjawadino 7 233 09-07-19, 03:49 AM
آخر رد: sniperjawadino
  ربط الفورم بقاعدة بيانات اكسل ابو العلاء 2 86 09-07-19, 01:16 AM
آخر رد: ابو العلاء
  مساعدة كيفية عمل نفس الرسام وحفظ الصورة بنفس ID alshandodi 3 107 08-07-19, 12:58 PM
آخر رد: ابراهيم ايبو
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 287 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  هل هناك امكانية لتشفير نص اتصال قاعدة البيانات سامي محمد 7 199 06-07-19, 01:11 AM
آخر رد: سامي محمد
  محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 princelovelorn 12 769 05-07-19, 06:13 PM
آخر رد: elgokr
  [VB.NET] مشكل مفتاح قاعدة البيانات Autonumber sniperjawadino 4 254 30-06-19, 06:38 PM
آخر رد: sniperjawadino
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 470 26-06-19, 02:16 AM
آخر رد: الرائد

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


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