キーの配下にスカラ配列がぶら下がるテーブルをクラスで実装した例。
┌──────────────────────────────────────┐
│Option Explicit                                                             │
│Dim objTable                                                                │
│Set objTable = New ClassTable                                               │
│Call objTable.Insert("尾張", "織田信長")                                    │
│Call objTable.Insert("尾張", "豊臣秀吉")                                    │
│Call objTable.Insert("三河", "徳川家康")                                    │
│Dim row, column                                                             │
│Set row = objTable.GetList("尾張")                                          │
│For Each column In row                                                      │
│    MsgBox column                                                           │
│Next                                                                        │
│Set row = objTable.GetList("三河")                                          │
│For Each column In row                                                      │
│    MsgBox column                                                           │
│Next                                                                        │
│WScript.Quit(0)                                                             │
│'***************************************************************************│
│'  クラス：連想二次元配列                                                   │
│'***************************************************************************│
│Class ClassTable                                                            │
│    Private mTable                                                          │
│    '=======================================================================│
│    '  コンストラクタ                                                       │
│    '=======================================================================│
│    Private Sub Class_Initialize                                            │
│        Set mTable = CreateObject("Scripting.Dictionary")                   │
│    End Sub                                                                 │
│    '=======================================================================│
│    '  デストラクタ                                                         │
│    '=======================================================================│
│    Private Sub Class_Terminate                                             │
│    End Sub                                                                 │
│    '=======================================================================│
│    '  メソッド：追加                                                       │
│    '=======================================================================│
│    Public Sub Insert(inKey, inValue)                                       │
│        If Not mTable.Exists(inKey) Then                                    │
│            Set mTable(inKey) = CreateObject("System.Collections.ArrayList")│
│        End If                                                              │
│        Call mTable(inKey).Add(inValue)                                     │
│    End Sub                                                                 │
│    '=======================================================================│
│    '  メソッド：取得                                                       │
│    '=======================================================================│
│    Public Function GetList(inKey)                                          │
│        Set GetList = mTable(inKey)                                         │
│    End Function                                                            │
│    '=======================================================================│
│End Class                                                                   │
│'***************************************************************************│
└──────────────────────────────────────┘

PHPのimplode()みたいに単純に文字列で結合する方法。
┌──────────────────────────────────────┐
│SELECT CONCAT_WS(',','A','B','C')                                           │
└──────────────────────────────────────┘

そのVBScriptファイルが存在するファイルのまわりのファイルを検索する雛形。
┌──────────────────────────────────────┐
│Dim objWSH:   Set objWSH = WScript.CreateObject("WScript.Shell")            │
│Dim objShell: Set objShell = WScript.CreateObject("Shell.Application")      │
│Dim objFSO:   Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
│Dim objFolder, objFile                                                      │
│Set objFolder = objFSO.GetFolder(objWSH.CurrentDirectory)                   │
│For Each objFile In objFolder.Files                                         │
│    If objFSO.GetFileName(objFile) <> WScript.ScriptName Then               │
│        MsgBox objFSO.GetFileName(objFile)         & vbCrLf & vbCrLf _      │
│             & vbCrLf _                                                     │
│             & objFile                             & vbCrLf & vbCrLf _      │
│             & objFSO.GetParentFolderName(objFile) & vbCrLf & vbCrLf _      │
│             & objFSO.GetBaseName(objFile)         & vbCrLf & vbCrLf _      │
│             & objFSO.GetExtensionName(objFile)                             │
│    End If                                                                  │
│Next                                                                        │
└──────────────────────────────────────┘

タブ(Tabs)を画面いっぱいに表示する方法。
┌──────────────────────────────────────┐
│$(this).tabs({heightStyle:'fill'});                                         │
└──────────────────────────────────────┘
親要素に合わせてサイズが調整される。

┌──────────────────────────────────────┐
│$sql = <<<___SQL___                                                         │
│SELECT [論理] FROM OPENQUERY(ORACLE, 'SELECT 0 AS "論理" FROM DUAL') AS [o] │
│___SQL___;                                                                  │
│$sth = PDO->prepare($sql);                                                  │
│$sth->execute();                                                            │
│$row = $sth->fetch(PDO::FETCH_ASSOC);                                       │
│if (!$row['論理']) {                                                        │
│    // 偽：偽のつもりで0を返却しているのでこちらを期待するのだが            │
│} else {                                                                    │
│    // 真：こちらになってしまう                                             │
│}                                                                           │
└──────────────────────────────────────┘
論理型はOracleでもMSSQLでも、「0」と「1」を用いるのが普通だ。
ところが、上記のようにPDOを用いて、リンクサーバ経由で
Oracleから偽のつもりで「0」を取得したら、PHP上では真となってしまった。

原因は以下の通り。
(1) PHPで数値型の「0」や「0.0」、文字列型の「0」は、偽(FALSE)扱いなのだが
    文字列型の「0.0」は真(TRUE)扱いとなってしまう
(2) PDOで値を取得すると、(基本的に)文字列型となる
(3) OPENQUERY()でOracleから0を取得すると、float型の「0.0」となってしまう
    整数ではなく小数のnumber型がOracleでは基本のため

よって、(2)と(3)の組み合わせにより、(1)の条件に適合してしまったようだ。

ということで、MSSQLの世界ではbit型で論理型の代用をするので
SQL(MSSQL)上で以下のように変換してから、PDOで読み込むのがよいようだ。
┌──────────────────────────────────────┐
│SELECT CONVERT([bit], [論理]) AS [論理]～                                   │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│switch (入力) {                                                             │
│    case "a": 出力 = "A";  break;                                           │
│    case "b": 出力 = "B";  break;                                           │
│    case "c": 出力 = "C";  break;                                           │
│    default : 出力 = 入力; break;                                           │
│}                                                                           │
└──────────────────────────────────────┘
上記のような処理をPythonで記述する場合、以下のようなif文にならざろうえない。
┌──────────────────────────────────────┐
│if 入力 == "a":                                                             │
│    出力 = "A"                                                              │
│elif 入力 == "b":                                                           │
│    出力 = "B"                                                              │
│elif 入力 == "c":                                                           │
│    出力 = "C"                                                              │
│else:                                                                       │
│    出力 = 入力                                                             │
└──────────────────────────────────────┘
これをスマートに記述するには連想配列を駆使するのがよいようだ。
┌──────────────────────────────────────┐
│aryConv = {                                                                 │
│    "a" :"A",                                                               │
│    "b" :"B",                                                               │
│    "c" :"C"                                                                │
│}                                                                           │
│if 入力 in aryConv:                                                         │
│    出力 = aryConv[入力]                                                    │
│else:                                                                       │
│    出力 = 入力                                                             │
└──────────────────────────────────────┘

必ず該当するのであれば以下もあり。
┌──────────────────────────────────────┐
│出力 = {                                                                    │
│    "a" :"A",                                                               │
│    "b" :"B",                                                               │
│    "c" :"C"                                                                │
│}.get(入力, 入力)                                                           │
└──────────────────────────────────────┘

一列をすべてCSVにする方法。
┌──────────────────────────────────────┐
│WITH [表] (                                                                 │
│         [列]                                                               │
│     ) AS (                                                                 │
│         SELECT [列]                                                        │
│             FROM (                                                         │
│                 VALUES ('A'),('B'),('C')                                   │
│             ) AS [表]([列])                                                │
│     )                                                                      │
│SELECT REPLACE((SELECT [表].[列] AS [data()]                                │
│                    FROM [表]                                               │
│                    FOR XML PATH ('')       ), ' ', ',') AS [列たち];       │
└──────────────────────────────────────┘

jQuery側(JavaScript)の処理(抜粋)。
┌──┬───────────────────────────────────┐
│参照│$.ajax({                                                              │
│    │    url         :'http://xxxx/api',                                   │
│    │    type        :'GET',                                               │
│    │    data        :JSONデータ,                                          │
├──┼───────────────────────────────────┤
│追加│$.ajax({                                                              │
│    │    url         :'http://xxxx/api',                                   │
│    │    type        :'POST',                                              │
│    │    data        :JSONデータ,                                          │
├──┼───────────────────────────────────┤
│変更│$.ajax({                                                              │
│    │    url         :'http://xxxx/api',                                   │
│    │    type        :'PUT',                                               │
│    │    data        :JSONデータ,                                          │
├──┼───────────────────────────────────┤
│削除│$.ajax({                                                              │
│    │    url         :'http://xxxx/api',                                   │
│    │    type        :'DELETE',                                            │
│    │    data        :JSONデータ,                                          │
└──┴───────────────────────────────────┘

PHP側の処理例。
┌──────────────────────────────────────┐
│switch ($_SERVER['REQUEST_METHOD']) {                                       │
│    case 'GET':                                                             │
│        $data = $_GET;                                                      │
│        echo $this->select($data);                                          │
│        break                                                               │
│    case 'POST':                                                            │
│        $data = $_POST;                                                     │
│        $this->insert($data);                                               │
│        break                                                               │
│    case 'PUT':                                                             │
│        parse_str(urldecode(file_get_contents('php://input')), $data);      │
│        $this->update($data);                                               │
│        break                                                               │
│    case 'DELETE':                                                          │
│        parse_str(urldecode(file_get_contents('php://input')), $data);      │
│        $this->delete($data);                                               │
│        break                                                               │
│}                                                                           │
└──────────────────────────────────────┘
PUTメソッドとDELETEメソッドについては専用のシステム定数がないので
「php://input」からひっぱてくる形となる。

USINGの前にNOT EXISTSで同一データを除外。
(後で除外するとNOT MATHCED扱いとなるので注意)
同一判定をする時にはNULLに注意(NULLのままでは不一致になるので空文字に置換)。
┌──────────────────────────────────────┐
│MERGE INTO [出力Ｄ]                                                         │
│    USING (                                                                 │
│        SELECT [キー],                                                      │
│               [データ],                                                    │
│               GETDATE() AS [更新日時]                                      │
│            FROM [入力Ｄ]                                                   │
│            WHERE NOT EXISTS (                                              │
│SELECT *                                                                    │
│    FROM [出力Ｄ]                                                           │
│    WHERE ISNULL([出力Ｄ].[キー]  , '') = ISNULL([入力Ｄ].[キー]  , '')     │
│      AND ISNULL([出力Ｄ].[データ], '') = ISNULL([入力Ｄ].[データ], '')     │
│                  )                                                         │
│    ) AS [入力Ｄ]                                                           │
│      ON  [入力Ｄ].[キー] = [出力Ｄ].[キー]                                 │
│    WHEN MATCHED THEN                                                       │
│        UPDATE SET [データ]   = [入力Ｄ].[データ],                          │
│                   [更新日時] = [入力Ｄ].[更新日時]                         │
│    WHEN NOT MATCHED BY TARGET THEN                                         │
│        INSERT (                                                            │
│                [キー],                                                     │
│                [データ],                                                   │
│                [更新日時]                                                  │
│            ) VALUES (                                                      │
│                [入力Ｄ].[キー],                                            │
│                [入力Ｄ].[データ],                                          │
│                [入力Ｄ].[更新日時]                                         │
│            );"                                                             │
└──────────────────────────────────────┘
こうすると、更新日時の変更を差分があった時に限定できる。

ExceVBAにおけるプレースホルダ(ADODB.Command.CreateParameter)のデータ型は
以下の通り。
┌───────┬──┬─┬────┐
│プレースホルダ│ 値 │幅│MSSQL型 │
├───────┼──┼─┼────┤
│adBoolean     │  11│－│bit     │
│adInteger     │   3│－│int     │
├───────┼──┼─┼────┤
│adChar        │ 129│○│char    │
│adWChar       │ 130│○│nchar   │
│adVarChar     │ 200│○│varchar │
│adVarWChar    │ 202│○│nvarchar│
├───────┼──┼─┼────┤
│adDate        │   7│－│date    │
│adDBTimeStamp │ 135│－│datetime│
└───────┴──┴─┴────┘