12-06-20, 07:49 AM
(آخر تعديل لهذه المشاركة : 12-06-20, 07:51 AM {2} بواسطة 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()
شكرا
شكرا
تم النسخ بالكود التالي
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()
شكرا

