C+主播
当前位置：C++技术网 > 资讯 > ADO数据库操作封装参考代码：4 AdoCommand源文件

ADO数据库操作封装参考代码：4 AdoCommand源文件

更新时间：2015-06-26 20:25:27浏览次数：1+次

/*########################################################################
 Filename:  ado.cpp
 ----------------------------------------------------
 Remarks: ...
 ----------------------------------------------------
 Author:  成真
 Email:  anyou@sina.com
    anyou@msn.com
 Created: 20/1/2003 19:19
  ########################################################################*/
#include "stdafx.h"
#include "AdoCommand.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

/*########################################################################
   ------------------------------------------------
         CAdoCommand class
   ------------------------------------------------
  ########################################################################*/

CAdoCommand::CAdoCommand()
{
    ///创建 Connection 对象---------------------------
    // m_pCommand.CreateInstance("ADODB.Command");
    m_pCommand.CreateInstance(__uuidof(Command));
    #ifdef _DEBUG
    if (m_pCommand == NULL)
    {
    AfxMessageBox("Command 对象创建失败! 请确认是否初始化了Com环境.");
    }
    #endif
    ASSERT(m_pCommand != NULL);
}

CAdoCommand::CAdoCommand(CAdoConnection* pAdoConnection, CString strCommandText, CommandTypeEnum CommandType)
{
    ///创建 Connection 对象---------------------------
    // m_pCommand.CreateInstance("ADODB.Command");
    m_pCommand.CreateInstance(__uuidof(Command));
    #ifdef _DEBUG
    if (m_pCommand == NULL)
    {
        AfxMessageBox("Command 对象创建失败! 请确认是否初始化了Com环境.");
    }
    #endif
    ASSERT(m_pCommand != NULL);
    ASSERT(pAdoConnection != NULL);
    SetConnection(pAdoConnection);
    if (strCommandText != _T(""))
    {
        SetCommandText(LPCTSTR(strCommandText));
    }
    SetCommandType(CommandType);
}

CAdoCommand::~CAdoCommand()
{
    Release();
}

void CAdoCommand::Release()
{
    try
    {
        m_pCommand.Release();
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: Release 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
    } 
}

_RecordsetPtr CAdoCommand::Execute(long Options)
{
    ASSERT(m_pCommand != NULL);
    try
    {
        return m_pCommand->Execute(NULL, NULL, Options);
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: Execute 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return NULL;
    } 
}

BOOL CAdoCommand::Cancel()
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return (m_pCommand->Cancel() == S_OK);
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: Cancel 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

_ParameterPtr CAdoCommand::CreateParameter(LPCTSTR lpstrName, 
          DataTypeEnum Type, 
          ParameterDirectionEnum Direction, 
          long Size, 
          _variant_t Value)
{
    ASSERT(m_pCommand != NULL);
    try
    {
        return m_pCommand->CreateParameter(_bstr_t(lpstrName), Type, Direction, Size, Value);
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: CreateParameter 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return NULL;
    } 
}

BOOL CAdoCommand::SetCommandText(LPCTSTR lpstrCommand)
{
    ASSERT(m_pCommand != NULL);
    try
    {
        m_pCommand->PutCommandText(_bstr_t(lpstrCommand));
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: PutCommandText 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

BOOL CAdoCommand::SetConnection(CAdoConnection *pConnect)
{
    ASSERT(pConnect != NULL);
    ASSERT(pConnect->GetConnection() != NULL);
    ASSERT(m_pCommand != NULL);

    try
    {
        m_pCommand->PutActiveConnection(_variant_t((IDispatch*)pConnect->GetConnection(), true));
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetConnection 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}
/*========================================================================
 Name:  指示 Command 对象的类型。
    ----------------------------------------------------------
 returns: 返回以下某个 CommandTypeEnum 的值.
  [常量]     [说明] 
  ----------------------------------
  adCmdText   指示strSQL为命令文本, 即普通的SQL语句. 
  adCmdTable   指示ADO生成SQL查询返回以 strSQL 命名的表中的
      所有行. 
  adCmdTableDirect 指示所作的更改在strSQL中命名的表中返回所有行. 
  adCmdStoredProc  指示strSQL为存储过程. 
  adCmdUnknown  指示strSQL参数中的命令类型为未知. 
  adCmdFile   指示应从在strSQL中命名的文件中恢复保留(保存的)
      Recordset. 
  adAsyncExecute  指示应异步执行strSQL. 
  adAsyncFetch  指示在提取 Initial Fetch Size 属性中指定的初始
      数量后, 应该异步提取所有剩余的行. 如果所需的行尚未
      提取, 主要的线程将被堵塞直到行重新可用. 
  adAsyncFetchNonBlocking 指示主要线程在提取期间从未堵塞. 如果所请求
      的行尚未提取, 当前行自动移到文件末尾. 
   ----------------------------------------------------------
 Remarks: 使用 CommandType 属性可优化 CommandText 属性的计算。
  如果 CommandType 属性的值等于 adCmdUnknown(默认值), 系统的性能将会
 降低, 因为 ADO 必须调用提供者以确定 CommandText 属性是 SQL 语句、还是存
 储过程或表格名称。如果知道正在使用的命令的类型, 可通过设置 CommandType 
 属性指令 ADO 直接转到相关代码。如果 CommandType 属性与 CommandText 属
 性中的命令类型不匹配, 调用 Execute 方法时将产生错误。
==========================================================================*/
BOOL CAdoCommand::SetCommandType(CommandTypeEnum CommandType)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        m_pCommand->PutCommandType(CommandType);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: PutCommandType 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

long CAdoCommand::GetState()
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetState();
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetState 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return -1;
    } 
}

BOOL CAdoCommand::SetCommandTimeOut(long lTime)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        m_pCommand->PutCommandTimeout(lTime);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetCommandTimeOut 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

ParametersPtr CAdoCommand::GetParameters()
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters();
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetCommandTimeOut 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return NULL;
    } 
}

BOOL CAdoCommand::Append(_ParameterPtr param)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters()->Append((IDispatch*)param);
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: Append 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}


_ParameterPtr CAdoCommand::GetParamter(LPCTSTR lpstrName)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters()->GetItem(_variant_t(lpstrName));
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetParamter 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return NULL;
    } 
}

_ParameterPtr CAdoCommand::GetParameter(long index)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters()->GetItem(_variant_t(index));
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetParamter 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return NULL;
    } 
}

_variant_t CAdoCommand::GetValue(long index)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters()->GetItem(_variant_t(index))->Value;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        _variant_t vt;
        vt.vt = VT_NULL;
        return vt;
    } 
}

_variant_t CAdoCommand::GetValue(LPCTSTR lpstrName)
{
    ASSERT(m_pCommand != NULL);

    try
    {
        return m_pCommand->GetParameters()->GetItem(_variant_t(lpstrName))->Value;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        _variant_t vt;
        vt.vt = VT_NULL;
        return vt;
    } 
}

_CommandPtr& CAdoCommand::GetCommand()
{
    return m_pCommand;
}

CAdoParameter CAdoCommand::operator [](int index)
{
    CAdoParameter pParameter;
    ASSERT(m_pCommand != NULL);
    try
    {
        pParameter = m_pCommand->GetParameters()->GetItem(_variant_t(long(index)));
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: operator [] 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
    }
    return pParameter;
}

CAdoParameter CAdoCommand::operator [](LPCTSTR lpszParamName)
{
    CAdoParameter pParameter;
    ASSERT(m_pCommand != NULL);
    try
    {
        pParameter = m_pCommand->GetParameters()->GetItem(_variant_t(lpszParamName));
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: operator [] 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
    }
    return pParameter;
}


/*########################################################################
     ------------------------------------------------
           CAdoParameter class
     ------------------------------------------------
  ########################################################################*/
CAdoParameter::CAdoParameter()
{
    m_strLogFile = _T("AdoErrPara");

    m_pParameter = NULL;
    // m_pParameter.CreateInstance("ADODB.Parameter");
    m_pParameter.CreateInstance(__uuidof(Parameter));
    #ifdef _DEBUG
    if (m_pParameter == NULL)
    {
     AfxMessageBox("Parameter 对象创建失败! 请确认是否初始化了Com环境.");
    }
    #endif
    ASSERT(m_pParameter != NULL);
    m_strName = _T("");
}

CAdoParameter::CAdoParameter(DataTypeEnum DataType, long lSize, ParameterDirectionEnum Direction, CString strName)
{
    m_strLogFile = _T("AdoErrPara");

    m_pParameter = NULL;
    // m_pParameter.CreateInstance("ADODB.Parameter");
    m_pParameter.CreateInstance(__uuidof(Parameter));
    #ifdef _DEBUG
    if (m_pParameter == NULL)
    {
        AfxMessageBox("Parameter 对象创建失败! 请确认是否初始化了Com环境.");
    }
    #endif
    ASSERT(m_pParameter != NULL);

    m_pParameter->Direction = Direction;
    m_strName = strName;
    m_pParameter->Name = m_strName.AllocSysString();
    m_pParameter->Type = DataType;
    m_pParameter->Size = lSize;
}

_ParameterPtr& CAdoParameter::operator =(_ParameterPtr& pParameter)
{
    if (pParameter != NULL)
    {
        m_pParameter = pParameter;
    }
    else
    {
        return pParameter;
    }
    return m_pParameter;
}

CAdoParameter::~CAdoParameter()
{
    m_pParameter.Release();
    m_pParameter = NULL;
    m_strName = _T("");
}

/*========================================================================
 Name:  指示在 Parameter 对象中数字值或数字 Field 对象的精度。
    ----------------------------------------------------------
 Params:  设置或返回 Byte 值，用来表示值的最大位数。该值在 Parameter
   对象上为读/写，而在 Field 对象上为只读。
    ----------------------------------------------------------
 Remarks: 使用 Precision 属性可确定表示数字 Parameter 或 Field 对象值
   的最大位数
==========================================================================*/
BOOL CAdoParameter::SetPrecision(char nPrecision)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutPrecision(nPrecision);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetPrecision 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

/*========================================================================
 Name:  指出 Parameter 或 Field 对象中数字值的范围。
    ----------------------------------------------------------
 Params:  设置或返回字节值，指示数字值所精确到的小数点位数。
    ----------------------------------------------------------
 Remarks: 使用 NumericScale 属性可确定用于表明数字型 Parameter 或 Field 
  对象的值的小数位数。
  对于 Parameter 对象，NumericScale 属性为读/写。对于 Field 对象，
 NumericScale 属性为只读。

==========================================================================*/
BOOL CAdoParameter::SetNumericScale(int nScale)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutNumericScale(nScale);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetPrecision 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

/*========================================================================
 Name:  指示 Parameter 对象的数据类型.
    ----------------------------------------------------------
 Params:  [DataType]: DataTypeEnum 类型值, 请参考 CRecordSet 类相关
   函数.
==========================================================================*/
BOOL CAdoParameter::SetType(DataTypeEnum DataType)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutType(DataType);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetType 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

DataTypeEnum CAdoParameter::GetType()
{
    ASSERT(m_pParameter != NULL);
    try
    {
        return m_pParameter->GetType();
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetDirection 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return adEmpty;
    }
}

/*========================================================================
 Name:  表示 Parameter 对象的最大大小（按字节或字符）。
    ----------------------------------------------------------
 Params:  [size]: 表示 Parameter 对象的最大大小（按字节或字符）的长
   整型值。
==========================================================================*/
BOOL CAdoParameter::SetSize(int size)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutSize(long(size));
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetSize 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

int CAdoParameter::GetSize()
{
    ASSERT(m_pParameter != NULL);
    try
    {
        return (int)m_pParameter->GetSize();

    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetDirection 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return -1;
    }
}

/*========================================================================
 Name:  指示对象的名称。
==========================================================================*/
BOOL CAdoParameter::SetName(CString strName)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutName(_bstr_t(LPCTSTR(strName)));
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetName 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

CString CAdoParameter::GetName()
{
    ASSERT(m_pParameter != NULL);
    try
    {
        return CString(LPCTSTR(m_pParameter->GetName()));
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetName 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return CString(_T(""));
    }
}

/*========================================================================
 Name:  指示 Parameter 所标明的是输入参数、输出参数还是既是输出又
  是输入参数，或该参数是否为存储过程返回的值。
    ----------------------------------------------------------
 Params:  [Direction]: 设置以下某个 ParameterDirectionEnum 值。
  [常量]    [说明] 
  -------------------------------------------
  AdParamUnknown  指示参数方向未知。 
  AdParamInput  默认值。指示输入参数。 
  AdParamOutput  指示输出参数。 
  AdParamInputOutput 同时指示输入参数和输出参数。 
  AdParamReturnValue 指示返回值。 
==========================================================================*/
BOOL CAdoParameter::SetDirection(ParameterDirectionEnum Direction)
{
    ASSERT(m_pParameter != NULL);
    try
    {
        m_pParameter->PutDirection(Direction);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetDirection 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    } 
}

ParameterDirectionEnum CAdoParameter::GetDirection()
{
    ASSERT(m_pParameter != NULL);
    try
    {
        return m_pParameter->GetDirection();
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetDirection 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return adParamUnknown;
    } 
}

/*########################################################################
     ------------------------------------------------
      
     ------------------------------------------------
  ########################################################################*/

BOOL CAdoParameter::SetValue(const  _variant_t &value)
{
    ASSERT(m_pParameter != NULL);

    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(VARIANT);
        }
        m_pParameter->Value = value;
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const bool &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(short);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const int &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(int);
        }
        m_pParameter->Value = _variant_t(long(value));
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const long &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(long);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const double &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(double);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const CString &value)
{
    _variant_t var;
    var.vt = value.IsEmpty() ? VT_NULL : VT_BSTR;
    var.bstrVal = value.AllocSysString();

    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = value.GetLength();
        }
        m_pParameter->Value = var;
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const COleDateTime &value)
{
    _variant_t var;
    var.vt = VT_DATE;
    var.date = value;

    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(DATE);
        }
        m_pParameter->Value = var;
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
    return TRUE;
}

BOOL CAdoParameter::SetValue(const BYTE &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(BYTE);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const short &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(short);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::SetValue(const float &value)
{
    try
    {
        if (m_pParameter->Size == 0)
        {
            m_pParameter->Size = sizeof(float);
        }
        m_pParameter->Value = _variant_t(value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: SetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}


BOOL CAdoParameter::GetValue(bool &value)
{
    try
    {
        value = vartobool(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(BYTE &value)
{
    try
    {
        value = vartoby(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(short &value)
{
    try
    {
        value = vartoi(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(int &value)
{
    try
    {
        value = (int)vartol(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(long &value)
{
    try
    {
        value = vartol(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(double &value)
{
    try
    {
        value = vartof(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(CString &value)
{
    try
    {
        value = vartostr(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

BOOL CAdoParameter::GetValue(COleDateTime &value)
{
    try
    {
        value = vartodate(m_pParameter->Value);
        return TRUE;
    }
    catch (_com_error e)
    {
        m_strErrMsg.Format("Warning: GetValue 方法发生异常. 错误信息: %s; 文件: %s; 行: %d\n",(LPCTSTR)e.Description(), __FILE__, __LINE__);
        TRACE(m_strErrMsg);
        return FALSE;
    }
}

如果发现有Bug，请尽力修复，并反馈。

相关资讯

其他推荐

软件行业里常说的“架构”，究竟是什么东西？

软件行业里常说的“架构”，究竟是什么东西？

什么软件看电影免费？推荐小小TV直播手机版

什么软件看电影免费？推荐小小TV直播手机版

BeautyBOX安装包手机版是更新最快的影视app吗？用户：千真万确

BeautyBOX安装包手机版是更新最快的影视app吗？用户：千真万确

Windows核心编程入门：6 什么是触发状态

Windows核心编程入门：6 什么是触发状态

面试题：10 输入一个字符串，输出这个字符串中重复的元素及其个数

面试题：10 输入一个字符串，输出这个字符串中重复的元素及其个数

木星影院tv1.6.2vip版：苹果永久免费追剧的app，无广告！

木星影院tv1.6.2vip版：苹果永久免费追剧的app，无广告！

相关合集

查尔斯小火车版本大全

查尔斯小火车版本大全
文件系统

文件系统
ADO数据库

ADO数据库
VS完全介绍

VS完全介绍
Copyright ©  C++技术网(www.cjjjs.com).All Rights Reserved 陕ICP备2023010588号-1