تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التأكد من وجود الجدول
#1
السلام عليكم اخواني كيف يمكن التأكد من وجود الجدول بقاعدة البيانات.
لو الجدول Mytable1 فعلا موجود بقاعدة البيانات ينفتح الفورم2 و اذا كان الجدول غير موجود نخرج من البرنامج
قاعدة بيانات Mydatabase.mdb موجودة بال debug و الجدول اسمو MyTable1.بارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
تفضّل أخي الكريم ..
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim constring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Mydatabase.mdb"
       Using Conne_2019 As New OleDbConnection(constring)
           Conne_2019.Open()
           Dim Table_Name As String = "MyTable1"
           Dim Restrictions() As String = {Nothing, Nothing, Table_Name, Nothing}
           Dim CollectionName As String = "Tables"
           Dim DataTableFind As DataTable = Conne_2019.GetSchema(CollectionName, Restrictions)
           If DataTableFind.Rows.Count > 0 Then
               Form2.Show()
           Else
               MsgBox("الرجاءالتأكّد من وجود الجدول بقاعدة البيانات")
               End
               Exit Sub
           End If
       End Using
   End Sub

تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: محمد خيري , elgokr , بدري , sendbad100
#3
الحمد لله الكود شغال و الحمد لله بارك الله فيك اخي و اشكرك جزيل الشكر على المساعدة
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 204 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 396 09-01-24, 01:41 AM
آخر رد: Taha Okla
  فحص الاسماء الموجودة في الجدول من خلال الداتا جريد فيو yosif 5 735 22-04-23, 07:57 PM
آخر رد: yosif
  كيفية تمرير اسم الجدول في جملة الاستعلام atefkhalf2004 4 712 13-02-23, 10:13 AM
آخر رد: atefkhalf2004
  [مثال] حساب عدد الصفوف، و مجموع حقل محدد من الجدول HUNTER25 3 580 22-12-22, 05:45 PM
آخر رد: HUNTER25
  عدم تشغيل (Debug) للبرنامج عند وجود خطأ atefkhalf2004 3 545 12-11-22, 11:15 AM
آخر رد: odai
  مشكلة كريستتال ريبورت عند وجود نسختين فيجوال علي الجهاز atefkhalf2004 6 1,289 25-10-22, 11:31 PM
آخر رد: mohamedat
  [VB.NET] وجود شبكة عماد سلمان منذر 1 579 10-10-22, 04:14 PM
آخر رد: الماجيك مسعد
  تيكست بوكس ياوى قيمة فى الجدول حماده ممدوح البحيرى 4 883 15-08-22, 09:21 AM
آخر رد: حماده ممدوح البحيرى
  كود التاكد من الحقل موجود داخل الجدول فب قاعدة بيانات sql server vb.net عبدالكريم برشدان 4 1,292 30-07-22, 01:02 AM
آخر رد: سعود

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


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