GCM-SQL-MGMT-LEEHSIEHJUI/GCM-SQL-MGMT/模組/SQL_語法1.vb

Module SQL_語法1
    Friend Sub SQL_資料庫狀態()
        ConnOpen()
        SQL1 = "SELECT     DB_NAME(database_id) AS [資料庫名稱], physical_name AS [磁碟路徑], type_desc AS [類型描述], 
                           state_desc  AS [狀態描述], size * 8.0 / 1024  AS [使用容量]
                FROM       sys.master_files
                WHERE     (DB_NAME(database_id) NOT LIKE N'master') AND (DB_NAME(database_id) NOT LIKE N'model') AND 
                          (DB_NAME(database_id) NOT LIKE N'msdb') AND (DB_NAME(database_id) NOT LIKE N'tempdb') AND 
                          (DB_NAME(database_id) NOT LIKE N'DWConfiguration') AND (DB_NAME(database_id) NOT LIKE N'DWDiagnostics') AND 
                          (DB_NAME(database_id) NOT LIKE N'DWQueue') 
                ORDER BY  (DB_NAME(database_id))"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_伺服器1清單()
        ConnOpen()
        SQL1 = "SELECT    DB_NAME(database_id) AS 資料庫 FROM sys.master_files 
                WHERE    (DB_NAME(database_id) NOT LIKE N'master') AND (DB_NAME(database_id) NOT LIKE N'model') AND 
                         (DB_NAME(database_id) NOT LIKE N'msdb') AND (DB_NAME(database_id) NOT LIKE N'tempdb') AND 
                         (DB_NAME(database_id) NOT LIKE N'DWConfiguration') AND (DB_NAME(database_id) NOT LIKE N'DWDiagnostics') AND 
                         (DB_NAME(database_id) NOT LIKE N'DWQueue') 
                GROUP BY  DB_NAME(database_id)  ORDER BY  DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢()
        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用  FROM 圖片資料庫管理 ORDER BY 圖片資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工程圖片資料庫管理查詢()
        ConnOpen() : SQL1 = "SELECT 工程圖片資料庫 AS 圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 ORDER BY 工程圖片資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工程文件資料庫管理查詢()
        ConnOpen() : SQL1 = "SELECT 工程文件資料庫 AS 文件資料庫, 是否可用 FROM 工程文件資料庫管理 ORDER BY 工程文件資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工程圖片資料庫管理查詢1()
        ConnOpen() : SQL1 = "SELECT 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 WHERE 工程圖片資料庫 LIKE N'" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程文件資料庫管理查詢1()
        ConnOpen() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 WHERE 工程文件資料庫 LIKE N'" & GCM_SQL_MGMT.文件資料庫名稱_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程圖片資料庫管理查詢新增()
        ConnOpen()
        SQL1 = "INSERT INTO 工程圖片資料庫管理 (工程圖片資料庫, 是否可用) VALUES ('" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "','" & GCM_SQL_MGMT.是否可用_ch.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程文件資料庫管理查詢新增()
        ConnOpen()
        SQL1 = "INSERT INTO 工程文件資料庫管理 (工程文件資料庫, 是否可用) VALUES ('" & GCM_SQL_MGMT.文件資料庫名稱_tb.Text & "','" & GCM_SQL_MGMT.是否可用1_ch.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程圖片資料庫管理查詢修改()
        ConnOpen()
        SQL1 = "UPDATE 工程圖片資料庫管理 SET 是否可用 = '" & GCM_SQL_MGMT.是否可用_ch.Checked & "' WHERE 工程圖片資料庫 LIKE N'" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工程文件資料庫管理查詢修改()
        ConnOpen()
        SQL1 = "UPDATE 工程文件資料庫管理 SET 是否可用 = '" & GCM_SQL_MGMT.是否可用1_ch.Checked & "' WHERE 工程文件資料庫 LIKE N'" & GCM_SQL_MGMT.文件資料庫名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢1()
        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 圖片資料庫 LIKE N'" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢新增()
        ConnOpen()
        SQL1 = "INSERT INTO 圖片資料庫管理 (圖片資料庫, 是否可用) VALUES ('" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "','" & GCM_SQL_MGMT.是否可用_ch.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢修改()
        ConnOpen()
        SQL1 = "UPDATE 圖片資料庫管理 SET 是否可用 = '" & GCM_SQL_MGMT.是否可用_ch.Checked & "' WHERE 圖片資料庫 LIKE N'" & GCM_SQL_MGMT.圖片資料庫名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_主資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While

        If PA = DSF(0) Then : Else
            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
                             SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
                             SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
End Module