使用ADO调用存储过程

在ADO中调用存储过程一直是一个困扰大家的问题。其实,关于ADO调用存储过程的
   方法在很多书中都有讲到,标准的做法无非是按照以下步骤进行:
    1、生成并初始化一个_CommandPtr对象;
    2、生成调用存储过程需要的参数,这些参数都是_ParameterPtr对象;
    3、按照顺序将使用_CommandPtr的Append方法为存储过程提供参数(包括输入参数
       和输出参数);
    4、为_CommandPtr对象指定需要使用的ADO连接;
    5、使用_CommandPtr的Execute方法调用存储过程;
    6、从结果中获取返回参数的值(如果有的话)。
   具体的过程在此我不详细描述,我想看看本文附带的代码就应该很明白了。
   在这里我想就我使用ADO调用存储过程时的一些体会说明一下。
  1、关于CreateParameter函数
   该函数的原型为:CreateParameter (Name, Type, Direction, Size, Value)
   其中Name是参数的名称,可以指定也可以不指定;
   Type是一个DataTypeEnum值,指定参数的类别,取值有adInteger(整型)、adChar(字符/字符串型)等;
   Direction是一个ParameterDirectionEnum值,其取值为adParamInput、adParamOutput、
   adParamOutput、adParamReturnValue、adParamUnknown;
   Size是一个Long类型的值,指示该参数值以字节计算的最大长度,例如对int型,该值可以取为sizeof(int),
   对Long型,该值可以取为sizeof(long),对字符串型,可以使用该字符串的长度;
   Value是一个variant类型的值,是该参数的取值。
   在这里需要注意的是,Type参数、Direction参数以及Size参数一定要和存储过程定义时的参数相吻合,
   例如,如果有下面一个存储过程
   CREATE  PROCEDURE SMS_Proc_Handle_All
   (@UserID Integer,
    @SourAddr Varchar(15),
    @DestAddr varchar(5000),
    @AvValue Single output,
    @ReturnInfo varchar(100) output
   )
   则Type参数的取值依次为adInteger、adChar、adChar、adSingle,adChar;
   Direction参数的取值依次为adParameterIn、adParameterIn、adParameterIn、adParameterOut、adParameterOut;
   对于输入参数,Size的值可以根据实际数值来定,对于输出参数,最好是根据定义确定(上例中ReturnInfo参数的
   Size值可以取为100)。
   2,关于获取Output的参数
     获取ourput参数是大家最关注的问题,同时也是最“难”的问题,因为按照书本上的写法,经常获得不了
   Output参数,其实这个问题很容易解决:在调用_CommandPtr的Execute方法时,写成
   cmmd->Execute(NULL, NULL, adCmdStoredProc);
   而不要写成
   RecordsetPtr rec = cmmd->Execute(NULL, NULL, adCmdStoredProc);
   也就是说,不取返回值(我不知道这是为什么,但是相信我,事情就是这样)。
   这句执行完后,使用
   cmmd->Parameters->GetItem("XXXXXX")->GetValue();
                          ^^^^^^^
                        输出参数的名称
   就可以获得输出参数的值了。
   以下是一个通过ADO调用存储过程的部分代码:
  _CommandPtr cmmd;
  HRESULT hr = cmmd.CreateInstance(__uuidof(Command));
  if(FAILED(hr))
{
   AfxMessageBox("NewNetDatabase()中创建_CommandPtr对象失败");
   return 0;
  }
  _ParameterPtr param;
  param = cmmd->CreateParameter(""/*NetType*/,adTinyInt, adParamInput,
    sizeof(BYTE),(BYTE)(m_nNetType+1));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter(""/*Name*/,adVarChar, adParamInput,
   m_strName.GetLength()+1, _variant_t(m_strName));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter(""/*Desp*/,adVarChar, adParamInput,
   m_strDesp.GetLength()+1, _variant_t(m_strDesp));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter("NewNetID"/*NetID*/,adInteger, adParamOutput,
   sizeof(long), (long)m_nNewNetID);//返回参数,返回新建的网络的ID
  cmmd->Parameters->Append(param);
   cmmd->CommandText=_bstr_t("GSDT_NewNet");//存储过程的名称
  cmmd->ActiveConnection = m_pConPtr;//需要使用的ADO连接
  cmmd->CommandType=adCmdStoredProc;
  //注意下面的一行代码,如果你写成这样,就获得不了返回参数的值
  //_RecordsetPtr rec = cmmd->Execute(NULL, NULL, adCmdStoredProc);
  //我不知道这是为什么,但事实就是这样:)
  cmmd->Execute(NULL, NULL, adCmdStoredProc);
  m_nNewNetID=(long)cmmd->Parameters->GetItem("NewNetID")->GetValue();//通过参数返回值
  cmmd.Detach();

 

ActiveX Data Objects (ADO) enables you to write a client application to access and manipulate data in a database server through a provider.
ADO's primary benefits are ease of use, high speed, low memory overhead, and a small disk footprint.
This sample project is for ADODB, an implementation of ADO optimized for use with Microsoft OLE DB providers, including the Microsoft ODBC provider for OLE DB.
Using this we can execute stored procedure, pass arguments and retrieve value. To use this sample you will have to create the two stored procedures mentioned below.
For using this project you need MFC 5.0 OR above + ADO in your machine.

{
   CString strTmp;

   CString m_sdatasource; // Data source name
   CString m_sUserID;     // User Id
   CString m_sPassword;   // Password

   // GET the above values from the user
   //Without creating Datasource we can use database by the following   code
   /* strTmp.Format( "driver={sql server};"
                           "server=%s;"
                           "Database=%s;""UID=%s;""PWD=%s;",
                           m_server,m_sdatabase,m_sUserID,m_sPassword );*/

   strTmp.Format( "dsn=%s;""UID=%s;""PWD=%s;",m_sdatasource,m_sUserID,m_sPassword );
   _bstr_t         bstrSQLServerConnect;
   _bstr_t bstrProc =( L"sp_StartByteImport" );; //Stored procedure name
   _variant_t Final;
   bstrSQLServerConnect = (LPCTSTR) strTmp;
   m_status="Empty File";
   _ConnectionPtr  Conn1; // connection object pointer
   _CommandPtr     Cmd1;  // command object pointer
   _RecordsetPtr   Rs1; // recordset object pointer
   bool            bvalid = false;
   try
   {
      Conn1.CreateInstance( __uuidof( Connection ) ); // Instantiating connection object
   Conn1->ConnectionString = bstrSQLServerConnect; // giving the sqlconnection
   Conn1->Open( bstrEmpty, bstrEmpty, bstrEmpty ); // open the connection object
   Cmd1.CreateInstance( __uuidof( Command ) ); // creating command object
   Cmd1->ActiveConnection = Conn1;             // giving the connection handle
   Cmd1->CommandText      = _bstr_t( bstrProc ); // passing the stored procedue
   Cmd1->CommandType      = adCmdStoredProc;     // type
   Cmd1->Parameters->Refresh();                 // passing string value as argument to stored procedure
   Cmd1->Parameters->Item[ _variant_t( (long) 1 ) ]->Value = _variant_t( (LPCTSTR)m_sfilename );
   Rs1 = Cmd1->Execute( &vtEmpty, &vtEmpty2, adCmdUnknown ); // executing the stored procedure and storing the recordset value
   bvalid = true;
   Final  = Rs1->Fields->GetItem( _variant_t( 0L ) )->Value; // getting the first column value of the result row
   strTmp.Format( "%s", CrackStrVariant( Final) ); // to see the value
   // put your code to see all column values
   }
   catch( CException *e ) // trapping all error messages
   {
   TCHAR    szCause[255];
      e->GetErrorMessage(szCause, 255);
   m_status=szCause;
   }
   catch( _com_error &e )
   {
 m_status=e.ErrorMessage( );
   }
   catch(...)
   {
 m_status="Error while executing the Import";

   }
    //we need to create the stored procedures below before running the application
 //CREATE PROCEDURE sp_AddAccountingInfo @nfinal int, @pcDate datetime,
 //@pcURL varchar (250), @pcTop varchar (250),
 //@pcQueryString varchar (250), @pcBytes int, @pcRequests int AS
       /*
  Do your operation here
 */
 //CREATE PROCEDURE sp_AddAccountingInfo
 //@nfinal int,
 //@pcDate datetime,
 //@pcURL varchar (250),
 //@pcTop varchar (250),
 //@pcQueryString varchar (250),
 //@pcBytes int,
 //@pcRequests int
 //AS
 /*
  Put your code here
 */
}
vc下用ado调用存储过程

1 _ConnectionPtr m_pConnection;
2 _CommandPtr m_pCommand;
.cpp中在函数中执行
//建立ado连接
3 HRESULT hr;
4 hr=m_pConnection.CreateInstance(__uuidof(Connection));
5 try
6 {
7 if(SUCCEEDED(hr))
8 {
9 hr=m_pConnection->Open(_bstr_t(L"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Viper;Data Source=Viper"),_bstr_t (L"sa"),_bstr_t (L""),adModeUnknown);
10 }
11 }
12 catch(_com_error & err)
13 {
14 AfxMessageBox(err.Description(),MB_OK,0);
15 AfxMessageBox(err.ErrorMessage(),MB_OK,0);
16 AfxMessageBox("无法连接SQL SERVER 服务器,程序将退出。请检查网络设备",MB_OK,0);
17 exit(0);
18 }

//执行储存过程
19 CString cvar1,cvar2;
20 int cvar3;
21 cvar1="ddd";
22 cvar2="";
23 cvar3=0;
24 try
25 {
26 m_pCommand.CreateInstance(__uuidof(Command));
27 m_pCommand->ActiveConnection=app->m_pConnection;
28 m_pCommand->CommandType=adCmdStoredProc;
29 m_pCommand->CommandText=_bstr_t("pr_zs_dzdy");
30
31 _variant_t vvar1,vvar2,vvar3;
32 vvar1=_variant_t(_bstr_t(cvar1));
33 vvar2=_variant_t(_bstr_t(cvar2));
34 vvar3=_variant_t(cvar3);
35 _ParameterPtr mp_var1,mp_var2,mp_var3;
36 mp_var1.CreateInstance(__uuidof(Parameter));
37 mp_var2.CreateInstance(__uuidof(Parameter));
38 mp_var3.CreateInstance(__uuidof(Parameter));

39 mp_var1=m_pCommand->CreateParameter
40 (
41 _bstr_t("var1"),
42 adVarChar,
43 adParamInput,
44 3,
45 vvar1
46 );
47 m_pCommand->Parameters->Append(mp_var1);
48
49 mp_var2=m_pCommand->CreateParameter
50 (
51 _bstr_t("var2"),
52 adVarChar,
53 adParamOutput,
54 3,
55 vvar2
56 );
57 m_pCommand->Parameters->Append(mp_var2);
58
59 mp_var3=m_pCommand->CreateParameter
60 (
61 _bstr_t("var3"),
62 adIntger,
63 adParamOutput,
64 9,
65 vvar3
66 );
67 m_pCommand->Parameters->Append(mp_var3);
68
69
70 _variant_t vNull;
71 vNull.vt=VT_ERROR;
72 vNull.scode=DISP_E_PARAMNOTFOUND;
73 m_pCommand->Execute(&vNull,&vNull,adCmdStoredProc);
74 cvar2=mp_var2->Value.bstrVal;
75 cvar3=mp_var3->Value;
76 }
77 catch(_com_error &error)
78 {
79 MessageBox(error.ErrorMessage(),"ADO错误!");
80 MessageBox(error.Description(),"ADO错误!");
81 }

【打印文档】【大 中 小】【关闭窗口】

上一篇文章: VC Studio 使用技巧大全 2.0版本

下一篇文章: VC里一些容易混淆的地方


关于存储过程的ADO调用的一些心得(输出参数,返回值)

[本页面推荐在1024x768分辩率下浏览]
文章类别:数据库开发   
网站目录: 网站首页 —> 数据库开发

转载自:www.csdn.net

  
在一个项目中,我需要用到存储过程来访问数据,为了提供一个比较一致的接口以便调用,我没有使用CreateParameter(),而是调用CommandPtr的Refresh()函数先从数据库中查询参数.
_ConnectionPtr m_pConn;
m_pConn.CreateInstance(__uuidof(Connection));
m_pConn->Open("driver={SQL Server};server=127.0.0.1;DATABASE=pub;UID=sa;PWD=", "","",0);
_CommandPtr  m_pCommand;
m_pCommand.CreateInstance(__uuidof(Command));
_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pCommand->ActiveConnection = m_pConn;
m_pCommand->CommandText = "SP_XX";//存储过程名
m_pCommand->PutCommandType(adCmdStoredProc);
m_pCommand->Parameters->Refresh();//从数据库查询参数信息
接下来就可以对每一个参数赋值了:
long cnt = m_pCommand->Parameters->GetCount();//取得参数的个数
for(long k=1;k<cnt;k++)
{//由于ADO中认为返回值是第一个参数即k=0时是返回值,因此这里用k=1滤掉第一个参数
 m_pCommand->Parameters->GetItem(k)->Value = XXX;//按存储过程的参数顺序给参数赋值
}
现在可以执行这个存储过程了
m_pRecordset = m_pCommand->Execute(0,0,adCmdStoredProc);
这个时候,如果接下来用
_variant_t ret_val = m_pCommand->Parameters->GetItem((long)0)->Value;
那么将得不到值
而如果像下面这样调用的话就可以得到返回值了
m_pRecordset->Close();
_variant_t output_para = m_pCommand->Parameters->GetItem((long)0)->Value;
MS ADO.net给这一现象的回复是:
 You can think of a stored procedure as a function in your code. The function doesn’t return a value until it has executed all of its code. If the stored procedure returns results and you haven’t finished processing these result

昨天做项目时发现此处不正确,m_pRecordset不能close。而且释放指针时要先释放m_pCommand,再释放m_pRecordset 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值