تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ
#1
Rainbow 
سلام إخواني

كنت أريد أسرع طريقة للتحقق من هل الجدول فارغ

فاستخدمت 

كود :
 daa = New OleDbDataAdapter("         select count(ID)  as N  from TABLE_01 " & _
                                     "UNION ALL select count(ID)  as N  from Table_02 " & _
                                     "UNION ALL select count(ID)  as N  from Table_03 ", cn)

لكن عند استعلام على جداول كثيرة ألاحض هناك تأخر

فقمت بالبحث عن استعلام أكثر سرعة و خفيف فوجدت

كود :
 daa = New OleDbDataAdapter("         select TOP 1 ID  as N  from TABLE_01 " & _
                                     "UNION ALL select TOP 1 ID  as N  from Table_02 " & _
                                     "UNION ALL select TOP 1 ID  as N  from Table_03 ", cn)


أريد نصيحتكم هل هذا الاستعلام أفضل ؟؟

كما وجدت هذا الاستعلام لكن لم أعرف كيفية استخدامه
كود :
IF  EXISTS  (SELECT 1 FROM Table1)  then     ......

على العلم أني أستخدم قاعدة أكسس

شكرا لكم
الرد }}}
تم الشكر بواسطة:
#2
كود :
Dim sql As String = "select * from Database"
       Dim cmd As New OleDbCommand(sql, con)
       Dim dr As OleDbDataReader
       dr = cmd.ExecuteReader()
        .....If dr.Read() = False Then
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة: sniperjawadino , sniperjawadino
#3
شكرا أخي [b]boudyonline[/b]


لم يعمل معي الكود
لكن ألا توجد طريقة بجمل الاستعلام sql
أضن أنه سيكون أفضل لأني سأتعامل مع جداول كثيرة
الرد }}}
تم الشكر بواسطة:
#4
up .......
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم اخي الكريم
هل اسم الجدول عند ك هو (Database) ؟؟؟؟؟
لاحظ تعريف حملة ال sql  اعتقد يجب كتابة اسم الجدول الذي ستتحقق منه
Dim sql As String = "select * from Database"
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , sniperjawadino
#6
شكرا لك أخي

لكن سؤالي هو 
"ماهي أسرع طريقة للتحقق من هل الجداول فارغة "
يعني استعلام يرجع لي بنتيجة مثل True or False
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم اخي الكريم
هذا الكود يتحقق من الجدول اذا كان فارغا او لا
ويجب تحديد اسم الجدول 
اما طريقة التحقق من عدة جداول سوية فاعذرني اخي الكريم
وهذا خارج عن اطار معرفتي وهناك من هو اعلم مني في هذا المنتدى وهم كثر
وفوق كل ذي علم عليم
كود :
Dim sql As String = ("select * from Personal")
       Dim cmd As New OleDbCommand(sql, con)
       Dim dr As OleDbDataReader
       con.Open()
       dr = cmd.ExecuteReader
       If dr.Read() = False Then
           MsgBox("الجدول فارغ")
       Else
           MsgBox("الجدول غير فارغ")
       End If
       con.Close()
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#8
شكرا لك أخي [b]ابراهيم ايبو[/b]  على الإفادة
جزاك الله كل خير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  طريقة جلب صف من قاعدة البيانات بشرط العمود ٤ لا يساوي فارغ Adel27213 2 423 07-11-23, 05:02 AM
آخر رد: Adel27213
  طريقة نقل بيانات عمود من جدول إلى جدول اخر Adel27213 4 447 06-11-23, 07:35 AM
آخر رد: justforit

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


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