資料庫還原

Dim mSQL, mSQL1 As String Dim mConn, g_Path, g_MDBConn, mFileName As String Dim dsEmployee As DataTable Dim dvEmployee As DataView Dim I, mRow, mXZCou As Integer Dim ls_open_flag As Boolean = False Dim g_DataBaseName As String = "UFIDAAutoShop" Private Sub GetOK() If edtPath.Text.Trim() = "" Then MsgBox("請選擇資料庫備份檔案", vbOKOnly + vbInformation, "提示") Exit Sub End If If IO.File.Exists(edtPath.Text.Trim()) = False And ls_open_flag = True Then MsgBox("資料庫備份檔案不存在,請選擇正確的備份檔案路徑！", vbOKOnly + vbInformation, "提示") Exit Sub End If If edtServer.Text.Trim() = "" Then MsgBox("請指定伺服器名稱", vbOKOnly + vbInformation, "提示") Exit Sub End If If edtDemo.SelectedIndex > 0 Then Try Dim mySQLConn As New SqlConnection mySQLConn.ConnectionString = "Pooling=false;User ID=sa;Password=" & edtPassWord.Text & ";Initial Catalog=" & g_DataBaseName & ";Data Source=" & edtServer.Text mySQLConn.Open() mySQLConn.Close() mySQLConn.Dispose() mySQLConn = Nothing Catch ex As Exception edtDemo.SelectedIndex = 0 MsgBox("建立演示賬套前，請先恢復正式賬套", vbOKOnly + vbInformation, "提示") Exit Sub End Try End If mRow = dvEmployee.Count mXZCou = 0 If mRow > 1 Then For I = 0 To mRow - 1 If dvEmployee.Item(I)("XZBZ") = True Then mXZCou = mXZCou + 1 End If Next End If If mXZCou > 1 Then MsgBox("恢復資料庫只能選擇一個時間的備份！", vbOKOnly + vbInformation, "提示") Exit Sub End If mConn = "Pooling=false;User ID=sa;Password=" & edtPassWord.Text.Trim() & ";Data Source=" & edtServer.Text If edtDemo.SelectedIndex = 0 Then mSQL = "use master RESTORE DATABASE " & g_DataBaseName & " FROM DISK='" & edtPath.Text & "' With Replace , Move '" & g_DataBaseName & "_data' TO '" & g_Path & "/" & g_DataBaseName & ".mdf',Move '" & g_DataBaseName & "_log' TO '" & g_Path & "/" & g_DataBaseName & ".ldf'" Else mSQL = "use master RESTORE DATABASE " & g_DataBaseName & "Demo FROM DISK='" & edtPath.Text & "' With Replace , Move '" & g_DataBaseName & "_data' TO '" & g_Path & "/" & g_DataBaseName & "Demo.mdf',Move '" & g_DataBaseName & "_log' TO '" & g_Path & "/" & g_DataBaseName & "Demo.ldf'" End If mRow = dvEmployee.Count If mRow > 1 Then mSQL1 = "" For I = 0 To mRow - 1 If dvEmployee.Item(I)("XZBZ") = True Then mSQL1 = ",File=" & dvEmployee.Item(I)("XH") End If Next mSQL = mSQL & mSQL1 End If Try Panel1.Visible = True System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim SqlConn As SqlClient.SqlConnection SqlConn = New SqlClient.SqlConnection(mConn) SqlConn.Open() Dim SqlComm As SqlClient.SqlCommand = New SqlClient.SqlCommand(mSQL, SqlConn) SqlComm.CommandTimeout = 3600 SqlComm.ExecuteNonQuery() SqlConn.Close() System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default Dim myConn As New System.Data.OleDb.OleDbConnection Dim myComm As OleDb.OleDbCommand myConn.ConnectionString = g_MDBConn myConn.Open() myComm = New OleDb.OleDbCommand("Update SysMain Set Server='" & edtServer.Text & "',Pwd='" & edtPassWord.Text & "'", myConn) myComm.ExecuteNonQuery() myConn.Close() Panel1.Visible = False MsgBox("資料庫恢復成功!", vbOKOnly + vbInformation, "提示") Me.Close() Catch ex As Exception MsgBox("資料庫恢復失敗，可能資料庫正在使用中，請關閉所有客戶端程式重試！", vbOKOnly + vbInformation, "提示") Panel1.Visible = False End Try End Sub

sql 語句：use master  RESTORE DATABASE UFIDAAutoShopDemo FROM DISK='C:/Program Files/ufida/T3-汽修通/UFIDAAutoShopDemo.bak' With Replace , Move 'UFIDAAutoShop_data' TO 'E:/T3-汽修通/src/UFIDARestore/UFIDARestore/bin/Debug/UFIDAAutoShopDemo.mdf',Move 'UFIDAAutoShop_log' TO 'E:/T3-汽修通/src/UFIDARestore/UFIDARestore/bin/Debug/UFIDAAutoShopDemo.ldf'