[atefkhalf2004]

السادة
شكرا
تم النسخ بالكود التالي
If conn.State = ConnectionState.Open Then conn.Close()
       Dim cmd1 As New SqlCommand
       cmd1.CommandType = CommandType.Text
       cmd1.Connection = conn
       cmd1.CommandText = "ALTER DATABASE salse SET OFFLINE"
       conn.Open()
       cmd1.ExecuteNonQuery()
       conn.Close()


       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\salse.ldf", "d:\NewFullfileName.ldf", True)
       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\salse.mdf", "d:\NewFullfileName.mdf", True)

لكن عند التشغيل
ما زالت القاعدة اوف لاين
كيف
1-استخدم الكود
ALTER DATABASE database_name SET ONLINE;  
2-ما فائدة الكود
ALTER DATABASE yourdatabaseName MODIFY FILE ( NAME = logical_name, FILENAME = 'new_path\os_file_name' );  
كيف استخدمه

3-ما فائدة الكود
SELECT name, physical_name AS CurrentLocation, state_desc  
FROM sys.master_files  
WHERE database_id = DB_ID(N'<database_name>');
كيف استخدمه

اين اضع كود اعادة اون لان
كود الاتصال الذي استخدمه  هو
 conString = ("Data Source= " & ServerIP(Application.StartupPath & "\IpFile.txt") & ";Initial Catalog=salse; User ID=elsalah ; Password=08642")
           conn.ConnectionString = conString
           conn.Open()
           My.Settings.sername = True
           My.Settings.Save()
شكرا