如果用vb备份sql server的数据库啊?

Question

要安装SQL的客户端。
http://www.csdn.net/expert/Topic/450/450108.shtm

Answer 1

回复人： i_need_mana(小岭) (  ) 信誉：100  2002-3-19 13:46:56  得分:20  
 
 
  VB:
Private Sub Command1_Click()
connectit_1 cn_w
 Dim cmd_bp As ADODB.Command
 Set cmd_bp = New ADODB.Command
 Set cmd_bp.ActiveConnection = cn_w
 cmd_bp.CommandTimeout = 900
 sql = "backupit"
 cmd_bp.CommandText = sql
 cmd_bp.Execute
 Set cmd_bp = Nothing
 closeit cn_wEnd Sub
Private Function connectit_1(ByRef cn)
  Set cn = CreateObject("ADODB.Connection")
  Connstring = "Provider=SQLOLEDB.1;Password=1245;" & _
               "User ID=sa;" & _
               "database=yourdb;" & _
               "server=yourserver;Connect Timeout=15"
  cn.Open ConnstringEnd FunctionPrivate Function closeit(ByRef cn)
    cn.Close
    Set cn = Nothing
End FunctionSP:
restore
CREATE PROCEDURE Loaddata
 @databasenm varchar(30)
,@pathnm varchar(100)
 AS
declare @sql varchar(500)
select @sql="restore database "+@databasenm+" from disk='"+@pathnm+"' WITH replace"
execute(@sql)backup:
CREATE PROCEDURE backupit
 @databasenm varchar(30)
,@pathnm varchar(100)
 AS
select @sql="backup database "+@databasenm+" to disk='"+@pathnm+".bak' WITH INIT"
execute(@sql)