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.
Kod:
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