[Abu Ehab]

لمــــــعرفة هل الجدول موجود في القـــــــاعده أم لا :
نســـــــتخدم الأجراء التــــــــالي :

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
        If DoesTableExist("Students", conn) Then
            MessageBox.Show("الجدول موجود")
        Else
            MessageBox.Show("الجدول غير موجود")
        End If
    End Sub

    Public Function DoesTableExist(ByVal tblName As String, ByVal conn As OleDb.OleDbConnection) As Boolean
        conn.Open()
        Dim restrictions(3) As String
        restrictions(2) = tblName
        Dim dbTbl As DataTable = conn.GetSchema("Tables", restrictions)
        If dbTbl.Rows.Count = 0 Then
            DoesTableExist = False
        Else
            DoesTableExist = True
        End If
        dbTbl.Dispose()
        conn.Close()
        conn.Dispose()
    End Function