当前位置:首页 >时尚 >教您如何实现sybase自动备份 如果您感兴趣的自动话

教您如何实现sybase自动备份 如果您感兴趣的自动话

2024-06-29 09:03:44 [百科] 来源:避面尹邢网

教您如何实现sybase自动备份

作者:佚名 数据库 sybase数据库备份的教何方式很多,下文就对sybase数据库自动备份的实现实现方法作了详细的介绍,如果您感兴趣的自动话,不妨一看。备份

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

  1. Imports System.IO  
  2. Module Module1  
  3.  
  4. Sub Main()  
  5.  
  6. Dim str_Path As String  
  7. Dim str_FileName As String  
  8. Dim str_Name As String  
  9. Dim i As Integer,备份 weeknum As Integer  
  10. Dim f_file As System.IO.File  
  11. Dim F_write As System.IO.StreamWriter  
  12. Dim str_temp As String  
  13. str_FileName = gbackupdump_data.txt  
  14. If File.Exists(str_FileName) = True Then  
  15. File.Delete(str_FileName)  
  16. End If  
  17. F_write = File.CreateText(str_FileName)  
  18. F_write.WriteLine(use master)  
  19. F_write.WriteLine(go)  
  20. weeknum = Weekday(Now())  
  21. '每隔一天转储的文件名相同  
  22. Select Case weeknum  
  23. Case 1, 2, 4, 6  
  24. F_write.WriteLine(select getdate())  
  25. F_write.WriteLine(go)  
  26. F_write.WriteLine(dump database  bsjdw to 'g:\backup\dumpback\bsjdw_data0.dump')  
  27. F_write.WriteLine(go)  
  28. F_write.WriteLine(select getdate())  
  29. F_write.WriteLine(go)  
  30. F_write.WriteLine(dump database  system to 'g:\backup\dumpbacksystem_data0.dump')  
  31. F_write.WriteLine(go)  
  32. F_write.WriteLine(select getdate())  
  33. F_write.WriteLine(go)  
  34. Case 3, 5, 7  
  35. F_write.WriteLine(select getdate())  
  36. F_write.WriteLine(go)  
  37. F_write.WriteLine(dump database  bsjdw to 'g:\backupdumpbackbsjdw_data1.dump')  
  38. F_write.WriteLine(go)  
  39. F_write.WriteLine(select getdate())  
  40. F_write.WriteLine(go)  
  41. F_write.WriteLine(dump database  system to 'gbackupdumpbacksystem_data1.dump')  
  42. F_write.WriteLine(go)  
  43. F_write.WriteLine(select getdate())  
  44. F_write.WriteLine(go)  
  45.  
  46. End Select  
  47.  
  48. F_write.WriteLine(exit)  
  49. F_write.Close()  
  50.  
  51.  
  52. Dim ti As Date  
  53. Dim te As Date  
  54. ti = Now 
  55. Dim logfilename As String  
  56. logfilename = datafile + Trim(Str(Year(Now()))) + Trim(Str(Month(Now()))) + Trim(Str(Day(Now()))) + .txt  
  57. Shell(cmd k isql -Usa -PSjb81! -i + str_FileName +gbackupdumpbackdumplog + logfilename, AppWinStyle.NormalFocus)  
  58.  
  59. te = Now 
  60. Try  
  61. Dim myProcesses() As Process  
  62. Dim instance As Process  
  63. Do  
  64. myProcesses = Process.GetProcessesByName(cmd)  
  65. Dim j As Integer  
  66. j = 0 
  67. For Each instance In myProcesses  
  68. If instance.StartTime = ti And instance.StartTime = te Then  
  69. j = 1 
  70. End If  
  71. Next  
  72. If j = 0 Then  
  73. Exit Do  
  74. End If  
  75. Loop  
  76. myProcesses.Clear(myProcesses, 0, myProcesses.Length)  
  77. Catch  
  78. End Try  
  79.  
  80. Exit Sub  
  81. End Sub  
  82.  
  83. End Module  
  84.  

 

教您如何实现sybase自动备份 如果您感兴趣的自动话

 

教您如何实现sybase自动备份 如果您感兴趣的自动话

 

教您如何实现sybase自动备份 如果您感兴趣的自动话

【编辑推荐】

设置SYBASE用户口令为空

Sybase数据库维护技巧总结

深入探究SYBASE数据库日志

Sybase日期函数应用示例

Sybase数据库函数全介绍

责任编辑:段燃 来源: 互联网 sybase自动备份

(责任编辑:时尚)

    推荐文章
    热点阅读