CREATE OR REPLACE PACKAGE IssuesDBPKG AS TYPE IssCur IS REF CURSOR; PROCEDURE GetLookupValues (PriCur OUT IssCur); END IssuesDBPKG;CREATE OR REPLACE PACKAGE BODY IssuesDBPKG AS PROCEDURE GetLookupValues (PriCur OUT IssCur) IS LocalPriCur IssCur; BEGIN OPEN LocalPriCur FOR Select * from Tbl_Lu_Priorities Order By PriorityTitle; PriCur := LocalPriCur; END GetLookupValues; END IssuesDBPKG; 这样定义的过程
TYPE IssCur IS REF CURSOR;
PROCEDURE GetLookupValues (PriCur OUT IssCur);
END IssuesDBPKG;CREATE OR REPLACE PACKAGE BODY IssuesDBPKG AS
PROCEDURE GetLookupValues (PriCur OUT IssCur)
IS
LocalPriCur IssCur;
BEGIN
OPEN LocalPriCur FOR
Select * from Tbl_Lu_Priorities Order By PriorityTitle; PriCur := LocalPriCur;
END GetLookupValues;
END IssuesDBPKG;
这样定义的过程
pCmdChange.CreateInstance(__uuidof(Command));
pCmdChange->CommandType = adCmdStoredProc;
pCmdChange->CommandText = "pkg_test.get";
pCmdChange->ActiveConnection = theApp.m_pConnection;m_pRecordset->CursorType=adOpenStatic;
m_pRecordset->LockType=adLockPessimistic;
m_pRecordset = pCmdChange->Execute(NULL,NULL,adCmdStoredProc);
给你一段c++代码,你参考以下,转成asp语句。
"pkg_test.get",是oracle中的package name 和 procedure name