int ProcessSQLSERVER_sp(CString server,CString db,CString UserName,CString Pwd)
{ int IRet;
int id = 1;
piConnection.CreateInstance("ADODB.Connection");
CString strCn;
strCn.Empty();
strCn="provider=SQLOLEDB;data source="+server
+";initial catalog="+db
+";userID="+UserName
+";Password="+Pwd;
_variant_t bcnstr=_variant_t(strCn);
_variant_t bunstr=_variant_t(UserName);
_variant_t bpwdstr=_variant_t(Pwd);
//打开一个连接
try{
piConnection->Open(_bstr_t(bcnstr),_bstr_t(bunstr),
_bstr_t(bpwdstr),-1); //adOpenUnspecified }catch(CDBException *ce)
{
ce->m_strError;
addlog(ce->m_strError);
ce->Delete();
return -1;
}
_CommandPtr cmd;
cmd.CreateInstance("ADODB.Command");
//id号
_ParameterPtr pParamRk;
pParamRk.CreateInstance("ADODB.Parameter");
pParamRk->Name="orderno"; //存储过程的参数1
pParamRk->Type=adInteger; //整型
pParamRk->Size=2; //
pParamRk->Direction=adParamInput;//表明是输入参数
CString tstr;
tstr.Format("%d",id);
pParamRk->Value=_variant_t(tstr);//int->CString->_variant_t后赋值
cmd->Parameters->Append(pParamRk);
_ParameterPtr pParamRET;
pParamRET.CreateInstance("ADODB.Parameter");
pParamRET->Name="amount"; //存储过程的参数1
pParamRET->Type=adInteger; //整型
pParamRET->Size=2; //
pParamRET->Direction=adParamInput;//表明是输入参数
// CString tstr;
tstr.Format("%d",id + 5);
pParamRET->Value=_variant_t(tstr);//int->CString->_variant_t后赋值
cmd->Parameters->Append(pParamRET); //返回值
_ParameterPtr pParamOk;
pParamOk.CreateInstance("ADODB.Parameter");
pParamOk->Name="result"; //参数2名称
// pParamOk->Type=adChar; //字符串
// pParamOk->Size=20; //大小为20个字节
pParamOk->Type = adInteger;
pParamOk->Size = 2;
pParamOk->Direction=adParamReturnValue; //声明是输出参数
cmd->Parameters->Append(pParamOk);
//_variant_t TheValue = MySet->GetCollect("FIELD_1");
//CString sValue=(char*)_bstr_t(TheValue); cmd->ActiveConnection = piConnection;
cmd->CommandText="dbo.add168member"; //存储过程的名字
cmd->CommandType=adCmdStoredProc; //表示为存储过程adCmdStoredProc
//执行,获得结果
try{
cmd->Execute(NULL, NULL, adCmdStoredProc);//Exception
}catch(CDBException *ce)
{
ce->m_strError;
addlog(ce->m_strError);
ce->Delete();
return -1;
}
//将值返回
// return (char*)_bstr_t(pParamOk->Value); ///output values
IRet = atoi((char*)_bstr_t(pParamOk->Value));
if(piConnection!=NULL)
{
piConnection->Close();//关闭连接
piConnection.Release();//释放对象
}
return 0;
}
STORED PROCEDURE:
CREATE PROCEDURE dbo.add168member
@orderno int,
@amount int
as
declare @result int
set nocount onset @result = @orderno + @amountreturn @result问题:在执行cmd->Execute(NULL, NULL, adCmdStoredProc);的时候出错:
First-chance exception in Gate168.exe (KERNEL32.DLL): 0xE06D7363: Microsoft C++ Exception.
{ int IRet;
int id = 1;
piConnection.CreateInstance("ADODB.Connection");
CString strCn;
strCn.Empty();
strCn="provider=SQLOLEDB;data source="+server
+";initial catalog="+db
+";userID="+UserName
+";Password="+Pwd;
_variant_t bcnstr=_variant_t(strCn);
_variant_t bunstr=_variant_t(UserName);
_variant_t bpwdstr=_variant_t(Pwd);
//打开一个连接
try{
piConnection->Open(_bstr_t(bcnstr),_bstr_t(bunstr),
_bstr_t(bpwdstr),-1); //adOpenUnspecified }catch(CDBException *ce)
{
ce->m_strError;
addlog(ce->m_strError);
ce->Delete();
return -1;
}
_CommandPtr cmd;
cmd.CreateInstance("ADODB.Command");
//id号
_ParameterPtr pParamRk;
pParamRk.CreateInstance("ADODB.Parameter");
pParamRk->Name="orderno"; //存储过程的参数1
pParamRk->Type=adInteger; //整型
pParamRk->Size=2; //
pParamRk->Direction=adParamInput;//表明是输入参数
CString tstr;
tstr.Format("%d",id);
pParamRk->Value=_variant_t(tstr);//int->CString->_variant_t后赋值
cmd->Parameters->Append(pParamRk);
_ParameterPtr pParamRET;
pParamRET.CreateInstance("ADODB.Parameter");
pParamRET->Name="amount"; //存储过程的参数1
pParamRET->Type=adInteger; //整型
pParamRET->Size=2; //
pParamRET->Direction=adParamInput;//表明是输入参数
// CString tstr;
tstr.Format("%d",id + 5);
pParamRET->Value=_variant_t(tstr);//int->CString->_variant_t后赋值
cmd->Parameters->Append(pParamRET); //返回值
_ParameterPtr pParamOk;
pParamOk.CreateInstance("ADODB.Parameter");
pParamOk->Name="result"; //参数2名称
// pParamOk->Type=adChar; //字符串
// pParamOk->Size=20; //大小为20个字节
pParamOk->Type = adInteger;
pParamOk->Size = 2;
pParamOk->Direction=adParamReturnValue; //声明是输出参数
cmd->Parameters->Append(pParamOk);
//_variant_t TheValue = MySet->GetCollect("FIELD_1");
//CString sValue=(char*)_bstr_t(TheValue); cmd->ActiveConnection = piConnection;
cmd->CommandText="dbo.add168member"; //存储过程的名字
cmd->CommandType=adCmdStoredProc; //表示为存储过程adCmdStoredProc
//执行,获得结果
try{
cmd->Execute(NULL, NULL, adCmdStoredProc);//Exception
}catch(CDBException *ce)
{
ce->m_strError;
addlog(ce->m_strError);
ce->Delete();
return -1;
}
//将值返回
// return (char*)_bstr_t(pParamOk->Value); ///output values
IRet = atoi((char*)_bstr_t(pParamOk->Value));
if(piConnection!=NULL)
{
piConnection->Close();//关闭连接
piConnection.Release();//释放对象
}
return 0;
}
STORED PROCEDURE:
CREATE PROCEDURE dbo.add168member
@orderno int,
@amount int
as
declare @result int
set nocount onset @result = @orderno + @amountreturn @result问题:在执行cmd->Execute(NULL, NULL, adCmdStoredProc);的时候出错:
First-chance exception in Gate168.exe (KERNEL32.DLL): 0xE06D7363: Microsoft C++ Exception.
_bstr_t(bpwdstr),-1);
的返回值。确定有没有出错先
而且没有报错啊
在open connection之前加上
piConnection->CursorLocation = adUseClient;
piConnection->Provider = _bstr_t(L"MSDAORA");
试一下再。
一次出来2个EXCEPTION:
Loaded 'D:\Program Files\Common Files\System\msadc\msadcer.dll', no matching symbolic information found.
First-chance exception in Gate168.exe (KERNEL32.DLL): 0xE06D7363: Microsoft C++ Exception.
First-chance exception in Gate168.exe (KERNEL32.DLL): 0xE06D7363: Microsoft C++ Exception.
TRY是无法捕捉的
//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);
}
}
}
说namespace adodb 没有找到
msado15.dll是明明包含进去了的