例
次の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
|
関連項目:
|