تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفيه التحقق من الجدول بقاعدة البيانات
#1
السلام عليكم ورحمه الله وبركاته كيفيه التحقق من وجود جدول في قاعدة البيانات وايضا كيفيه التحقق من وجود خليه داخل جدول معين
الرد
تم الشكر بواسطة:
#2
السلام عليكم هل يوجد رد
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته :

للتحقق من وجود جدول ما في قاعدة بيانات معينة نستخدم الكود التالي :



كود :
    Dim Con As New OleDb.OleDbConnection
    Dim TableName As String '= "LookForThisDBTable"
    Dim DoesTheTableExist As Boolean = False

    Private Sub DoesTableExist()
        Try
            Con.ConnectionString = ("Provider=Microsoft.Ace.Oledb.12.0; Data Source =" & Application.StartupPath &
                "\Activities.accdb;Jet OLEDB:Database Password=")
            Con.Open()

            Dim restrictions(3) As String
            restrictions(2) = TableName     ' 
            Dim dbTbl As DataTable = Con.GetSchema("Tables", restrictions)

            If dbTbl.Rows.Count = 0 Then
                'Table does not exist
                DoesTheTableExist = False
                MsgBox("Nooo")
            Else
                'Table exists
                DoesTheTableExist = True
                MsgBox("Yes")
            End If

            dbTbl.Dispose()
            Con.Close()
            Con.Dispose()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TableName = "Activities"        ' اسم الجدول المراد التحقق منه
        DoesTableExist()

    End Sub


للتحقق من وجود حقل ما في جدول معين نستخدم الكود التالي :
كود :
    Public Function DoesFieldExist(ByVal cnnStr As String, ByVal tblName As String,
                               ByVal fldName As String) As Boolean
        ' For Access Connection String,
        ' use "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
        ' accessFilePathAndName

        ' Open connection to the database

        Dim Con1 As New OleDb.OleDbConnection(cnnStr)

        Con1.Open()
        Dim dbTbl As New DataTable

        ' Get the table definition loaded in a table adapter
        Dim strSql As String = "Select TOP 1 * from " & tblName
        Dim dbAdapater As New OleDb.OleDbDataAdapter(strSql, Con1)
        dbAdapater.Fill(dbTbl)

        ' Get the index of the field name
        Dim i As Integer = dbTbl.Columns.IndexOf(fldName)

        If i = -1 Then
            'Field is missing
            DoesFieldExist = False
        Else
            'Field is there
            DoesFieldExist = True
        End If

        dbTbl.Dispose()
        Con1.Close()
        Con1.Dispose()
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conStr As String
        conStr = "Provider=Microsoft.Ace.Oledb.12.0; Data Source =" & Application.StartupPa

        If DoesFieldExist(conStr, "Activities", "Activity") = True Then
            MsgBox("Yes2")
        Else
            MsgBox("No2")
        End If
    End Sub
لا تنسى تعديل الكود بما يناسب(جملة الاتصال -- اسم الجدول -- اسم الحقل )..

قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أرجو المساعدة العاجلة:الاتصال بقاعدة بيانات SQLLITE dr.programming 8 187 15-05-22, 09:30 PM
آخر رد: ابراهيم ايبو
  [سؤال] ضريح كيفيه عمل تقرير بالديف اكسبريس حسن الجلب 0 102 11-05-22, 06:54 PM
آخر رد: حسن الجلب
  [سؤال] كيفيه حساب العمر حسن الجلب 5 264 08-05-22, 11:37 AM
آخر رد: سعود
  ترحيل البيانات من فيجوال الى الوورد strongriseman 4 242 05-05-22, 12:50 PM
آخر رد: strongriseman
  التحقق من المصفوفة Mtaktak 3 319 28-04-22, 08:21 AM
آخر رد: Mtaktak
  مساعدة بكود الاتصال بقاعدة البيانات نيمو 2 384 14-04-22, 05:02 AM
آخر رد: ابراهيم ايبو
  طلب كود مسح السجلات في قاعدة البيانات hafid33 8 746 02-04-22, 07:52 PM
آخر رد: hafid33
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 710 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [VB.NET] كود تصدير قاعدة البيانات إلى ملف Excel محمد العامر 8 2,781 23-03-22, 07:20 PM
آخر رد: نسيم الشباطي
  مشكلة في كود اتصال قاعدة البيانات مع الفيجوال mohmmadadli1 1 460 23-03-22, 07:09 PM
آخر رد: نسيم الشباطي

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


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