Database

ALTER PROCEDURE [dbo].[myproc] 
(
@mykod INT
)
RETURNS INT
AS
BEGIN 
select * from table1 where kod=@mykod
RETURN 99
END

//----------------------------------

ICommandText*   pICommandText;
hr = pIDBCreateCommand->CreateCommand(NULL, IID_ICommandText,(IUnknown**) &pICommandText);
if (FAILED(hr)) AfxMessageBox("Command Create Command Failed");




WCHAR* wSQLString = L"{?=CALL myproc(?)}";

pICommandText->SetCommandText(DBGUID_DBSQL, wSQLString);

 SPROCPARAMS         sprocparams = {0, 2};

  
    // Command parameter data.
    DBPARAMS            Params;
    const ULONG         nParams = 2;
//-----------------

typedef struct tagSPROCPARAMS
    {
    long        lReturnValue;
    long 	lkodValue;
    } SPROCPARAMS;




   

DBBINDING           acDBBinding[nParams];
    DBBINDSTATUS        acDBBindStatus[nParams];


    for (ULONG i = 0; i < nParams; i++)
        {
        acDBBinding[i].obLength = 0;
        acDBBinding[i].obStatus = 0;
        acDBBinding[i].pTypeInfo = NULL;
        acDBBinding[i].pObject = NULL;
        acDBBinding[i].pBindExt = NULL;
        acDBBinding[i].dwPart = DBPART_VALUE;
        acDBBinding[i].dwMemOwner = DBMEMOWNER_CLIENTOWNED;
        acDBBinding[i].dwFlags = 0;
        acDBBinding[i].bScale = 0;
        }


    acDBBinding[0].iOrdinal = 1;
    acDBBinding[0].obValue = offsetof(SPROCPARAMS, lReturnValue);
    acDBBinding[0].eParamIO = DBPARAMIO_OUTPUT;
    acDBBinding[0].cbMaxLen = sizeof(long);
    acDBBinding[0].wType = DBTYPE_I4;
    acDBBinding[0].bPrecision = 11;
	

	acDBBinding[1].iOrdinal = 2;
    acDBBinding[1].obValue = offsetof(SPROCPARAMS, lkodValue);
    acDBBinding[1].eParamIO = DBPARAMIO_INPUT;
    acDBBinding[1].cbMaxLen = sizeof(long);
    acDBBinding[1].wType = DBTYPE_I4;
	acDBBinding[1].bPrecision = 11;


    // Get the IAccessor interface, then create the accessor for
    // the defined parameters.

	IAccessor*  pIAccessor; 
HACCESSOR   hAccessor; 


pICommandText->QueryInterface(IID_IAccessor,
        (void**) &pIAccessor);
	if(FAILED(hr)) AfxMessageBox("Failed Query Interface IId_IAccessor");
	
	

    hr = pIAccessor->CreateAccessor(DBACCESSOR_PARAMETERDATA,
        nParams, acDBBinding, sizeof(SPROCPARAMS), &hAccessor,
        acDBBindStatus);
	if(FAILED(hr)) AfxMessageBox("Failed Create Accessor");
    
    // Fill the DBPARAMS structure for the command execution.
    Params.pData = &sprocparams;
    Params.cParamSets = 1;
    Params.hAccessor = hAccessor;

	LONG      cRowsAffected;

	IRowset*    pIRowset;


hr = pICommandText->Execute(NULL, IID_IRowset, &Params,&cRowsAffected, (IUnknown**) &pIRowset);
if (FAILED(hr)) AfxMessageBox("Execute Failed");

CString str;
str.Format("%d",sprocparams.lReturnValue);
//return 0 !!!!!!!!!!!!!!!!!!!!!!!!!!
AfxMessageBox(str);	
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

pIRowset->Release();


str.Format("%d",sprocparams.lReturnValue);
//return 0 !!!!!!!!!!!!!!!!!!!!!!!!!!
AfxMessageBox(str);	
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!