日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
教您如何實(shí)現(xiàn)sybase自動(dòng)備份

sybase自動(dòng)備份的方法我們經(jīng)常會(huì)用到，下面就為您詳細(xì)介紹sybase自動(dòng)備份的實(shí)現(xiàn)過(guò)程，希望對(duì)您學(xué)習(xí)sybase自動(dòng)備份方面能有所幫助。

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

本文名稱(chēng)：教您如何實(shí)現(xiàn)sybase自動(dòng)備份
轉(zhuǎn)載來(lái)于：http://www.5511xx.com/article/djosoid.html