SMO, Microsoft SQL sunucularını uzaktan yönetmek için tasarlanmış objelerdir. SMO kütüphanesini pojemize referans olarak ekleyerek SSMS (SQL Server Management Studio) ile yapabileceğimiz çoğu işlemi uygulamamızdan yapabiliriz.
SMO, Distributed Management Objects(SQL-DMO) yerine gelmiştir. SMO, SQL-DMO’ ya göre daha performanslı ve kolay kullanımlıdır. SMO çoğu SQL-DMO işlevselliğini içerir, yeni sınıflarlada SQL server yeniliklerini destekler. SQL-DMO bir COM objesidir, SMO ise bir .NET bileşenidir.
SMO, SQL Server 2000, SQL Server 2005 ve SQL Server 2008 sürümlerini destekler. SQL Server 2000 öncesi versiyonları desteklememektedir.
SMO sınıfları iki türlüdür: Instance sınıfları ve Utility sınıfları. Instance sınıfları sunucular, veritabanları, tablolar, triggerlar ve prosedüreler gibi SQL objelerini ifade eder. Veritabanı sunucusunun hiyerarşisini ifade eden bir yapısı vardır. Utility sınıfları belirli işlemleri gerçekleştiren objelerdir. Veritabanı şemasını veya datayı başka veritabanına taşıma, yedekleme ve geri yükleme ve scripting sınıflarını ifade eder.
Smo ile çalışmak için öncelikle SQL kurulu klasörde bulunan SMO .dll dosyalarını projemize ekleriz.
Aşağıda Smo Server objesi ile çalışmayı örnekleyen VB.Net kodlar var.
Server nesnesi yaratmak için :
Imports Microsoft.SqlServer.Management.Smo
Imports System.Collections.Specialized
Dim SqlServer As New Server
SqlServer.ConnectionContext.ServerInstance = "MSSQLSERVER"
SqlServer.ConnectionContext.StatementTimeout = 3600
SqlServer.ConnectionContext.LoginSecure = True
SqlServer.ConnectionContext.Connect()
Bir veritabanı nesnesine erişmek istiyorsak bir database objesi yaratırız:,
Dim sqlDB As Database = SqlServer.Databases("msdb")
Veya
Dim sqlDB As Database(SqlServer,"msdb")
Bir stored procedure scripti elde etmek için :
Dim sp As StoredProcedure = sqlDB.StoredProcedures("")
Dim script As StringCollection
script = sp.Script()
Bir tablo yaratmak için:
Dim Table As New Table(sqlDB, "NewTable")
Dim ID As New Column(Table, "ID", DataType.Int)
Dim Name As New Column(Table, "Name", DataType.NVarChar(20))
Dim Phone As New Column(Table, "Phone", DataType.NVarChar(11))
Dim PK = New Index(Table, "PK_NewTable")
PK.IndexedColumns.Add(New IndexedColumn(PK, ID.Name))
PK.IsClustered = True
PK.IsUnique = True
PK.IndexKeyType = IndexKeyType.DriPrimaryKey
ID.Identity = True
Table.Columns.Add(ID)
Table.Columns.Add(Name)
Table.Indexes.Add(PK)
Table.Create()
Bir tablo silmek için:
Dim lstTable As New List(Of Table)
If Not lstTable.Contains(sqlDB.Tables("NewTable")) Then
sqlDB.Tables("NewTable").Drop()
End If
Bir script çalıştırmak için:
Dim ds As DataSet
ds = sqlDB.ExecuteWithResults("select * from newtable")
sqlDB.ExecuteNonQuery("delete from newtable")
Serap PARLAK
Yorumlar
Yorum Gönder