1,216
社区成员
发帖
与我相关
我的任务
分享VB中对SQL SERVER数据库的备份
我们做一进销存软件后台是Sql server数据库，
要在VB中加入对数据库的备份功能如何实现啊，
大虾帮忙啊分要多少给多少啊！
要在VB中加入对数据库的备份功能如何实现啊，
大虾帮忙啊分要多少给多少啊！
...全文
请发表友善的回复…
发表回复
nik_Amis 2003-07-21
- 打赏
- 举报
执行SQL语句
lihonggen0 2003-07-21
- 打赏
- 举报
恢复的时候，连接master数据库
用
restore database name from disk='d:\..........
用
restore database name from disk='d:\..........
lihonggen0 2003-07-21
- 打赏
- 举报
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=127326
lihonggen0 2003-07-21
- 打赏
- 举报
'sql server 的备份方法
If CN.State = adStateOpen Then CN.Close
CN.ConnectionTimeout = 10
connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
CN.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = str(Date)
riqi = dd + "-" + Nowtime
Sql = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
CN.Execute (Sql)
If CN.State = adStateOpen Then CN.Close
CN.ConnectionTimeout = 10
connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
CN.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = str(Date)
riqi = dd + "-" + Nowtime
Sql = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
CN.Execute (Sql)
