Programlama

create FUNCTION dbo.ParseString (@sep char(1), @s varchar(max), @search varchar(100), @index int)
RETURNS varchar(max)
AS
Begin
	declare @pay varchar(max)
	declare @pos int
	declare @piece varchar(500)
	declare @curr_index int
	declare @ndx int 
	declare @container table (index_no int, xval varchar(max))
	set @ndx=1
	set @curr_index = 0
	set @pay=''
	if right(rtrim(@s),1) <> @sep set @s = rtrim(@s) + @sep
	set @pos =  patindex('%' + @sep + '%' , @s)
	while @pos <> 0
	begin
		set @piece = left(@s, @pos - 1)
		if left(@piece, len(@search)) = @search 
		begin 
			set @piece = RIGHT(@piece,LEN(@piece)-len(@search)-1)
			insert into @container values (@ndx,@piece)
			set @ndx = @ndx+1 
		end 
		set @s = stuff(@s, 1, @pos, '')
		set @pos =  patindex('%' + @sep + '%' , @s)
		set @curr_index = @curr_index + 1
	end
	set @pay = (select xval from @container where index_no=@index)
	return @pay
end

select substring(CURRENT_USER,'@',1) x

x
-----------------
root

Oncelikle geriye yaslanip bir nefes alin. Panik size hic bir fayda saglamaz.

Nette bulacaginiz bir suru cozumden once, sisteminizde backup var mi, onu kontrol edin.

arkasindan SQL Sunucusunu durdurup, hatali veritabanini (.MDF) ve o veritabanina ait logu(.LDF) bir baska yere kopyalayin. genelde bu dosyalar ozellikle degistirilmediyse c:\program files\microsoft sql server\mssql\data klasoru altindadir.

kopyalayip yedegi alindiktan sonra enterprise manager icinde "suspect" olan veritabaninin uzerinde sag tus tiklayip "take offline" secin.

veritabani "offline mode" olarak degistirilecektir.

tekrar sag tus tiklayip "bring online" secin.

veritabani bu kez normal olarak acilacaktir.

Sub StyleKill()
    Dim styT As Style
    Dim intRet As Integer

    For Each styT In ActiveWorkbook.Styles
        If Not styT.BuiltIn Then
            intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)
            If intRet = vbYes Then styT.Delete
        End If
    Next styT
End Sub

Sistemde tanimli stiller disindaki stillerin temizlenmesi icin script. Bu scripti kullanarak gereksiz stillerden kurtulabilirsiniz.