تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟
#1
السلام عليكم

لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد


كود :
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 If
اتمنى المساعدة شباب
الرد }}}}
تم الشكر بواسطة:
#2
عليكم السلام
حسب معلوماتي المتواضعة هناك كود انا استخدمه شخصياً 
كود :
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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 148 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [VB.NET] هل يوجد اكواد صوت مثل Beep للتنبيه hglogtd 7 159 20-09-17, 02:36 AM
آخر رد: hglogtd
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 75 11-09-17, 12:58 PM
آخر رد: 0theghost0
  هل يوجد كتاب متخصص في التعامل مع الصور في فيجوال بيسك 2013 rafaag777 1 129 20-08-17, 10:55 PM
آخر رد: العواد الصغير
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 2 245 24-06-17, 04:21 PM
آخر رد: سعود
  هل يوجد شخص يعرف سبب هذه المشكلة !! كود برمجي 5 265 23-05-17, 12:33 AM
آخر رد: alma2
  [VB.NET] افضل ما توصلت له لنظام الباركود nabil.1710 21 1,268 15-05-17, 04:06 PM
آخر رد: nabil.1710
  كيفية الحفظ إلى صيغة txt ahmedfa71 1 155 07-05-17, 07:16 PM
آخر رد: mansoor
  سؤال عن مسح بيانات ComboBox بعد عملية الحفظ أو الحذف أبووسم 9 418 08-04-17, 05:47 AM
آخر رد: أبووسم
  [VB.NET] ابحث عن افضل من طريقة لتحديث برنامجك 0theghost0 2 265 27-03-17, 07:55 PM
آخر رد: 0theghost0

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


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