設定SQL Server連線使用限制

設定方法如下：

雙擊 區域網路 圖樣(右下角)

VBS 為Excel 資料自動排序的用法

想要用VBS 為Excel 資料自動排序，需要注意到幾個重點：

• 要排序的 Excel 檔名，不可含有中文字
• 要為排序資料事先建立 範圍名稱(Range Name)
• 範圍名稱(Range Name)也不可以使用中文字
• VBS 程式中，要注意到 objRange.Sort 函式的使用語法及參數位置

以範例說明如下：

ERP_Sort_公告編號_A_Q.vbs
-----------------------------------------------------------
Const xlAscending = 1
Const xlYes = 1

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\ERP\ERP_On-Line_Notice.xls")
' Worksheets 編號由 1起算
Set objWorksheet = objWorkbook.Worksheets(4)
Set objRange = objWorksheet.UsedRange
Set objRange2 = objExcel.Range("AnnounceNo")
Set objRange3 = objExcel.Range("A")
Set objRange4 = objExcel.Range("Q")

objRange.Sort objRange2, xlAscending, objRange3, , xlAscending, objRange4, xlAscending, xlYes
------------------------------------------------------------

資料參考：Tips and Tricks for Scripting Microsoft Office Applications

DB Suspect

Suspect 這字就字意來說，是不可信的或是有危險的。

來看下上面這圖示，在 SQL Server 下建置有很多的資料庫，其中不少資料庫名稱的右邊出現 (Suspect) 字樣。

就像 Suspect 一樣，這些被標出 Suspect 字樣的資料庫，是因為它們的資料庫檔案存放在外接硬碟中，而且這時該外接硬碟也沒有正確地連接在電腦上，所以 SQL Server 才找不到這些資料庫，而標示出 Suspect.

C_C++演進

C / C++ 版本	VS .NET	MFC	.NET
C 1.0～6.0
C / C++ 7.0		1.0
Visual C++ 1.0		2.0
Visual C++ 1.5		2.5
Visual C++ 2.0		3.0
Visual C++ 4.0		4.0
Visual C++ 5.0		4.2
Visual C++ 6.0		6.0
Visual C++ 7.0	Visual C++ .NET 2002	7.0	1.0
Visual C++ 7.1	Visual C++ .NET 2003	7.1	1.1
Visual C++ 8.0	Visual C++ .NET 2005	8.0	2.0
			3.0
Visual C++ 9.0	Visual C++ .NET 2008		3.5
Visual C++ 10.0	Visual C++ .NET 2010		4.0

為什麼經由AP登入ERP系統，得到下面的錯誤訊息？

新設置的DB主機，經由Query Analyzer 或者是 Enterprise Manager 都可以正常存取在 ERP系統中的資料，但不知道是什麼原因，卻無法經由AP登入ERP系統，反而得到下面的錯誤訊息：

 

經查明原因是：
未安裝 SQL 2000 SP3 補丁程式。

如何強制刪除SQL資料庫？

有時在刪除資料庫時，系統告知該資料庫正被使用中，是否可以強制刪除？

是的，
參考下列語法：

if exist ( select name from sysdatabases (nolock) where name='XXXXXXX' )
begin
     ALTER DATABASE XXXXXXX SET SINGLE_USER WITH ROLLBACK AFTER 20 SECOND
     -- 刪除資料庫
     DROP DATABASE XXXXXXX
end

 

--  查詢資料庫是否 使用 中？
select name from sysdatabases (nolock) where name='XXXXXXX'

-- 強制使用者 不得使用特定的資料庫
ALTER DATABASE XXXXXXX SET SINGLE_USER WITH ROLLBACK AFTER 20 SECOND

-- 刪除資料庫
DROP DATABASE XXXXXXX

Excel VBA 中如何下複製公式的指令語法？

平時在 Excel中，只要在要複製儲存格的右下角，點兩下，就可以複製該儲存格的公式到其他位置。

若要以程式來操作，可以下指令：

Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I24")
Range("I3:I24").Select

但是，若要動態取得被複製的範圍，這時就要宣告變數來處理

Dim mRanges As String

Range("H3").Select
mRanges = "I3:" & "I" & Selection.End(xlDown).Row

Range("I3").Select
Selection.AutoFill Destination:=Range(mRanges)
Range(mRanges).Select

注意：指令語法中，首、尾各有一個 Range().Select 指令，不可少。