Perton 網誌

為什麼經由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 指令，不可少。

Windows PowerShell 小筆記

Related Resources

PowerShell V1.0 外觀
%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe

DOS Command Line 執行 PowerShell 的外觀

C:\Program Files\Microsoft SDKs\Windows\v7.0\Samples\sysmgmt\WindowsPowerShell\

VBA讀取XML檔案內容

book.xml
-----------------------------------
<?xml version="1.0" encoding="UTF-8" ?>

<order>
   <name>Jong Chen</name>
   <product>個人電腦</product>
   <product>PDA</product>
   <price>50000</price>
   <date>2011/08/08</date>
   <address>台北市安和路二段80號15樓</address>
</order>
-------------------------------------

若是要使用程式來開啟這檔案，該如何寫程式？
Public Sub Load_XML()
    Dim XMLDoc As Object
    Dim intState As Integer
    Dim strFileXML As String
    strFileXML = "C:\Documents and Settings\perton\DestTop\XML\" & "book.xml"
    Set XMLDoc = New MSXML2.DOMDocument
    intState = XMLDoc.Load(strFileXML)
    ' intState 數值說明
    ' -1    成功
    ' 0     未初始化
    ' 1     載入中
    ' 2     已載入
    ' 3     互動
    ' 4     已完成

    If intState Then
        MsgBox "讀取 XML 成功"
    Else
        MsgBox "讀取 XML 失敗"
    End If

    Set XMLDoc = Nothing
End Sub

** 在程式環境中，要加入 Reference ：Microsoft XML, v5.0

LOSA 引入表結構的方法

LOSA 提供一方便作法，可以直接引入資料庫中特定的表結構；
步驟如下：

1. 先創建一表

2. 點表，右鍵／反向工程 (Reverse Engineer)

3. 輸入連接資料庫的相關訊息