السلام عليكم اخواني كيف يمكن التأكد من وجود الجدول بقاعدة البيانات.
لو الجدول Mytable1 فعلا موجود بقاعدة البيانات ينفتح الفورم2 و اذا كان الجدول غير موجود نخرج من البرنامج
قاعدة بيانات Mydatabase.mdb موجودة بال debug و الجدول اسمو MyTable1.بارك الله فيكم
السّلام عليكم و رحمة الله و بركاته
تفضّل أخي الكريم ..
كود :
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
تحياتي
الحمد لله الكود شغال و الحمد لله بارك الله فيك اخي و اشكرك جزيل الشكر على المساعدة