+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ (/showthread.php?tid=17784)
كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ - 0theghost0 - 25-10-16
السلام عليكم
لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد
كود :
Dim str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#")
Dim con As New OleDbConnection(str)
Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'"
Dim isds As New DataSet
Dim isda As New OleDb.OleDbDataAdapter(issql, con)
isda.Fill(isds, "b2")
If Me.BindingContext(isds, "b2").Count > 0 Then
MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا")
Exit Sub
End IfRE: كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ - thevirus - 18-01-17
عليكم السلام
حسب معلوماتي المتواضعة هناك كود انا استخدمه شخصياً
كود :
Public Function getResult(SQL As String) As Boolean
Dim dr As New OledbDataReader
Dim cmd As New OledbCommand(SQL,con)
Con.Open
dr=Cmd.ExcuteNoneReader
If dr.HasRows =True Then
'' في حالة كان هناك سجل موجود يرجع قيمة False اي لايمكنك الحفظ
MsgBOx("لا يمكنك الحفظ لان السجل موجود مسبقا")
Return False
Else
''في حالة عدم وجود سجلات يرجع لنا قية True اي يمكنك الحفظ
MsgBOx("")
REturn True
End If
End Functionطريقة الاستدعاء
PHP كود :
if getResult( "select * from main where b2='" & Me.TextBox2.Text & "'") = true then
' الكود الذي يقوم بحفظ البيانات في حالة لم يكن موجود
End If