動的クエリのロジックをAccess VBAからSQL Serverビューに変換する

Question

AccessアプリケーションをWebアプリケーションに変換していますが、このvb/SQLをビューに変換する際に問題があります。それは難しい問題のようには思われませんが、本当にループのために私を投げています。

Public Function GetProjectNumber(ByVal HeaderID As Long) As String 
    Dim retval As String 
    Dim rst As New ADODB.Recordset 
    Dim tempID As Long 

On Error GoTo Err_Handler 

    rst.Open "SELECT TransferID, ProjectID FROM dbo.tblProject WHERE HeaderID = " & HeaderID 
    If Not (rst.EOF And rst.BOF) Then 
     If IsNull(rst!TransferID) Then 
      retval = rst!ProjectID 
     Else 
      tempID = rst!TransferID 
      If rst.State = adStateOpen Then rst.Close 
      rst.Open "SELECT ProjectID FROM dbo.tblProject WHERE HeaderID = " & tempID 
      If rst.EOF And rst.BOF Then 
       retval = "Transfer from ????" 
      Else 
       retval = "Transfer from " & rst!ProjectID 
      End If 
     End If 
    End If 

If rst.State = adStateOpen Then rst.Close 

Exit_Handler: 
    Set rst = Nothing 
    GetProjectNumber = retval 
    Exit Function 

End Function 

Iは、ネストされたcaseステートメントを使用しようとしたが、場合によっては、返された各列には適用できません。 IIFでこれを行う方法はありますか？それとも、これを機能させるか？

Answer 1

次のクエリは、テーブル内のすべてのレコード（つまり、すべてのHeaderID）のコードを模倣します。あなたはそれからSQLサーバーのビューを作成する場合は、あなたのVBAサブ

SELECT Returns FROM the_view WHERE HeaderID='xxxxx' 

で行うよう

SELECT P1.HeaderID, 
(CASE 
    WHEN P1.TransferID IS NULL THEN P1.ProjectID 
    WHEN P2.ProjectID IS NULL THEN 'Transfer from ???' 
    ELSE "Transfer from " + P2.ProjectID 
END) AS Returns 
FROM dbo.tblProject P1 
LEFT JOIN dbo.tblProject P2 ON P1.TransferID = P2.HeaderID 

は、あなたは、特定のHeaderIDで簡単に問い合わせることができますし、それはまったく同じリターンをすべきあなたの手続きとしての結果