home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / MS_Sql_Dat19490811172005.psc / clsBackUp.cls < prev    next >
Text File  |  2005-11-17  |  2KB  |  76 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsBackUp"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14.  
  15. Private Const BACKUP_DEVICE = "DMO_BKP_DEV"
  16. Public Function backupDB(sDBaseName As String, sPath As String, gsUserName As String, gsPaswword As String) As Boolean
  17. 'Author:  sangram
  18. 'Purpose: Database Back
  19. On Error GoTo ErrHnd
  20.     Dim rstServerName As New ADODB.Recordset
  21.     Dim oSQLServer As New sqldmo.SQLserver
  22.     Dim oBackup As New sqldmo.Backup
  23.     Dim sServerName As String
  24.     AdoConnection
  25.     rstServerName.Open "SELECT @@SERVERNAME ", gdbConnection, adOpenStatic, adLockReadOnly
  26.     sServerName = rstServerName.Fields(0)
  27.     Set rstServerName = Nothing
  28.     oSQLServer.Connect sServerName, gsUserName, gsPaswword
  29.     oBackup.Action = SQLDMOBackup_Database
  30.     oBackup.DataBase = sDBaseName
  31.     oBackup.BackupSetDescription = "Complete Backup of " & sDBaseName
  32.     'oBackup.Files = "\\pritesh" & "\c:\" & "e26c10a80stmp.bak" 'gettempp
  33.     
  34.     oBackup.Files = GetTempPathName & "e26c10a80stmp.bak"  'gettempp
  35.     oBackup.SQLBackup oSQLServer
  36.     oSQLServer.Disconnect
  37.     backupDB = True
  38.     Exit Function
  39. ErrHnd:
  40.     backupDB = False
  41. End Function
  42.  
  43. Public Static Function GetServerWindowsName(ByVal strPwd) As String
  44. On Error GoTo ErrHand
  45.     Dim rstServerName As New ADODB.Recordset
  46.     Dim oSQLServer As New sqldmo.SQLserver
  47.     
  48.     Dim sServerName As String
  49.     AdoConnection
  50.     rstServerName.Open "SELECT @@SERVERNAME ", gdbConnection, adOpenStatic, adLockReadOnly
  51.     sServerName = rstServerName.Fields(0)
  52.     
  53.     oSQLServer.Connect UCase(sServerName), "SA", g_sPassword
  54.      
  55.      GetServerWindowsName = oSQLServer.NetName
  56.     Set rstServerName = Nothing
  57.     Exit Function
  58.  
  59. ErrHand:
  60.     MsgBox Err.Description
  61. End Function
  62. Private Function GetTempPathName() As String
  63.     Dim sbuffer As String
  64.     Dim lRet As Long
  65.     
  66.     sbuffer = String$(255, vbNullChar)
  67.     
  68.     lRet = GetTempPath(255, sbuffer)
  69.     
  70.     If lRet > 0 Then
  71.         sbuffer = Left$(sbuffer, lRet)
  72.     End If
  73.     GetTempPathName = sbuffer
  74.     
  75. End Function
  76.