تقييم الموضوع :
  • 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]  على الإفادة
جزاك الله كل خير
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] اختيار سجل محدد من الجدول على أساس ترتيبه mmaalmesry 2 100 20-09-21, 08:25 AM
آخر رد: mmaalmesry
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 128 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 9 1,300 08-09-21, 07:25 PM
آخر رد: tfarejdz
  طريقة استعمال الهاتف كقارئ باركود وربطه بالكمبيوتر ahmedbezia 3 200 30-08-21, 09:25 PM
آخر رد: asemshahen5
  ممكن طريقة نقل الاسماء من datagridview الى textbox العطر الرايق 2 378 31-07-21, 01:56 PM
آخر رد: العطر الرايق
  ممكن طريقة نقل اسماء من datagridview الي اكثر من textbox العطر الرايق 1 354 27-07-21, 03:59 AM
آخر رد: aldery
  اريد طريقة لاتقاط سكرين شوت وحفظها تلقائي في مجلد من ملفات برنامجي 4545Mohamed 2 376 08-07-21, 01:00 PM
آخر رد: 4545Mohamed
  اريد تفريغ بيانات جدول الى جدول اخر مع حذف البيانات التى فى الجدول المفرغ منه خالد كامل1 1 422 19-06-21, 10:01 PM
آخر رد: خالد كامل1
  طريقة حذف فورم اثناء تشغيل البرنامج Basil Abdallah 3 574 30-05-21, 12:58 AM
آخر رد: mrfenix93
  اريد طريقة للدوران علي ملفات الرسورسز الخاصة بالبرنامج أبو عبدالله الحلواني 3 616 16-05-21, 06:02 PM
آخر رد: أبو عبدالله الحلواني

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


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