[أبو خالد الشكري]

اخي الفاضل :

الامر الذي ذكره الأخ aljazazy هو امر بلغة Sql ولا يمكن كتابته مباشرة في اجراء الزر ولكن يتم مثل التالي :

PHP كود :

Dim con As SqlConnection = New SqlConnection("Data Source=localhost; Integrated Security=SSPI; Initial Catalog=Database")
Dim cmd As SqlCommand

cmd = New SqlCommand(" ALTER DATABASE [DatabaseName] SET SINGLE_USER WITH ROLLBACK IMMEDIATE ;", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close() 


أشكرك شكرا جزيلا (بحجم السماء) أخي Jounior_P ، وكذلك أخي العزيز aljzazy على الكود
أنا طبعا عدلت الكود على حسب البرنامج الذي عندي
ولكن للأسف تظهر الرسالة التالي ، علمًا بأن مسار قاعدة البيانات صحيح !
إلا إذا كان هناك سبب آخر هو الذي كان سببا في إظهار رسالة الخطأ
وهذه هي رسالة الخطأ :


وهذا هو الكود الذي عدلته :

كود :

       Dim DBName As String = "D:\VB.net Test\Alwan.mdf"

       Dim con3 As SqlConnection = New SqlConnection("Data Source=" + My.Computer.Name + "; Integrated Security=SSPI; Initial Catalog= " & DBName & "")
       Dim cmd2 As SqlCommand

       cmd2 = New SqlCommand(" ALTER DATABASE [ " & DBName & " ] SET SINGLE_USER WITH ROLLBACK IMMEDIATE ;", con3)
       con3.Open()
       cmd2.ExecuteNonQuery()
       con3.Close()