Excel içinden Makro ile SQL Serverde BACKUP ve RESTORE yapmak

[alicimri]

Aşağıdaki Makroda SqlServerAdı ve VeriTabanıAdı kendinize göre değiştirin, BACKUP dosyası (.bak) D sürücüsünde oluşuyor. Tools/References'de "microsoft activex data objects 6.1 library" işaretleyin.

Sub sqlRESTORE()
Dim conn As New ADODB.Connection
Dim sConnString As String
Dim sql As String
      sConnString = "Provider=SQLOLEDB;Data Source=SqlServerAdı;" & "Initial Catalog=master;" & "Integrated Security=SSPI;"
      conn.Open (sConnString)
sql = "RESTORE DATABASE VeriTabanıAdı FROM DISK =  'D:\VeriTabanıAdı.bak'"
   conn.Execute (sql)
   conn.Close
End Sub
Sub sqlBACKUP()
Dim conn As New ADODB.Connection
Dim sConnString As String
Dim sql As String
      sConnString = "Provider=SQLOLEDB;Data Source=SqlServerAdı;" & "Initial Catalog=master;" & "Integrated Security=SSPI;"
      conn.Open (sConnString)
sql = "BACKUP DATABASE VeriTabanıAdı TO DISK = 'D:\VeriTabanıAdı.bak'"
conn.Execute (sql)
   conn.Close
End Sub