Database

CString cstrTmp;cstrTmp = 
"CREATE OR REPLACE PROCEDURE \"DoSomething\" \r\n" 
"(\r\n" " pTxt nvarchar2\r\n" ")\r\n" 
"as\r\n" 
"\r\n" 
"vXml XmlType;\r\n" 
"vTempCounter int;\r\n" 
"\r\n" "begin\r\n" 
"     --my comment\r\n"
"     dbms_output.put_line('test'); 
"end;\r\n"

//where cBuffer is the query above
if(pCommand == NULL) 
{ 
     pCommand.CreateInstance(__uuidof(Command)); 
     pCommand->CommandType = adCmdText; 
} 
pCommand->CommandText= _bstr_t(*cBuffer); 
pCommand->CommandTimeout = m_pConn->CommandTimeout; 
pCommand->ActiveConnection = m_pConn; 
pCommand->Execute(NULL, NULL, adExecuteNoRecords); 
pCommand = NULL;

CREATE OR REPLACE PROCEDURE "DoSomething"(pTxt nvarchar2)asvXml XmlType;vTempCounter int;BEGIN     --myComment     dbms_utput.put_line('test');END;

CREATE OR REPLACE PROCEDURE "DoSomething"
(pTxt nvarchar2)
asv
Xml XmlType;
vTempCounter int;
BEGIN 
     -- my comment
     dbms_output.put_line('test');
END;