منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28359)



أسرع طريقة للتحقق من هل الجدول فارغ - sniperjawadino - 25-01-19

سلام إخواني

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

فاستخدمت 

كود :
 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     ......

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

شكرا لكم


RE: أسرع طريقة للتحقق من هل الجدول فارغ - boudyonline - 26-01-19

كود :
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



RE: أسرع طريقة للتحقق من هل الجدول فارغ - sniperjawadino - 07-02-19

شكرا أخي [b]boudyonline[/b]


لم يعمل معي الكود
لكن ألا توجد طريقة بجمل الاستعلام sql
أضن أنه سيكون أفضل لأني سأتعامل مع جداول كثيرة


RE: أسرع طريقة للتحقق من هل الجدول فارغ - sniperjawadino - 10-02-19

up .......


RE: أسرع طريقة للتحقق من هل الجدول فارغ - ابراهيم ايبو - 10-02-19

السلام عليكم اخي الكريم
هل اسم الجدول عند ك هو (Database) ؟؟؟؟؟
لاحظ تعريف حملة ال sql  اعتقد يجب كتابة اسم الجدول الذي ستتحقق منه
Dim sql As String = "select * from Database"



RE: أسرع طريقة للتحقق من هل الجدول فارغ - sniperjawadino - 12-02-19

شكرا لك أخي

لكن سؤالي هو 
"ماهي أسرع طريقة للتحقق من هل الجداول فارغة "
يعني استعلام يرجع لي بنتيجة مثل True or False


RE: أسرع طريقة للتحقق من هل الجدول فارغ - ابراهيم ايبو - 12-02-19

السلام عليكم اخي الكريم
هذا الكود يتحقق من الجدول اذا كان فارغا او لا
ويجب تحديد اسم الجدول 
اما طريقة التحقق من عدة جداول سوية فاعذرني اخي الكريم
وهذا خارج عن اطار معرفتي وهناك من هو اعلم مني في هذا المنتدى وهم كثر
وفوق كل ذي علم عليم
كود :
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()



RE: أسرع طريقة للتحقق من هل الجدول فارغ - sniperjawadino - 17-02-19

شكرا لك أخي [b]ابراهيم ايبو[/b]  على الإفادة
جزاك الله كل خير