[sniperjawadino]

سلام إخواني

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

فاستخدمت 

كود :

 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     ......

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

شكرا لكم

[boudyonline]

كود :

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

[sniperjawadino]

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


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

[sniperjawadino]

up .......

[ابراهيم ايبو]

السلام عليكم اخي الكريم

هل اسم الجدول عند ك هو (Database) ؟؟؟؟؟

لاحظ تعريف حملة ال sql  اعتقد يجب كتابة اسم الجدول الذي ستتحقق منه

Dim sql As String = "select * from Database"

[sniperjawadino]

شكرا لك أخي

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

[ابراهيم ايبو]

السلام عليكم اخي الكريم

هذا الكود يتحقق من الجدول اذا كان فارغا او لا

ويجب تحديد اسم الجدول 

اما طريقة التحقق من عدة جداول سوية فاعذرني اخي الكريم

وهذا خارج عن اطار معرفتي وهناك من هو اعلم مني في هذا المنتدى وهم كثر

وفوق كل ذي علم عليم

كود :

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()

[sniperjawadino]

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