تقييم الموضوع :
  • 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 
" إذا كنت تعتقد أن التعلم باهظ الثمن، فلتجرّب الجهل. "
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 86 أمس, 12:28 PM
آخر رد: ssayed111
  الحفظ بالترقيم bidaya 8 127 21-02-17, 07:09 PM
آخر رد: مساعدة
  هل يوجد ميزان مراجعة - من عندة يزودنا به السيد الجوهري 5 137 16-02-17, 05:43 PM
آخر رد: مساعدة
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 681 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] يوجد لدي خطا في الكريستال ريبورت gmailali 5 126 28-01-17, 07:15 PM
آخر رد: gmailali
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 7 189 24-01-17, 12:26 PM
آخر رد: soper
Photo [سؤال] ارجوا توضيح المشكلة بعد عملية الحفظ أبووسم 7 158 21-01-17, 03:07 AM
آخر رد: أبووسم
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 625 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 221 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,410 04-01-17, 12:48 PM
آخر رد: مساعدة

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


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