例
次のVisual Basicの例は、アドバンスト・キューイング機能の簡単な使用例です。ユーザー定義型のメッセージMESSAGE_TYPE
が、複数のコンシューマをサポートするキューmsg_queue
にエンキューされています。
Dim q as OraAQ Dim qMsg as OraAQMsg Dim agent as OraAQAgent Set q = OraDatabase.CreateAQ("msg_queue") Set qMsg = q.AQMsg(1,"MESSAGE_TYPE") 'To add SCOTT as a recipient for the message, Set agent = qMsg.AQAgent("SCOTT") 'To enqueue, q.Enqueue
関連項目:
|