VBS 备份SQL Server数据库

最新推荐文章于 2023-09-14 11:09:04 发布

Jessie_Zhang

最新推荐文章于 2023-09-14 11:09:04 发布

阅读量1k

点赞数

分类专栏： VB VB.NET 文章标签： sql server database 数据库 server date disk

本文链接：https://blog.csdn.net/jessie_zhang/article/details/5787053

版权

VB VB.NET 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

老接到一下挑战我熟悉范围的活儿,不过也好,可以多学习点,但就是样样都很菜,整天都成了问问题大王了,PC上的东西做久了回头再做大机又得天天问人了,我晕啊晕~!!!

呵呵,不过其实还是不难的,用VBS调用ADO访问数据库做备份,简单的VBS贴出来.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Name DB_Backup.vbs Backup SQL Server DB ' ' Author Jessie Zhang ' ' Date 20100803 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Const CustomerBackupPath = "D:/FinIQ_Database_backup/Customer.bak" Dim ServerName,UserId,UserPwd,DBName Dim objConnection,strConnectionString,strSQL ServerName = "ServerName" DBName = "Customer" UserId = Wscript.Arguments(0) UserPwd = Wscript.Arguments(1) strConnectionString = "Driver={sql server};server=" & ServerName & ";uid=" & UserId & ";pwd=" & UserPwd & ";database=" & DBName strSQL = "BACKUP DATABASE [Customer] TO DISK = N'" & CustomerBackupPath & "' WITH NOFORMAT, NOINIT, NAME = N'Customer-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10" Set objConnection=CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open objConnection.Execute strSQL objConnection.Close Set objConnection = Nothing ''''''''''''''''''''''''''''''''End''''''''''''''''''''''''''''''''''''''''''