تقييم الموضوع :
  • 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
لا تنسى تعديل الكود بما يناسب(جملة الاتصال -- اسم الجدول -- اسم الحقل )..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق

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


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