2024年8月5日发(作者：)
没想到今天会这么晚才睡觉，在送走我的宝宝后，我平静下来想把公司的客户端的VC
读写存储过程的方法好好整理一下，因为这个解决方案还没有最终做好，我有责任把这个
问题完备的解决掉，vc进行一些高级的数据库操作确实显得很麻烦，这点做的不如.net好，
但是作为一个客户端软件也必须要具备这个功能，在认真进行配合编码后，正确的结果出
现了，我很兴奋，很长时间没有这种在写出一个认为较难实现的东东后的兴奋感了，可能
是宝宝给我的运气，核心代码如下 ：
CADOParameter pParamIn(CADORecordset::typeChar, sizeof(char)*50);
CString a="guanchanghui";
ue(a);
CADOCommand pCmd(&m_pDb, "GetPrivateServer");
ameter(&pParamIn);
CADORecordset* prs = new CADORecordset(&m_pDb);
if(m_e(&pCmd))
{
if(m_e(&pCmd))
{
//执行SELETE语句
_RecordsetPtr m_pRecordset;
while (!m_())
{
m_pRecordset=m_ordset();
CString ServerIP,RoleName;
ServerIP = (LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("serverip");
RoleName = (LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("RoleName
");
m_serverip+=ServerIP+" "+RoleName;
m_serverip+=" ";
UpdateData(FALSE);
m_xt();
}
}
}
delete prs;
真的不是很复杂，所以不论什么事情耐心和认真的态度是必备的，公司里的事情也如
此我也是这样认为的，与人的沟通上面也是要有耐心，公司的成长上面也是要有耐心的，
用一句话来勉励自己吧，既然选择了远方，便只顾风雨兼程。
在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 = Instance(__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_gth()+1, _variant_t(m_strName));
cmmd->Parameters->Append(param);
param = cmmd->CreateParameter(""/*Desp*/,adVarChar, adParamInput,
m_gth()+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
();//通过参数返回值
();
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
/* ( "driver={sql server};"
"server=%s;"
"Database=%s;""UID=%s;""PWD=%s;",
m_server,m_sdatabase,m_sUserID,m_sPassword );*/
code
( "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
{
Instance( __uuidof( Connection ) ); // Instantiating connection
object
Conn1->ConnectionString
sqlconnection
= bstrSQLServerConnect; // giving the
Conn1->Open( bstrEmpty, bstrEmpty, bstrEmpty ); // open the connection
object
Instance( __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
( "%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=essage( );
}
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_Instance(__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(ption(),MB_OK,0);
15 AfxMessageBox(essage(),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_Instance(__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_Instance(__uuidof(Parameter));
37 mp_Instance(__uuidof(Parameter));
38 mp_Instance(__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 =VT_ERROR;
72 =DISP_E_PARAMNOTFOUND;
73 m_pCommand->Execute(&vNull,&vNull,adCmdStoredProc);
74 cvar2=mp_var2->l;
75 cvar3=mp_var3->Value;
76 }
77 catch(_com_error &error)
78 {
79 MessageBox(essage(),"ADO错误!");
80 MessageBox(ption(),"ADO错误!");
81 }
【打印文档】【大 中 小】【关闭窗口】
上一篇文章： VC Studio 使用技巧大全 2.0版本
下一篇文章： VC里一些容易混淆的地方
关于存储过程的ADO调用的一些心得(输出参数,返回值)
[本页面推荐在1024x768分辩率下浏览]
文章类别：数据库开发
网站目录: 网站首页 —> 数据库开发
转载自：
在一个项目中,我需要用到存储过程来访问数据,为了提供一个比较一致的接口以便调
用,我没有使用CreateParameter(),而是调用CommandPtr的Refresh()函数先从数据库
中查询参数.
_ConnectionPtr m_pConn;
m_Instance(__uuidof(Connection));
m_pConn->Open("driver={SQL
Server};server=127.0.0.1;DATABASE=pub;UID=sa;PWD=", "","",0);
_CommandPtr m_pCommand;
m_Instance(__uuidof(Command));
_RecordsetPtr m_pRecordset;
m_Instance(__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 {//由于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 给这一现象的回复是: 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
发布评论