منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ما هو كود تنظيف القاعدة من الجداول؟

السلام عليكم ورحمة الله وبركاته
ما هو كود تنظيف القاعدة من الجداول؟
اخواني اعمل حاليا على برمجة صفحة تثبيت جداول وانهيته لكن بقي ان انظف قاعدة بيانات sql server من كافة الجداول التي بها فكيف ذلك؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته

أخي ســــــــعود :
لتنظيــــــف الجـــــــدول من البيـــــــانات بشكل أّمن وبدون حـــــــذف الجــــــــدول ,, نســــــــتخدم الجملة الذكيــــــــــــه كالتـــــــــــالى :

PHP كود :

Try
            Dim DelCmd As New SqlCommand("TRUNCATE TABLE TB", Cn)
            Cn.Open()
            DelCmd.ExecuteNonQuery()
            Cn.Close()
            MsgBox("Your Tabel Was Clear Now ..")

        Catch ex As Exception

        End Try 

موفق .

بارك الله فيك لكن اريد حذف كافة الجداول .لكن وجدته بقي كيف اعرف هل القاعدة بها جداول ام لا

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

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 

بارك الله فيك ..لكني اعرف هذا..... اريد فقط هل يوجد جداول ام لا بدون اسم الجدول يعني هل يوجد في الغرفة من احد؟ Smile

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

PHP كود :

Con.Open()

            Dim schemaTable As DataTable = Con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            Dim Tables = (From Row As DataRow In schemaTable.Rows Where Row("TABLE_TYPE") = "TABLE" Select Row.Item("TABLE_NAME")).ToArray
            Dim Lst As New ListBox

            Lst.Items.Clear()
            Lst.Items.AddRange(Tables)
            MsgBox("Tables Count : " & Lst.Items.Count)
     Lst.Dispose()
            Con.Close() 

كيف استخدمه لـ sql server

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

Abu Ehab

سعود

Abu Ehab

سعود

Abu Ehab

سعود