تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود (هل الجدول موجود)
#1
اولا عرف متغير اتصال بالقاعدة مثلا
رمز برمجي:

كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"

ثانيا انسخ الدالة التالية وضعها بموديول
رمز برمجي:
كود :
Public Function DoesTableExist(ByVal tblName As String, ByVal cnnStr As String) As Boolean
        ' For Access Connection String,
        ' use "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
        ' accessFilePathAndName

        ' Open connection to the database
        Dim dbConn As New OleDbConnection(cnnStr)
        dbConn.Open()

        ' Specify restriction to get table definition schema
        ' For reference on GetSchema see:
        ' http://msdn2.microsoft.com/en-us/library/ms254934(VS.80).aspx

        Dim restrictions(3) As String
        restrictions(2) = tblName
        Dim dbTbl As DataTable = dbConn.GetSchema("Tables", restrictions)

        If dbTbl.Rows.Count = 0 Then
            'Table does not exist
            DoesTableExist = False
        Else
            'Table exists
            DoesTableExist = True
        End If

        dbTbl.Dispose()
        dbConn.Close()
        dbConn.Dispose()
    End Function
ثم بحدث النقر لزر الامر اكتب
رمز برمجي:
كود :
If DoesTableExist(InputBox("اكتب اسم جدول"), str) Then
            MsgBox("موجود", MsgBoxStyle.Information, "")
        Else
            MsgBox("غير موجود", MsgBoxStyle.Critical, "")

        End If
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


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


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