+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات (/showthread.php?tid=29472)
مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات - ahmedfa71 - 24-04-19
السلام عليكم ورحمة الله وبركاته
لدي 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فكيف لي أ أقوم بذلك
والسلام عليكم ورحمة الله وبركاته