SQL Server下利用vbscript 实现数据库月备份自动清理并发邮件提
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 的方式来实现,数据库备份文件名以日期的格式命名。
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).数据库文件和清理日志文件夹
2).清理数据库日志的程序文件夹,下面就分别讲讲这个文件夹内每个文件的具体用途。
i)Email 里有一个Email_List.txt 的文件,它是记录邮件接受者的用件地址。
每行显示一个邮件地址,具体如下:
Email_List.txt
lilo.zhu@gmail.com
lilo.zhu@ymail.com
lilo.zhu@qq.com
ii)Log 内是清除数据库备文件时记录的日志文件,文件以系统日期.log 形式命名。
iii) Backup_Clear.bat 文件是供Sql Server 在job 是调用的。
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 批处理文件就行了。

Hot AI Tools

Undresser.AI Undress
AI-powered app for creating realistic nude photos

AI Clothes Remover
Online AI tool for removing clothes from photos.

Undress AI Tool
Undress images for free

Clothoff.io
AI clothes remover

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

Hot Article

Hot Tools

Notepad++7.3.1
Easy-to-use and free code editor

SublimeText3 Chinese version
Chinese version, very easy to use

Zend Studio 13.0.1
Powerful PHP integrated development environment

Dreamweaver CS6
Visual web development tools

SublimeText3 Mac version
God-level code editing software (SublimeText3)

Hot Topics

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

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())

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.

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.

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.

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.

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 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.
