[سعود]

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

اولا ضع مربع نص لتضع به جملة الاتصال كاملة وليكن اسمها TextBox1
اكتب الدالة التالية:

PHP كود :

 Function drop(str As String, tt As String) As String
        Using con As New SqlClient.SqlConnection(str)
            Using cm As New SqlClient.SqlCommand("", con)
                cm.CommandText = "DROP TABLE " & tt & ""
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    Return "Droped... " & tt & " "
                Catch ex As Exception
                    Return Err.Description
                End Try

                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Function 


النقطة الاهم واللتي تبحث عنها على مااظن هي بالكود التالي:

PHP كود :

Using con As New SqlClient.SqlConnection(TextBox1.Text)
            'SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES
            Using cm As New SqlClient.SqlCommand("", con)
                cm.CommandText = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES"
                If con.State = ConnectionState.Closed Then con.Open()
                Dim dr As SqlClient.SqlDataReader = cm.ExecuteReader
                Do While dr.Read
                    MsgBox(drop(TextBox1.Text, dr(0).ToString))
                Loop
                dr.Close()
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using 


ارجو تعطيني خبر اذا  هذه الاكواد عملت عندك.
تنبيه!
تحتاج تمرير هذه الجملة بكود الاتصال:

PHP كود :

MultipleActiveResultSets=True; 


وهي لتمكين تعدد مهام القاريء(حسب تعبيري وفهمي)

---

[مشروع] [ليس جديد - بل تجديد Tables Droper]

بصراحة يوجد اشخاص بالمنتدى يشجعون على البذل والمساعدة وتقديم كل ماهو مفيد