tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル DB利用時のShapeコマンドについて
投稿日: 2011/01/28(Fri) 12:58
投稿者wanko
前述サイトより
SQL=SHAPE  {select * from customers}
       APPEND ({select * from orders} AS rsOrders
           RELATE customerid TO customerid)

となっています
ここで質問なのですが、親と子のSQL文はConnectionが確定していません
これを  rs.open SQL としたとしてこのあとどのようにしてDBに接続されるのでしょうか?
実際使用する場合はそれぞれにRecordsetを当てるのでしょうか?
下に例を示します

'--------------------------------------------------------------------------
Public Function

    cnShape.Provider = "MSDataShape"
    cnShape.Properties("Data Provider").Value = "none"
    cnShape.Open

    rs1.Open GetShape(), cnShape, adOpenStatic, adLockBatchOptimistic

End Function
'--------------------------------------------------------------------------
Public Function GetShape()

    strSQL1 = "select * from ..."
    strSQL2 = "select * from ..."
    
    GetShape = "Shape (" & strSQL1 & ") " & _
               "Append((" & strSQL2 & ")  as AAA " & _
               "RELATE aaa = aaa"
End Function

*各変数の宣言は省略しています

'-----------------------------------------------------------------------

この例ではstrSQL1,2ともにConnectionが設定されていません
どちらのConnectionもDB1というDataBaseに接続するとして、上記よりrs1のConnectionはcnShapeです。そこにどうやってDB1をConnectするのでしょうか?

よろしくおねがいします

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。