教您如何实现sybase自动备份

sybase自动备份的方法我们经常会用到，下面就为您详细介绍sybase自动备份的实现过程，希望对您学习sybase自动备份方面能有所帮助。

 
 
 
  
  
  Imports System.IO 
  
  
  Module Module1 
  
  
  
  
  
  Sub Main() 
  
  
  
  
  
  Dim str_Path As String 
  
  
  Dim str_FileName As String 
  
  
  Dim str_Name As String 
  
  
  Dim i As Integer, weeknum As Integer 
  
  
  Dim f_file As System.IO.File 
  
  
  Dim F_write As System.IO.StreamWriter 
  
  
  Dim str_temp As String 
  
  
  str_FileName = gbackupdump_data.txt 
  
  
  If File.Exists(str_FileName) = True Then 
  
  
  File.Delete(str_FileName) 
  
  
  End If 
  
  
  F_write = File.CreateText(str_FileName) 
  
  
  F_write.WriteLine(use master) 
  
  
  F_write.WriteLine(go) 
  
  
  weeknum = Weekday(Now()) 
  
  
  '每隔一天转储的文件名相同 
  
  
  Select Case weeknum 
  
  
  Case 1, 2, 4, 6 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(dump database  bsjdw to 'g:\backup\dumpback\bsjdw_data0.dump') 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(dump database  system to 'g:\backup\dumpbacksystem_data0.dump') 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  Case 3, 5, 7 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(dump database  bsjdw to 'g:\backupdumpbackbsjdw_data1.dump') 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(dump database  system to 'gbackupdumpbacksystem_data1.dump') 
  
  
  F_write.WriteLine(go) 
  
  
  F_write.WriteLine(select getdate()) 
  
  
  F_write.WriteLine(go) 
  
  
  
  
  
  End Select 
  
  
  
  
  
  F_write.WriteLine(exit) 
  
  
  F_write.Close() 
  
  
  
  
  
  
  
  
  Dim ti As Date 
  
  
  Dim te As Date 
  
  
  ti = Now
  
  
  Dim logfilename As String 
  
  
  logfilename = datafile + Trim(Str(Year(Now()))) + Trim(Str(Month(Now()))) + Trim(Str(Day(Now()))) + .txt 
  
  
  Shell(cmd k isql -Usa -PSjb81! -i + str_FileName +gbackupdumpbackdumplog + logfilename, AppWinStyle.NormalFocus) 
  
  
  
  
  
  te = Now
  
  
  Try 
  
  
  Dim myProcesses() As Process 
  
  
  Dim instance As Process 
  
  
  Do 
  
  
  myProcesses = Process.GetProcessesByName(cmd) 
  
  
  Dim j As Integer 
  
  
  j = 0
  
  
  For Each instance In myProcesses 
  
  
  If instance.StartTime = ti And instance.StartTime = te Then 
  
  
  j = 1
  
  
  End If 
  
  
  Next 
  
  
  If j = 0 Then 
  
  
  Exit Do 
  
  
  End If 
  
  
  Loop 
  
  
  myProcesses.Clear(myProcesses, 0, myProcesses.Length) 
  
  
  Catch 
  
  
  End Try 
  
  
  
  
  
  Exit Sub 
  
  
  End Sub 
  
  
  
  
  
  End Module

当前题目：教您如何实现sybase自动备份
浏览路径：http://www.csdahua.cn/qtweb/news44/367794.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容