Home Database Mysql Tutorial SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

Jun 07, 2016 pm 03:24 PM
server sql vbscript use accomplish database

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提醒 ---Summary--- 这份文档其实主要是讲vbscript的文件处理和在vbscript 下如何发邮件。大至分为三个部分。 一.Sql Server 数据库备份 二.Sql Server 调用vbs对数据库备份文件夹进行扫描,清

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提醒

---Summary---

这份文档其实主要是讲vbscript的文件处理和在vbscript 下如何发邮件。大至分为三个部分。

一.Sql Server 数据库备份

二.Sql Server 调用vbs对数据库备份文件夹进行扫描,清理以前旧的数据库备份,只保留当前月的数据库备份。

三.将清除的数据库备份文件以附件的形式通知数据库管理员。

---Detailes---

1. Sql Server 数据库备份,以Job 的方式来实现,数据库备份文件名以日期的格式命名。

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

 

Step Name: Bakup Training DB

Type: Transact-SQL Script(T-SQL)

Database: ASATTraining

 

Command:

declare @filename nvarchar(100)

set @filename='D:/TRSYS_DB_BAK/'+convert(char(10),getdate(),112)

print @filename

BACKUP DATABASE [ASATTraining] TO DISK = @filename WITH NOINIT , NOUNLOAD , NAME = N'ASATTraining', NOSKIP , STATS = 10, NOFORMAT

 

 

2. Sql Server 调用vbs实现清理上个月的备份文件,写清理日志,发邮件。

1).数据库文件和清理日志文件夹

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

 

2).清理数据库日志的程序文件夹,下面就分别讲讲这个文件夹内每个文件的具体用途。

 

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

 

 

i)Email 里有一个Email_List.txt 的文件,它是记录邮件接受者的用件地址。

每行显示一个邮件地址,具体如下:

Email_List.txt

lilo.zhu@gmail.com

lilo.zhu@ymail.com

lilo.zhu@qq.com

 

ii)Log 内是清除数据库备文件时记录的日志文件,文件以系统日期.log 形式命名。

 

 

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

 

 

iii) Backup_Clear.bat 文件是供Sql Server job 是调用的。

 

SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提

Step Name: Run Clear Last Month Backup Database Data

Type: Operation System (CmdExec)

Run as: SQL Agent Service Account

Command: D:/TRSYS_DB_BAK_CLEAR/Backup_Clear.bat

 

Backup_Clear.bat

 

d:

cd d:/TRSYS_DB_BAK_CLEAR

Backup_Clear.vbs D:/TRSYS_DB_BAK

 

iv) Backup_Clear.vbs 是实现在清除非本月数据库备份文件,写清除日志,发送邮件的具体脚本程序,内容如下:

 

Backup_Clear.vbs

 

'------------------------------------------------------------

'DataBase Backup Data Clear

'Auto Clear Last Month Database Backup Data 

'

'Create Date: 2009-09-29

'Author:   Wei_Zhu

'Chage Log:

'Last Chage Date:

'-------------------------------------------------------------

 

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

 

Dim ObjArgs

Set ObjArgs = Wscript.Arguments

 

set ws=createobject("wscript.shell")

If ObjArgs.Count > 0  then

'WSH.Echo "The Folder Name is: "& ObjArgs(0)

     ShowFolderList(ObjArgs(0))

else

     Wscript.Echo "Please Input The Full Folder Path..."

end if

 

Function ShowFolderList(ByVal lstg_folder_name)

    Dim fso, f, f1, fc, s, folder

    Dim l_count

    l_count = 1

    fso = CreateObject("Scripting.FileSystemObject")

    folder = fso.getfolder(ws.currentdirectory)

    f = fso.GetFolder(lstg_folder_name)

    fc = f.files

    For Each f1 In fc

        Dim ldt, lf

        ldt = int(mid(f1.name, 5, 2))

        'msgbox Month(Now) &" || " & Month(ldt)

        If Month(Now) > ldt Then

            If right(lstg_folder_name, 1) "/" Then

               lf=lstg_folder_name& "/" & f1.name

            End If

            DeleteFile(lf)

            l_count = l_count + 1

        End If

    Next

    If l_count > 0 Then

        l_email_address = folder & "/Email/Email_List.txt"

        SendEmail(l_email_address)

    End If

End Function

 

Function DeleteFile(ByVal lstg_file_name)

    Dim lstg_msg

    fso = CreateObject("Scripting.FileSystemObject")

    f = fso.GetFile(lstg_file_name)

    f.Delete()

    'msgbox(lstg_file_name & " delete file success !")

    lstg_msg = Now & " Last Month Database Backup File: " & lstg_file_name & " Delete Success !"

    WriteLog(lstg_msg)

End Function

 

Function WriteLog(ByVal lstg_log_msg)

    Dim fso, f, LogFile, l_file_name, folder, l_email_address

   dt=replace(date,"/","-")

    fso = CreateObject("Scripting.FileSystemObject")

    folder = fso.getfolder(ws.currentdirectory)

 

    '---Check Log Folder Exists---

    'If (Not fso.FolderExists(lstg_log_folder)) Then

    '    fso.CreateFolder(lstg_log_folder)

    'End If

 

    'if right(lstg_log_folder,1)"/" then

    '         lstg_log_folder=lstg_log_folder& "/"

    'end if

   l_file_name=folder& "/Log/" & dt & ".log"

 

    '---Check Log File Exists---

    If (fso.FileExists(l_file_name)) Then

        f = fso.GetFile(l_file_name)

        LogFile = f.OpenAsTextStream(ForAppending, TristateUseDefault)

        LogFile.WriteLine(lstg_log_msg)

        LogFile.Close()

    Else

        LogFile = fso.CreateTextFile(l_file_name, True)

        LogFile.WriteLine(lstg_log_msg)

        LogFile.Close()

    End If

End Function

 

Function SendEmail(ByVal lstg_email_list)

   dt=replace(date,"/","-")

    Dim fso, Email_File, folder, str_mail_address, Attached_File

    fso = CreateObject("Scripting.FileSystemObject")

    'msgbox lstg_email_list

    Email_File = fso.OpenTextFile(lstg_email_list, ForReading, False)

    Do While Email_File.AtEndOfStream True

        str_mail_address = str_mail_address & Email_File.ReadLine & ";"

    Loop

    Email_File.Close()

    'msgbox str_mail_address

 

    folder = fso.getfolder(ws.currentdirectory)

   if fso.FileExists(folder& "/Log/" & dt & ".log") then

      Attached_File=folder& "/Log/" & dt & ".log"

    End If

    'msgbox Attached_File

    '---Send Emial---

 

     NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

     Set Email = CreateObject("CDO.Message")

     Email.From = "lilo.zhu@ymail.com"

     Email.To = str_mail_address

     Email.Subject = "DataBase Bakup Data Clear Message"

     Email.HTMLBody = "Hi DBA:
Clear Last Month Database Backup Data Complete,Please See Teh Attached File..."

        if Attached_File "" then

       Email.AddAttachment Attached_File

     end if

 

     With Email.Configuration.Fields

     .Item(NameSpace&"sendusing") = 2

     .Item(NameSpace&"smtpserver") = "smtp.mail.yahoo.com"

     .Item(NameSpace&"smtpserverport") = 25

     .Item(NameSpace&"smtpauthenticate") = 1

     .Item(NameSpace&"sendusername") = "lilo.zhu@ymail.com"

     .Item(NameSpace&"sendpassword") = "123456"

     .Update

     End With

     Email.Send

 

End Function

 

 

---Remark---

1.       vbs 中发邮件是使用CDO.Message 这个对象。

2.       Sql Server 调用带参数的bat 批处理容易出问题,最好将参数都写在bat 文件内,Sql Server 只需调用这个bat 批处理文件就行了。

Statement of this Website
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn

Hot AI Tools

Undresser.AI Undress

Undresser.AI Undress

AI-powered app for creating realistic nude photos

AI Clothes Remover

AI Clothes Remover

Online AI tool for removing clothes from photos.

Undress AI Tool

Undress AI Tool

Undress images for free

Clothoff.io

Clothoff.io

AI clothes remover

Video Face Swap

Video Face Swap

Swap faces in any video effortlessly with our completely free AI face swap tool!

Hot Tools

Notepad++7.3.1

Notepad++7.3.1

Easy-to-use and free code editor

SublimeText3 Chinese version

SublimeText3 Chinese version

Chinese version, very easy to use

Zend Studio 13.0.1

Zend Studio 13.0.1

Powerful PHP integrated development environment

Dreamweaver CS6

Dreamweaver CS6

Visual web development tools

SublimeText3 Mac version

SublimeText3 Mac version

God-level code editing software (SublimeText3)

iOS 18 adds a new 'Recovered' album function to retrieve lost or damaged photos iOS 18 adds a new 'Recovered' album function to retrieve lost or damaged photos Jul 18, 2024 am 05:48 AM

Apple's latest releases of iOS18, iPadOS18 and macOS Sequoia systems have added an important feature to the Photos application, designed to help users easily recover photos and videos lost or damaged due to various reasons. The new feature introduces an album called "Recovered" in the Tools section of the Photos app that will automatically appear when a user has pictures or videos on their device that are not part of their photo library. The emergence of the "Recovered" album provides a solution for photos and videos lost due to database corruption, the camera application not saving to the photo library correctly, or a third-party application managing the photo library. Users only need a few simple steps

Detailed tutorial on establishing a database connection using MySQLi in PHP Detailed tutorial on establishing a database connection using MySQLi in PHP Jun 04, 2024 pm 01:42 PM

How to use MySQLi to establish a database connection in PHP: Include MySQLi extension (require_once) Create connection function (functionconnect_to_db) Call connection function ($conn=connect_to_db()) Execute query ($result=$conn->query()) Close connection ( $conn->close())

How to handle database connection errors in PHP How to handle database connection errors in PHP Jun 05, 2024 pm 02:16 PM

To handle database connection errors in PHP, you can use the following steps: Use mysqli_connect_errno() to obtain the error code. Use mysqli_connect_error() to get the error message. By capturing and logging these error messages, database connection issues can be easily identified and resolved, ensuring the smooth running of your application.

How to connect to remote database using Golang? How to connect to remote database using Golang? Jun 01, 2024 pm 08:31 PM

Through the Go standard library database/sql package, you can connect to remote databases such as MySQL, PostgreSQL or SQLite: create a connection string containing database connection information. Use the sql.Open() function to open a database connection. Perform database operations such as SQL queries and insert operations. Use defer to close the database connection to release resources.

How to use database callback functions in Golang? How to use database callback functions in Golang? Jun 03, 2024 pm 02:20 PM

Using the database callback function in Golang can achieve: executing custom code after the specified database operation is completed. Add custom behavior through separate functions without writing additional code. Callback functions are available for insert, update, delete, and query operations. You must use the sql.Exec, sql.QueryRow, or sql.Query function to use the callback function.

How to save JSON data to database in Golang? How to save JSON data to database in Golang? Jun 06, 2024 am 11:24 AM

JSON data can be saved into a MySQL database by using the gjson library or the json.Unmarshal function. The gjson library provides convenience methods to parse JSON fields, and the json.Unmarshal function requires a target type pointer to unmarshal JSON data. Both methods require preparing SQL statements and performing insert operations to persist the data into the database.

How to handle database connections and operations using C++? How to handle database connections and operations using C++? Jun 01, 2024 pm 07:24 PM

Use the DataAccessObjects (DAO) library in C++ to connect and operate the database, including establishing database connections, executing SQL queries, inserting new records and updating existing records. The specific steps are: 1. Include necessary library statements; 2. Open the database file; 3. Create a Recordset object to execute SQL queries or manipulate data; 4. Traverse the results or update records according to specific needs.

PHP connections to different databases: MySQL, PostgreSQL, Oracle and more PHP connections to different databases: MySQL, PostgreSQL, Oracle and more Jun 01, 2024 pm 03:02 PM

PHP database connection guide: MySQL: Install the MySQLi extension and create a connection (servername, username, password, dbname). PostgreSQL: Install the PgSQL extension and create a connection (host, dbname, user, password). Oracle: Install the OracleOCI8 extension and create a connection (servername, username, password). Practical case: Obtain MySQL data, PostgreSQL query, OracleOCI8 update record.

See all articles