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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التأكد من وجود الجدول (/showthread.php?tid=29224)

التأكد من وجود الجدول - محمد خيري - 02-04-19

السلام عليكم اخواني كيف يمكن التأكد من وجود الجدول بقاعدة البيانات.
لو الجدول Mytable1 فعلا موجود بقاعدة البيانات ينفتح الفورم2 و اذا كان الجدول غير موجود نخرج من البرنامج
قاعدة بيانات Mydatabase.mdb موجودة بال debug و الجدول اسمو MyTable1.بارك الله فيكم

RE: التأكد من وجود الجدول - عبد العزيز البسكري - 02-04-19

السّلام عليكم و رحمة الله و بركاته
تفضّل أخي الكريم ..
كود :
   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

تحياتي


RE: التأكد من وجود الجدول - محمد خيري - 02-04-19

الحمد لله الكود شغال و الحمد لله بارك الله فيك اخي و اشكرك جزيل الشكر على المساعدة