[سعود]

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

[Abu Ehab]

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

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

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 


موفق .

[سعود]

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

[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 


[سعود]

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

[Abu Ehab]

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

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