タイトル : 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するのでしょうか? よろしくおねがいします |