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

سلام إخواني

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

فاستخدمت

كود :

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

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

شكرا لكم

كود :

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

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

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

up .......

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

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

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

Dim sql As String = "select * from Database"

شكرا لك أخي

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sniperjawadino

boudyonline

sniperjawadino

sniperjawadino

ابراهيم ايبو

sniperjawadino

ابراهيم ايبو

sniperjawadino