2023年3月5日 星期日

緩衝集區裡沒有足夠的可用記憶體

DBCC MEMORYSTATUS



釋放MSSQL Server Cache (緩衝集區裡沒有足夠的可用記憶體)


當出現"緩衝集區裡沒有足夠的可用記憶體"此項錯誤時,可嘗試使用以下指令釋放快取記憶體;或是於程式中固定一段時間執行此三個Query



操作指令(適用2005,2008):

DBCC FREESYSTEMCACHE('all')

DBCC FREESESSIONCACHE

DBCC FREEPROCCACHE WITH NO_INFOMSGS


***********************


DBCC FREEPROCCACHE --清除存儲過程相關的緩存 

DBCC FREESESSIONCACHE --會話緩存 

DBCC FREESYSTEMCACHE('All') --系統緩存 

DBCC DROPCLEANBUFFERS --所有緩存

2023年3月3日 星期五

Visual Studio 參考檔 dll 找不到解法方法

 一些舊專案加上舊的OS 上開發

轉到新的OS+VS新的版本開發

會造成在編譯(發行)中,有DLL遺失問題

在Web 開發,會將所有的DLL 放在Bin目錄內

將遺失列出的dll 從新指定在Bin內即可成功編譯(發行)

列:

..\..\..\..\..\..\Program Files (x86)\Microsoft Web Tools\Packages\Microsoft.AspNet.Identity.Core.2.2.1\lib\net45\Microsoft.AspNet.Identity.Core.dll

這樣的路徑會指到D: 且OS已不存在
改成:
D:\xx\Bin\Microsoft.AspNet.Identity.Core.dll
即可成功



2023年2月14日 星期二

RestartService

 Public Shared Function RestartService(ByVal ServiceName As String) As Boolean

    Dim mySC As ServiceProcess.ServiceController

    Try

        mySC = New ServiceProcess.ServiceController(ServiceName)

        mySC.Stop()

        mySC.Start()

        Return mySC.Status = ServiceProcess.ServiceControllerStatus.Running

    Catch

        Return False

    End Try

End Function



' restart without bothering about success or failure

RestartService("MSSQLSERVER")


'or like this if you are too concerned ;)

If RestartService("MSSQLSERVER") Then

    MsgBox("Service restarted")

Else

    MsgBox("Unable to restart the service.")

End If


----------------------------------------

@ECHO OFF


net stop ServiceName

net start ServiceName


2023年2月13日 星期一

delay 的方法

  Sub delay(ByVal delay_ms As Integer)

        Dim tspan As New TimeSpan

        Dim tstart = Now

        While tspan.TotalMilliseconds < delay_ms

            tspan = Now - tstart

            Application.DoEvents()

        End While

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = "Hello"

        delay(100) 'leaks 572 ns every 10 ms

        Label1.Text = "Salut"

    End Sub