SQL-DMO İle Bir Veri Tabanının Yedeklenmesi

SQL-DMO ile yeni bir veri tabanı yaratmanın yanı sıra, var olan bir veri tabanının yedeği de programatik olarak alınabilir. Yedekleme işlemi için, BackupClass isimli sınıf kullanılır.

Örnek 9.3 : Aşağıdaki konsol uygulamasında, BankDB isimli veri tabanının SQLDMO.BackupClass() sınıfı kullanılarak yedeklenmesi örneklenmiştir.

Imports SQLDMO
Module Module1
Sub Main()
Dim oSrv As New SQLServerClass()
oSrv.LoginSecure = True
oSrv.Connect("MAKINEM")
Dim oBcp As New BackupClass()
With oBcp
'Yedekleme türü
.Action = SQLDMO_BACKUP_TYPE.SQLDMOBackup_Database
'Tanım
.BackupSetDescription = "BankDB yedekleme"
'Yedek ismi
.BackupSetName = "BankDB_Yedek"
'Yedeklenen veri tabanı
.Database = "BankDB"
'Yedekleme cihazı belirlemesi
.Devices = "BankDB_Backup"
‘Yedeklemeyi başlat
.SQLBackup(oSrv)
End With
oSrv.DisConnect()
End Sub
End Module

SQL-DMO İle Bir Veri Tabanını Yedekten Geri Yükleme

SQL-DMO kullanılarak daha önceden yedeklenmiş olan bir veri tabanı, geri yüklenebilir. Geri yükleme işlemi Restore isimli sınıf kullanılarak yapılmaktadır.

Örnek 9.4 : Aşağıdaki uygulamada, örnek 9.3 ‘te yedeği alınmış olan BankDB isimli veri tabanının geri yüklenmesi örneklenmektedir.

Imports SQLDMO
Module Module1
Sub Main()
Dim oSrv As New SQLServerClass()
oSrv.LoginSecure = True
oSrv.Connect("MAKINEM")
Dim oRst As New RestoreClass()
With oRst
.Action = SQLDMO_RESTORE_TYPE.SQLDMORestore_Database
.Database = "BankDB"
.Devices = "BankDB_Backup"
.SQLRestore(oSrv)
End With
oSrv.DisConnect()
End Sub
End Module

SQL-DMO İle Yeni Bir Kullanıcı Eklenmesi

Örnek 9.5 : Aşağıdaki uygulamada, LoginClass isimli sınıf kullanılarak SQL Server ‘a yeni bir kullanıcının eklenmesi gösterilmiştir.

Imports SQLDMO
Module Module1
Sub Main()
Dim oSrv As New SQLServerClass()
oSrv.LoginSecure = True
oSrv.Connect("MAKINEM")
Dim oUser As New LoginClass()
oUser.Type = SQLDMO_LOGIN_TYPE.SQLDMOLogin_Standard
oUser.Name = "Nuri"
oSrv.Logins.Add(oUser)
End Sub
End Module

Aykut Taşdelen