LibreOffice 免費的 Office 辦公室文書處理軟體
2023年3月21日 星期二
2023年3月9日 星期四
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
2023年3月1日 星期三
不錯的 blog 和 網站
一些不錯的開發相關技文參考網站:
Windows, OPOS, POS for.NET, C++, C#, VisualBasic, Python
底下為 VS 專案升級到新的版本,造成無法發行或編譯的問題:
.Net Dll明明有在,為什麼出現找不到DLL錯誤 - 一次搞懂如何處理Dll版本問題(Dll Hell)
vs 專案相依性路徑設定
Visual Studio 解決專案找不到參考的元件 System.Web.Mvc, System.Web.Http 的問題
2023年2月21日 星期二
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