求一存储过程,在vc中的调用,谢谢! 求一存储过程,在vc中的调用,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 // SQL Server, stored procedure , Command , Recordset, input parameter, output parameter, returned recordset from stored procedure//execute stored procedure , get returned value, output value, and returned recordset.#include "stdafx.h"#import "C:\PROGRA~1\COMMON~1\System\ado\msado15.dll" rename( "EOF", "adoEOF" ) struct InitOle { InitOle() { ::CoInitialize(NULL); } ~InitOle() { ::CoUninitialize(); } } _init_InitOle_;void PrintProviderError(ADODB::_ConnectionPtr pConnection);int main(int argc, char* argv[]){ printf("Create a adParamReturnValue for Command object to get return value of stored procedure\n"); printf("Reference :MSDN---Append and CreateParameter Methods Example (VC++)\n"); ADODB::_ConnectionPtr Conn1; ADODB::_CommandPtr Cmd1; ADODB::_RecordsetPtr Rs1; ADODB::_ParameterPtr retParam= NULL; ADODB::_ParameterPtr inParam=NULL; ADODB::_ParameterPtr outParam=NULL; _variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR); _variant_t vtEmpty2 (DISP_E_PARAMNOTFOUND, VT_ERROR); _bstr_t bstrConnect( L"driver={sql server};server=Cell;Database=zhg;UID=sa;PWD=;" ); // the following stored procedure return 12345 int value _bstr_t bstrCreate ( L"create proc sp_AdoTest( @OutParam int OUTPUT,@InParam int ) " L"as " L"select @OutParam = @InParam + 10 " L"select * from Table1" L"return 12345" ); _bstr_t bstrSP(L"sp_Adotest" ); try { _bstr_t bstrEmpty; Conn1.CreateInstance( __uuidof( ADODB::Connection ) ); Cmd1.CreateInstance( __uuidof( ADODB::Command ) ); Rs1.CreateInstance(__uuidof(ADODB::Recordset)); // Establish connection. Conn1->ConnectionString = bstrConnect; Conn1->Open( bstrConnect, bstrEmpty, bstrEmpty, -1 ); // Open recordset. Cmd1->ActiveConnection = Conn1; Cmd1->CommandText = bstrSP; Cmd1->CommandType = ADODB::adCmdStoredProc; retParam=Cmd1->CreateParameter(_bstr_t("Return"),ADODB::adInteger,ADODB::adParamReturnValue,sizeof(int)); Cmd1->Parameters->Append(retParam); outParam = Cmd1->CreateParameter(_bstr_t("OutParam"),ADODB::adInteger,ADODB::adParamOutput,sizeof(int)); Cmd1->Parameters->Append(outParam); inParam = Cmd1->CreateParameter(_bstr_t("InParam"),ADODB::adInteger,ADODB::adParamInput,sizeof(int),_variant_t( (long) 10 )); inParam->Value=_variant_t( (long) 10 ); Cmd1->Parameters->Append(inParam); Cmd1->Parameters->Refresh(); Cmd1->Parameters->Item[ _variant_t( _bstr_t("@InParam") ) ]->Value =_variant_t( (long) 11 ); Rs1->put_CursorLocation(ADODB::adUseClient); Rs1->Open((_variant_t((IDispatch *) Cmd1)),vtEmpty,ADODB::adOpenStatic, ADODB::adLockReadOnly, -1); // Get return value of the stored procedure.adCmdUnknown TCHAR tcbuf[1024]; long retvalue=Cmd1->Parameters->Item[(short)0]->Value; long p2=Cmd1->Parameters->Item[(short)1]->Value; long p3=Cmd1->Parameters->Item[(short)2]->Value; int recordcount=0; if(Rs1->State==ADODB::adStateClosed) MessageBox(NULL,"no recordset is returned from the stored procedure","Information",MB_OK); else recordcount = Rs1->GetRecordCount(); wsprintf(tcbuf,"retvalue of the stored procedure:%d,input value:%d,output value:%d,record count :%d",retvalue,p2,p3,recordcount); MessageBox(NULL,tcbuf,"Output",MB_OK); } catch(_com_error &e) { _bstr_t bstrSource(e.Source()); _bstr_t bstrDescription(e.Description()); printf("\nCOM error occurred, Source : %s \n Description : %s \n",(LPCSTR)bstrSource,(LPCSTR)bstrDescription); PrintProviderError(Conn1); } return 0;}VOID PrintProviderError(ADODB::_ConnectionPtr pConnection){ // Print Provider Errors from Connection object. // pErr is a record object in the Connection's Error collection. ADODB::ErrorPtr pErr = NULL; long nCount = 0; long i = 0; if( (pConnection->Errors->Count) > 0) { nCount = pConnection->Errors->Count; // Collection ranges from 0 to nCount -1. for(i = 0; i < nCount; i++) { pErr = pConnection->Errors->GetItem(i); printf("\n\t Error number: %x\t%s", pErr->Number, (LPCSTR)pErr->Description); } }} 下面是个简单的例子/*CREATE PROCEDURE "ONEGA"."TestProc1" (p_out OUT numeric,p_id IN numeric DEFAULT 1)ISBEGINp_out:= p_id + 1234;return;END ; */int main(int argc, char* argv[]){ printf("Use ADO to open Oracle!\n"); CoInitialize(NULL); _ConnectionPtr pConn("ADODB.Connection"); try { _CommandPtr Cmd1; Cmd1.CreateInstance( __uuidof( Command ) ); _ParameterPtr outParam=NULL; pConn->Open("Provider=OraOLEDB.Oracle;Data Source=workdb;User Id=Onega;Password=sa;" ,"","",adConnectUnspecified); Cmd1->ActiveConnection = pConn; Cmd1->CommandText = "{call ONEGA.TestProc1( ?)}"; Cmd1->CommandType = adCmdText; outParam = Cmd1->CreateParameter("p_out",adInteger,adParamOutput,sizeof(int)); Cmd1->Parameters->Append(outParam); Cmd1->Execute(NULL,NULL,adExecuteNoRecords); long p2=Cmd1->Parameters->Item["p_out"]->Value; printf("p2= %d,\n",p2); pConn->Close(); } catch(_com_error &e) { printf("%s", e.Description); } ::CoUninitialize(); printf("program end.\n"); return 0;} 急等大侠们帮忙解决,编辑控件无法更新, 求关于坐标转经纬度的软件 怎样获取一个窗口右下角的坐标? 这个功能该怎样实现呢? ●●怎样在全局函数里调用SetTimer?●● 怎么清空Edit框,谢谢诸位 用弹出式菜单命令弹出一个dialog,可以响应键盘,可是不响应鼠标? picture control Windows下面的PEB/TEB是用什么结构体表示的? 我想知道我能值多少钱...... 如何实现UltraEdit等编辑器一样的显示行号? 我问一个问题,大家帮忙.
//execute stored procedure , get returned value, output value, and returned recordset.
#include "stdafx.h"
#import "C:\PROGRA~1\COMMON~1\System\ado\msado15.dll" rename( "EOF", "adoEOF" )
struct InitOle
{
InitOle() { ::CoInitialize(NULL); }
~InitOle() { ::CoUninitialize(); }
} _init_InitOle_;
void PrintProviderError(ADODB::_ConnectionPtr pConnection);int main(int argc, char* argv[])
{
printf("Create a adParamReturnValue for Command object to get return value of stored procedure\n");
printf("Reference :MSDN---Append and CreateParameter Methods Example (VC++)\n");
ADODB::_ConnectionPtr Conn1;
ADODB::_CommandPtr Cmd1;
ADODB::_RecordsetPtr Rs1;
ADODB::_ParameterPtr retParam= NULL;
ADODB::_ParameterPtr inParam=NULL;
ADODB::_ParameterPtr outParam=NULL;
_variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
_variant_t vtEmpty2 (DISP_E_PARAMNOTFOUND, VT_ERROR);
_bstr_t bstrConnect( L"driver={sql server};server=Cell;Database=zhg;UID=sa;PWD=;" );
// the following stored procedure return 12345 int value
_bstr_t bstrCreate ( L"create proc sp_AdoTest( @OutParam int OUTPUT,@InParam int ) "
L"as "
L"select @OutParam = @InParam + 10 "
L"select * from Table1"
L"return 12345" );
_bstr_t bstrSP(L"sp_Adotest" );
try
{
_bstr_t bstrEmpty;
Conn1.CreateInstance( __uuidof( ADODB::Connection ) );
Cmd1.CreateInstance( __uuidof( ADODB::Command ) );
Rs1.CreateInstance(__uuidof(ADODB::Recordset));
// Establish connection.
Conn1->ConnectionString = bstrConnect;
Conn1->Open( bstrConnect, bstrEmpty, bstrEmpty, -1 );
// Open recordset.
Cmd1->ActiveConnection = Conn1;
Cmd1->CommandText = bstrSP;
Cmd1->CommandType = ADODB::adCmdStoredProc;
retParam=Cmd1->CreateParameter(_bstr_t("Return"),ADODB::adInteger,ADODB::adParamReturnValue,sizeof(int));
Cmd1->Parameters->Append(retParam);
outParam = Cmd1->CreateParameter(_bstr_t("OutParam"),ADODB::adInteger,ADODB::adParamOutput,sizeof(int));
Cmd1->Parameters->Append(outParam);
inParam = Cmd1->CreateParameter(_bstr_t("InParam"),ADODB::adInteger,ADODB::adParamInput,sizeof(int),_variant_t( (long) 10 ));
inParam->Value=_variant_t( (long) 10 );
Cmd1->Parameters->Append(inParam);
Cmd1->Parameters->Refresh();
Cmd1->Parameters->Item[ _variant_t( _bstr_t("@InParam") ) ]->Value =_variant_t( (long) 11 );
Rs1->put_CursorLocation(ADODB::adUseClient);
Rs1->Open((_variant_t((IDispatch *) Cmd1)),vtEmpty,ADODB::adOpenStatic,
ADODB::adLockReadOnly, -1);
// Get return value of the stored procedure.adCmdUnknown
TCHAR tcbuf[1024];
long retvalue=Cmd1->Parameters->Item[(short)0]->Value;
long p2=Cmd1->Parameters->Item[(short)1]->Value;
long p3=Cmd1->Parameters->Item[(short)2]->Value;
int recordcount=0;
if(Rs1->State==ADODB::adStateClosed)
MessageBox(NULL,"no recordset is returned from the stored procedure","Information",MB_OK);
else
recordcount = Rs1->GetRecordCount();
wsprintf(tcbuf,"retvalue of the stored procedure:%d,input value:%d,output value:%d,record count :%d",retvalue,p2,p3,recordcount);
MessageBox(NULL,tcbuf,"Output",MB_OK);
}
catch(_com_error &e)
{
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
printf("\nCOM error occurred, Source : %s \n Description : %s \n",(LPCSTR)bstrSource,(LPCSTR)bstrDescription);
PrintProviderError(Conn1);
}
return 0;
}
VOID PrintProviderError(ADODB::_ConnectionPtr pConnection)
{
// Print Provider Errors from Connection object.
// pErr is a record object in the Connection's Error collection.
ADODB::ErrorPtr pErr = NULL;
long nCount = 0;
long i = 0; if( (pConnection->Errors->Count) > 0)
{
nCount = pConnection->Errors->Count;
// Collection ranges from 0 to nCount -1.
for(i = 0; i < nCount; i++)
{
pErr = pConnection->Errors->GetItem(i);
printf("\n\t Error number: %x\t%s", pErr->Number, (LPCSTR)pErr->Description);
}
}
}
/*
CREATE PROCEDURE "ONEGA"."TestProc1"
(
p_out OUT numeric,
p_id IN numeric DEFAULT 1
)
IS
BEGIN
p_out:= p_id + 1234;return;
END ;
*/
int main(int argc, char* argv[])
{
printf("Use ADO to open Oracle!\n");
CoInitialize(NULL);
_ConnectionPtr pConn("ADODB.Connection");
try
{
_CommandPtr Cmd1;
Cmd1.CreateInstance( __uuidof( Command ) );
_ParameterPtr outParam=NULL;
pConn->Open("Provider=OraOLEDB.Oracle;Data Source=workdb;User Id=Onega;Password=sa;"
,"","",adConnectUnspecified);
Cmd1->ActiveConnection = pConn;
Cmd1->CommandText = "{call ONEGA.TestProc1( ?)}";
Cmd1->CommandType = adCmdText;
outParam = Cmd1->CreateParameter("p_out",adInteger,adParamOutput,sizeof(int));
Cmd1->Parameters->Append(outParam);
Cmd1->Execute(NULL,NULL,adExecuteNoRecords);
long p2=Cmd1->Parameters->Item["p_out"]->Value;
printf("p2= %d,\n",p2);
pConn->Close();
}
catch(_com_error &e)
{
printf("%s", e.Description);
}
::CoUninitialize();
printf("program end.\n");
return 0;
}