mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1441 lines
44 KiB
1441 lines
44 KiB
//+-------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1998 - 2000.
|
|
//
|
|
// File: odbvarnt.cxx
|
|
//
|
|
// Contents: Helper class for PROPVARIANTs, OLE-DB variant types and
|
|
// Automation variant types in tables
|
|
//
|
|
// Classes: COLEDBVariant - derives from CTableVariant
|
|
//
|
|
// Functions:
|
|
//
|
|
// History: 09 Jan 1998 VikasMan Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
#include "pch.cxx"
|
|
#pragma hdrstop
|
|
|
|
#include <bigtable.hxx>
|
|
#include <odbvarnt.hxx>
|
|
|
|
#include <initguid.h>
|
|
#define DBINITCONSTANTS
|
|
#include <msdadc.h> // oledb data conversion (IDataConvert) interface
|
|
#include <msdaguid.h>
|
|
|
|
#include "tabledbg.hxx"
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Method: COLEDBVariant::OLEDBConvert, public.
|
|
//
|
|
// Synopsis: Data conversion routine, which uses the OLEDB data
|
|
// conversion library (MSDADC.DLL) to do the conversion.
|
|
//
|
|
// Arguments: [pbDstBuf] -- the Destination data buffer
|
|
// [cbDstBuf] -- the size of Dst. buffer
|
|
// [vtDst] -- the Destination type.
|
|
// [rPool] -- pool to use for destination buffers
|
|
// [rcbDstLength] -- size of destination data
|
|
// [xDataConvert] -- the OLEDB IDataConvert interface
|
|
// [bPrecision] -- The precision of the output data in bytes,
|
|
// if applicable. This argument is used when
|
|
// converting to DBTYPE_NUMERIC data only.
|
|
// [bScale] -- The scale of the output data in bytes,
|
|
// if applicable. This argument is used when
|
|
// converting to DBTYPE_NUMERIC data only.
|
|
//
|
|
// Returns: DBSTATUS_S_OK if conversion is successful,
|
|
// else other DBSTATUS values.
|
|
//
|
|
// Notes: pbDstBuf should have (enough) memory allocated, else
|
|
// truncation can happen.
|
|
//
|
|
// This routine is subdivided into 3 parts:
|
|
// - It checks first if we are dealing with Automation Vars.
|
|
// - Then it calls CTableVaraint::CopyOrCoerce to the job
|
|
// - If unsuccessful, it uses the OLE-DB library
|
|
//
|
|
// History: 09 Jan 1998 VikasMan Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::OLEDBConvert(
|
|
BYTE * pbDstBuf,
|
|
DBLENGTH cbDstBuf,
|
|
VARTYPE vtDst,
|
|
PVarAllocator & rPool,
|
|
DBLENGTH & rcbDstLength,
|
|
XInterface<IDataConvert>& xDataConvert,
|
|
BOOL fExtTypes, /* = TRUE */
|
|
BYTE bPrecision, /* = 0 */
|
|
BYTE bScale /* = 0 */ ) const
|
|
{
|
|
void* pbSrcBuf;
|
|
ULONG cbSrcSize;
|
|
DBTYPE dbtypeSrc, dbtypeDst;
|
|
DBLENGTH cbDstBufNeeded;
|
|
DBSTATUS DstStatus = DBSTATUS_E_CANTCONVERTVALUE;
|
|
|
|
// Check if fExtTypes is false and we are dealing with automation variants
|
|
if ( VT_VARIANT == vtDst || DBTYPE_PROPVARIANT == vtDst )
|
|
{
|
|
Win4Assert(cbDstBuf == sizeof PROPVARIANT);
|
|
|
|
rcbDstLength = sizeof (PROPVARIANT);
|
|
if ( ! IsArray( vt) &&
|
|
( fExtTypes || DBTYPE_PROPVARIANT == vtDst ||
|
|
VT_BSTR == vt || (IsSimpleOAType( vt ) && ! IsVector( vt )) ) )
|
|
{
|
|
Copy( (CTableVariant*) pbDstBuf, rPool, (USHORT) VarDataSize() );
|
|
DstStatus = DBSTATUS_S_OK;
|
|
}
|
|
else
|
|
{
|
|
DstStatus = _CopyToOAVariant( (VARIANT *) pbDstBuf, rPool );
|
|
}
|
|
|
|
if ( VT_EMPTY == vt )
|
|
DstStatus = DBSTATUS_S_ISNULL;
|
|
}
|
|
else
|
|
{
|
|
// try converting using CTableVariant's CopyOrCoerce
|
|
DstStatus = CopyOrCoerce( pbDstBuf,
|
|
cbDstBuf,
|
|
vtDst,
|
|
rcbDstLength,
|
|
rPool );
|
|
}
|
|
|
|
if ( DBStatusOK( DstStatus ))
|
|
{
|
|
// we are done here
|
|
return DstStatus;
|
|
}
|
|
|
|
if (DBTYPE_HCHAPTER == vtDst)
|
|
{
|
|
if (VT_I4 == vt || VT_UI4 == vt)
|
|
{
|
|
* (ULONG *) pbDstBuf = lVal;
|
|
DstStatus = DBSTATUS_S_OK;
|
|
}
|
|
|
|
return DstStatus;
|
|
}
|
|
|
|
// WORKAROUND: The following switch stmt is needed only until
|
|
// OLEDB library supports VT_FILETIME. Once it does that,
|
|
// we can get rid of this.
|
|
|
|
switch ( vtDst )
|
|
{
|
|
case VT_DATE:
|
|
// allow coercions from I8, UI8, R8, and FILETIME
|
|
|
|
if (VT_I8 == vt || VT_UI8 == vt)
|
|
{
|
|
* (LONGLONG *) pbDstBuf = hVal.QuadPart;
|
|
}
|
|
else if (VT_R8 == vt)
|
|
{
|
|
* (DATE *) pbDstBuf = dblVal;
|
|
}
|
|
else
|
|
{
|
|
DstStatus = _StoreDate(pbDstBuf, cbDstBuf, vtDst);
|
|
}
|
|
rcbDstLength = sizeof (DATE);
|
|
break;
|
|
|
|
case VT_FILETIME:
|
|
// allow coercions from I8, UI8, and DATE
|
|
|
|
if (VT_I8 == vt || VT_UI8 == vt)
|
|
{
|
|
* (LONGLONG *) pbDstBuf = hVal.QuadPart;
|
|
}
|
|
else
|
|
{
|
|
DstStatus = _StoreDate(pbDstBuf, cbDstBuf, vtDst);
|
|
}
|
|
rcbDstLength = sizeof (FILETIME);
|
|
break;
|
|
|
|
case DBTYPE_DBDATE:
|
|
DstStatus = _StoreDate(pbDstBuf, cbDstBuf, vtDst);
|
|
rcbDstLength = sizeof (DBDATE);
|
|
break;
|
|
|
|
case DBTYPE_DBTIME:
|
|
DstStatus = _StoreDate(pbDstBuf, cbDstBuf, vtDst);
|
|
rcbDstLength = sizeof (DBTIME);
|
|
break;
|
|
|
|
case DBTYPE_DBTIMESTAMP:
|
|
DstStatus = _StoreDate(pbDstBuf, cbDstBuf, vtDst);
|
|
rcbDstLength = sizeof (DBTIMESTAMP);
|
|
break;
|
|
}
|
|
|
|
if ( DBStatusOK( DstStatus ))
|
|
{
|
|
// we are done here
|
|
return DstStatus;
|
|
}
|
|
|
|
tbDebugOut(( DEB_ITRACE, "COLEDBVaraint::OLEDBConvert - Using OLEDB library for conversion\n" ));
|
|
|
|
// this looks like a job for ole-db
|
|
|
|
// check if we have the IDataConvert interface
|
|
if ( xDataConvert.IsNull( ) )
|
|
{
|
|
// let's get it then
|
|
if ( !_GetIDataConvert( xDataConvert ) )
|
|
{
|
|
// for some reason we could not get the IDataConvert interface
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
}
|
|
|
|
// get the source data pointer
|
|
pbSrcBuf = _GetDataPointer();
|
|
if ( 0 == pbSrcBuf )
|
|
{
|
|
tbDebugOut(( DEB_ERROR, "OLEDBConvert - _GetDataPointer returned NULL\n" ));
|
|
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
// get the source data size
|
|
cbSrcSize = VarDataSize();
|
|
|
|
// get the OLEDB source type
|
|
SCODE sc = _GetOLEDBType( vt, dbtypeSrc );
|
|
if ( S_OK != sc )
|
|
{
|
|
// can't use the OLEDB Conversion library
|
|
tbDebugOut(( DEB_ERROR,
|
|
"OLEDBConvert - _GetOLEDBType returned error 0x%x for type %x\n",
|
|
sc, vt ));
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
|
|
// the destination type has to be an OLE-DB type
|
|
dbtypeDst = vtDst;
|
|
|
|
// get the needed Destination size
|
|
sc = xDataConvert->GetConversionSize( dbtypeSrc,
|
|
dbtypeDst,
|
|
0,
|
|
&cbDstBufNeeded,
|
|
pbSrcBuf );
|
|
|
|
if ( sc != S_OK )
|
|
{
|
|
tbDebugOut(( DEB_ITRACE,
|
|
"OLEDBConvert - GetConversionSize returned error 0x%x\n",
|
|
sc ));
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
BYTE* pbDest = 0;
|
|
|
|
// we need to allocate memory if ...
|
|
|
|
if ( ( IsLPWSTR( dbtypeDst ) ) ||
|
|
( IsLPSTR( dbtypeDst ) ) ||
|
|
( (DBTYPE_BYREF | DBTYPE_WSTR) == dbtypeDst ) ||
|
|
( (DBTYPE_BYREF | DBTYPE_STR) == dbtypeDst )
|
|
)
|
|
{
|
|
// If we hit this assert, then we got a few things to think about
|
|
|
|
Win4Assert( !(IsLPWSTR( dbtypeDst ) || IsLPSTR( dbtypeDst )) );
|
|
|
|
pbDest = (BYTE*) rPool.Allocate( (ULONG) cbDstBufNeeded );
|
|
}
|
|
else if ( DBTYPE_BSTR == dbtypeDst )
|
|
{
|
|
pbDest = (BYTE*) rPool.AllocBSTR( (ULONG) cbDstBufNeeded );
|
|
}
|
|
else
|
|
{
|
|
// bogus assert
|
|
// Win4Assert ( (dbtypeDst & DBTYPE_BYREF) == 0 );
|
|
|
|
// memory is already allocated
|
|
// use the size which is less
|
|
// if cbDstBuf is less than cbDstBufNeeded, truncation might happen
|
|
cbDstBufNeeded = ( cbDstBufNeeded < cbDstBuf ? cbDstBufNeeded : cbDstBuf );
|
|
}
|
|
|
|
// do the conversion
|
|
sc = xDataConvert->DataConvert( dbtypeSrc,
|
|
dbtypeDst,
|
|
cbSrcSize,
|
|
&rcbDstLength,
|
|
pbSrcBuf,
|
|
pbDest ? (void*)&pbDest : pbDstBuf,
|
|
cbDstBufNeeded,
|
|
DstStatus,
|
|
&DstStatus,
|
|
bPrecision,
|
|
bScale,
|
|
DBDATACONVERT_DEFAULT);
|
|
|
|
if ( sc != S_OK )
|
|
{
|
|
tbDebugOut(( DEB_ITRACE,
|
|
"OLEDBConvert - DataConvert returned error 0x%x\n",
|
|
sc ));
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
// if memory was allocated, put that ptr in pbDstBuf
|
|
if ( pbDest )
|
|
{
|
|
*((BYTE**)(pbDstBuf)) = pbDest;
|
|
}
|
|
|
|
return DstStatus;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Method: COLEDBVariant::GetDstLength, public.
|
|
//
|
|
// Synopsis: Returns the length required after the conversion without
|
|
// actually doing the conversion.
|
|
//
|
|
// History: 10-12-98 DanLeg Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::GetDstLength(
|
|
XInterface<IDataConvert>& xDataConvert,
|
|
DBTYPE dbtypeDst,
|
|
DBLENGTH & rcbDstLen )
|
|
{
|
|
SCODE sc = S_OK;
|
|
DBTYPE dbtypeSrc;
|
|
DBSTATUS DstStatus = DBSTATUS_S_OK;
|
|
|
|
sc = _GetOLEDBType( vt, dbtypeSrc );
|
|
|
|
if ( S_OK == sc )
|
|
{
|
|
if ( xDataConvert.IsNull( ) )
|
|
{
|
|
if ( !_GetIDataConvert( xDataConvert ) )
|
|
sc = S_FALSE;
|
|
}
|
|
|
|
if ( S_OK == sc )
|
|
{
|
|
void * pbSrcBuf = _GetDataPointer();
|
|
sc = xDataConvert->GetConversionSize( dbtypeSrc,
|
|
dbtypeDst,
|
|
0,
|
|
&rcbDstLen,
|
|
pbSrcBuf );
|
|
}
|
|
}
|
|
|
|
if ( S_OK != sc )
|
|
{
|
|
tbDebugOut(( DEB_ITRACE,
|
|
"OLEDBConvert - GetConversionSize returned error 0x%x\n",
|
|
sc ));
|
|
DstStatus = DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
return DstStatus;
|
|
}
|
|
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Method: COLEDBVariant::_GetOLEDBType, private.
|
|
//
|
|
// Synopsis: Returns the OLEDB type equivalent of Variant type.
|
|
//
|
|
// Arguments: [vt] -- the source varaint type.
|
|
// [dbtype] -- the equivalent oledb type.
|
|
//
|
|
// Returns: S_OK if equivalent OLE DB type exists,
|
|
// else S_FALSE.
|
|
//
|
|
// Notes: Does not handle vectors
|
|
//
|
|
// History: 09 Jan 1998 VikasMan Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
inline SCODE COLEDBVariant::_GetOLEDBType( VARTYPE vt, DBTYPE& dbtype ) const
|
|
{
|
|
SCODE sc = S_OK;
|
|
|
|
switch ( vt & ~VT_BYREF )
|
|
{
|
|
case VT_I1:
|
|
case VT_UI1:
|
|
case VT_I2:
|
|
case VT_UI2:
|
|
case VT_I4:
|
|
case VT_UI4:
|
|
case VT_I8:
|
|
case VT_UI8:
|
|
case VT_R4:
|
|
case VT_R8:
|
|
case VT_CY:
|
|
case VT_DATE:
|
|
case VT_BSTR:
|
|
case VT_FILETIME: // WORKAROUND: Waiting on OLE DB Conv lib to handle this case - 01.12.98
|
|
case VT_BOOL:
|
|
case VT_ERROR:
|
|
case VT_CLSID:
|
|
case VT_VARIANT:
|
|
case VT_DECIMAL:
|
|
|
|
case VT_VECTOR | VT_I1:
|
|
case VT_VECTOR | VT_UI1:
|
|
case VT_VECTOR | VT_I2:
|
|
case VT_VECTOR | VT_UI2:
|
|
case VT_VECTOR | VT_I4:
|
|
case VT_VECTOR | VT_UI4:
|
|
case VT_VECTOR | VT_I8:
|
|
case VT_VECTOR | VT_UI8:
|
|
case VT_VECTOR | VT_R4:
|
|
case VT_VECTOR | VT_R8:
|
|
case VT_VECTOR | VT_CY:
|
|
case VT_VECTOR | VT_DATE:
|
|
case VT_VECTOR | VT_BSTR:
|
|
case VT_VECTOR | VT_FILETIME: // WORKAROUND: Waiting on OLE DB Conv lib to handle this case - 01.12.98
|
|
case VT_VECTOR | VT_BOOL:
|
|
case VT_VECTOR | VT_ERROR:
|
|
case VT_VECTOR | VT_CLSID:
|
|
case VT_VECTOR | VT_VARIANT:
|
|
|
|
case VT_ARRAY | VT_I1:
|
|
case VT_ARRAY | VT_UI1:
|
|
case VT_ARRAY | VT_I2:
|
|
case VT_ARRAY | VT_UI2:
|
|
case VT_ARRAY | VT_I4:
|
|
case VT_ARRAY | VT_UI4:
|
|
case VT_ARRAY | VT_I8:
|
|
case VT_ARRAY | VT_UI8:
|
|
case VT_ARRAY | VT_R4:
|
|
case VT_ARRAY | VT_R8:
|
|
case VT_ARRAY | VT_CY:
|
|
case VT_ARRAY | VT_DATE:
|
|
case VT_ARRAY | VT_BSTR:
|
|
case VT_ARRAY | VT_BOOL:
|
|
case VT_ARRAY | VT_VARIANT:
|
|
case VT_ARRAY | VT_DECIMAL:
|
|
|
|
// In all the above cases, the DBTYPE has same value as
|
|
// VARIANT type
|
|
case DBTYPE_NUMERIC:
|
|
case DBTYPE_DBDATE:
|
|
case DBTYPE_DBTIME:
|
|
case DBTYPE_DBTIMESTAMP:
|
|
case DBTYPE_HCHAPTER:
|
|
case DBTYPE_BYTES:
|
|
case DBTYPE_VARNUMERIC:
|
|
// The above are OLEDB types only. So no conversion needed.
|
|
dbtype = vt;
|
|
break;
|
|
|
|
case VT_LPSTR:
|
|
case DBTYPE_STR:
|
|
dbtype = DBTYPE_STR;
|
|
break;
|
|
|
|
case VT_LPWSTR:
|
|
case DBTYPE_WSTR:
|
|
dbtype = DBTYPE_WSTR;
|
|
break;
|
|
|
|
case VT_BLOB:
|
|
dbtype = VT_VECTOR | VT_UI1;
|
|
break;
|
|
|
|
case VT_INT:
|
|
dbtype = VT_I4;
|
|
break;
|
|
|
|
case VT_UINT:
|
|
dbtype = VT_UI4;
|
|
break;
|
|
|
|
case VT_ARRAY | VT_INT:
|
|
dbtype = VT_ARRAY | VT_I4;
|
|
break;
|
|
|
|
case VT_ARRAY | VT_UINT:
|
|
dbtype = VT_ARRAY | VT_UI4;
|
|
break;
|
|
|
|
// SPECDEVIATION: What about VT_CF ??? (handled partially in base class)
|
|
|
|
default:
|
|
// default case: all types for which there is no equivalent
|
|
// OLE DB type - VT_CF, VT_BLOBOBJECT,
|
|
// VT_STREAM, VT_STREAMED_OBJECT, VT_STORAGE, VT_STORED_OBJECT,
|
|
// VT_DISPATCH, VT_UNKNOWN,
|
|
sc = S_FALSE;
|
|
break;
|
|
}
|
|
return sc;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_GetDataPointer, private
|
|
//
|
|
// Synopsis: Depending on the type of vt, returns the data pointer
|
|
//
|
|
// Arguments: -none-
|
|
//
|
|
// Returns: Returns the pointer to data in the PropVariant
|
|
//
|
|
// History: 09 Jan 1998 VikasMan Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
inline void* COLEDBVariant::_GetDataPointer() const
|
|
{
|
|
if (vt & VT_VECTOR)
|
|
return (void*)&cal;
|
|
|
|
if (vt & VT_ARRAY)
|
|
return (void*) parray;
|
|
|
|
void* pDataPtr = 0;
|
|
|
|
switch ( vt )
|
|
{
|
|
case VT_LPSTR:
|
|
case VT_LPWSTR:
|
|
case VT_CLSID:
|
|
case VT_CF:
|
|
// all pointer values
|
|
pDataPtr = (void*) pszVal;
|
|
break;
|
|
|
|
case VT_BSTR:
|
|
// need address of bstr ptr
|
|
pDataPtr = (void*) &bstrVal;
|
|
break;
|
|
|
|
case VT_BLOB:
|
|
case VT_BLOB_OBJECT:
|
|
pDataPtr = (void*) &blob;
|
|
break;
|
|
|
|
case VT_DECIMAL:
|
|
pDataPtr = (void*) this;
|
|
break;
|
|
|
|
// cases which we do not handle
|
|
case VT_EMPTY:
|
|
case VT_NULL:
|
|
case VT_ILLEGAL:
|
|
case VT_STREAM:
|
|
case VT_STREAMED_OBJECT:
|
|
case VT_STORAGE:
|
|
case VT_STORED_OBJECT:
|
|
case VT_DISPATCH:
|
|
case VT_VARIANT:
|
|
case VT_UNKNOWN:
|
|
case VT_VOID:
|
|
pDataPtr = 0;
|
|
break;
|
|
|
|
// Rest of the stuff
|
|
default:
|
|
pDataPtr = (void*) &bVal;
|
|
break;
|
|
}
|
|
|
|
return pDataPtr;
|
|
}
|
|
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_CopyToOAVariant, private
|
|
//
|
|
// Synopsis: Copy table data between a table variant structure and
|
|
// an Ole automation variant. Automation variants have a
|
|
// restricted set of usable types and vectors must be converted
|
|
// to safearrays.
|
|
//
|
|
// Arguments: [pDest] -- pointer to destination variant
|
|
// [rPool] -- pool to use for destination buffers
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// History: 09 Jan 1998 VikasMan Created
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_CopyToOAVariant( VARIANT * pDest,
|
|
PVarAllocator & rPool) const
|
|
{
|
|
DBSTATUS DstStatus = DBSTATUS_S_OK;
|
|
|
|
switch (vt)
|
|
{
|
|
case VT_LPSTR:
|
|
case VT_LPWSTR:
|
|
{
|
|
DBLENGTH ulTemp;
|
|
pDest->vt = VT_BSTR;
|
|
DstStatus = _StoreString( (BYTE *)&(pDest->bstrVal),
|
|
sizeof (BSTR),
|
|
VT_BSTR,
|
|
ulTemp,
|
|
rPool);
|
|
break;
|
|
}
|
|
|
|
case VT_I8:
|
|
case VT_UI8:
|
|
DstStatus = _StoreDecimal( &(pDest->decVal) );
|
|
pDest->vt = VT_DECIMAL;
|
|
break;
|
|
|
|
case VT_I1:
|
|
DstStatus = _StoreIntegerSignedToUnSigned( VT_UI1, &(pDest->bVal) );
|
|
pDest->vt = VT_UI1;
|
|
break;
|
|
|
|
case VT_UI2:
|
|
if (uiVal <= SHRT_MAX)
|
|
{
|
|
DstStatus = _StoreIntegerUnSignedToSigned( VT_I2, (BYTE*)&(pDest->iVal) );
|
|
pDest->vt = VT_I2;
|
|
}
|
|
else
|
|
{
|
|
DstStatus = _StoreIntegerUnSignedToSigned( VT_I4, (BYTE*)&(pDest->lVal) );
|
|
pDest->vt = VT_I4;
|
|
}
|
|
break;
|
|
|
|
case VT_UI4:
|
|
if (ulVal <= LONG_MAX)
|
|
{
|
|
DstStatus = _StoreIntegerUnSignedToSigned( VT_I4, (BYTE*)&(pDest->lVal) );
|
|
pDest->vt = VT_I4;
|
|
}
|
|
else
|
|
{
|
|
DstStatus = _StoreDecimal( &(pDest->decVal) );
|
|
pDest->vt = VT_DECIMAL;
|
|
}
|
|
break;
|
|
|
|
case VT_FILETIME:
|
|
DstStatus = _StoreDate( (BYTE*)&(pDest->date),
|
|
sizeof pDest->date,
|
|
VT_DATE );
|
|
pDest->vt = VT_DATE;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_I2):
|
|
case (VT_VECTOR | VT_I4):
|
|
case (VT_VECTOR | VT_R4):
|
|
case (VT_VECTOR | VT_R8):
|
|
case (VT_VECTOR | VT_CY):
|
|
case (VT_VECTOR | VT_DATE):
|
|
case (VT_VECTOR | VT_ERROR):
|
|
case (VT_VECTOR | VT_BOOL):
|
|
case (VT_VECTOR | VT_UI1):
|
|
case (VT_VECTOR | VT_DECIMAL):
|
|
Win4Assert( IsSimpleOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreSimpleTypeArray( &(pDest->parray));
|
|
pDest->vt = (vt & VT_TYPEMASK) | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_UI4): // could step thru to see if I4 is big enough
|
|
case (VT_VECTOR | VT_I8):
|
|
case (VT_VECTOR | VT_UI8):
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreDecimalArray( &(pDest->parray));
|
|
pDest->vt = VT_DECIMAL | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_UI2): // could step thru to detect if I2 is big enough
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreIntegerArray( VT_I4, &(pDest->parray));
|
|
pDest->vt = VT_I4 | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_I1): // should step thru to detect if UI1 is big enough
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreIntegerArray( VT_UI1, &(pDest->parray));
|
|
pDest->vt = VT_UI1 | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_LPSTR): // byref/vector mutually exclusive
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreLPSTRArray( &(pDest->parray), rPool );
|
|
pDest->vt = VT_BSTR | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_LPWSTR):
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreLPWSTRArray( &(pDest->parray), rPool );
|
|
pDest->vt = VT_BSTR | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_BSTR):
|
|
Win4Assert( IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreBSTRArray( &(pDest->parray), rPool );
|
|
pDest->vt = VT_BSTR | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_VARIANT):
|
|
Win4Assert( IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreVariantArray( &(pDest->parray), rPool );
|
|
pDest->vt = VT_VARIANT | VT_ARRAY;
|
|
break;
|
|
|
|
case (VT_VECTOR | VT_FILETIME):
|
|
Win4Assert( !IsOAType(vt & VT_TYPEMASK));
|
|
Win4Assert( CanBeVectorType(vt & VT_TYPEMASK));
|
|
DstStatus = _StoreDateArray( &(pDest->parray) );
|
|
pDest->vt = VT_DATE | VT_ARRAY;
|
|
break;
|
|
|
|
case VT_ARRAY | VT_I1:
|
|
case VT_ARRAY | VT_UI1:
|
|
case VT_ARRAY | VT_I2:
|
|
case VT_ARRAY | VT_UI2:
|
|
case VT_ARRAY | VT_I4:
|
|
case VT_ARRAY | VT_INT:
|
|
case VT_ARRAY | VT_UI4:
|
|
case VT_ARRAY | VT_UINT:
|
|
case VT_ARRAY | VT_ERROR:
|
|
case VT_ARRAY | VT_I8:
|
|
case VT_ARRAY | VT_UI8:
|
|
case VT_ARRAY | VT_R4:
|
|
case VT_ARRAY | VT_R8:
|
|
case VT_ARRAY | VT_CY:
|
|
case VT_ARRAY | VT_DATE:
|
|
case VT_ARRAY | VT_BSTR:
|
|
case VT_ARRAY | VT_BOOL:
|
|
case VT_ARRAY | VT_VARIANT:
|
|
case VT_ARRAY | VT_DECIMAL:
|
|
{
|
|
SAFEARRAY * psa = 0;
|
|
SCODE sc = SafeArrayCopy( parray, &psa );
|
|
Win4Assert( E_INVALIDARG != sc );
|
|
Win4Assert( E_OUTOFMEMORY == sc || psa != 0 );
|
|
if (S_OK != sc)
|
|
{
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
}
|
|
else
|
|
{
|
|
pDest->vt = vt;
|
|
pDest->parray = psa;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case VT_CLSID: // no equivalent in OA variant
|
|
case VT_CF: // no equivalent in OA variant
|
|
default:
|
|
Win4Assert( !(VT_ARRAY & vt) ); // should be handled elsewhere
|
|
Win4Assert( !IsOAType(vt) ); // should be handled elsewhere
|
|
Win4Assert(CanBeVectorType(vt & VT_TYPEMASK) || !(VT_VECTOR & vt));
|
|
tbDebugOut(( DEB_WARN, "COLEDBVariant::CopyToOAVariant - bad variant type %d \n", vt ));
|
|
|
|
DstStatus = DBSTATUS_E_CANTCONVERTVALUE;
|
|
}
|
|
|
|
if ( !StatusSuccess(DstStatus) ||
|
|
(DBSTATUS_S_ISNULL == DstStatus && pDest->vt != VT_NULL) )
|
|
pDest->vt = VT_EMPTY;
|
|
|
|
return DstStatus;
|
|
}
|
|
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreSimpleTypeArray, private
|
|
//
|
|
// Synopsis: Copy vector of simple OA types to safearray of same type
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: None of the simple types require memory allocation.
|
|
// Throws if safearray itself cannot be alloc'd
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreSimpleTypeArray(SAFEARRAY ** pbDstBuf) const
|
|
{
|
|
if ( 0 == caul.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY *sa = SafeArrayCreateVector(vt & VT_TYPEMASK, 0, caul.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
XSafeArray xsa(sa);
|
|
|
|
USHORT cbSize, cbAlign, rgFlags;
|
|
VartypeInfo(vt & VT_TYPEMASK, cbSize, cbAlign, rgFlags);
|
|
BYTE * pBase = (BYTE *)&(caul.pElems[0]);
|
|
for (LONG lElem = 0; lElem < (LONG)(caul.cElems); lElem++)
|
|
{
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, pBase + (cbSize * lElem));
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
|
|
*pbDstBuf = xsa.Acquire();
|
|
|
|
return DBSTATUS_S_OK;
|
|
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreDecimalArray, private
|
|
//
|
|
// Synopsis: Copy vector to decimal safearray
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be VT_UI4|VT_VECTOR,
|
|
// VT_I8|VT_VECTOR, or VT_UI8|VT_VECTOR.
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreDecimalArray( SAFEARRAY ** pbDstBuf ) const
|
|
{
|
|
if ( 0 == caul.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
DBSTATUS dbStatus = DBSTATUS_S_OK; // status of last conversion
|
|
DBSTATUS dbStatusRet = DBSTATUS_S_OK; // error code of last conversion,
|
|
// or if no errors, DBSTATUS_S code
|
|
// of last item with any trouble converting.
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_DECIMAL, 0, caul.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)caul.cElems && StatusSuccess(dbStatus); lElem++)
|
|
{
|
|
DECIMAL dec;
|
|
dbStatus = _StoreDecimal( &dec, lElem);
|
|
if (DBSTATUS_S_OK != dbStatus)
|
|
dbStatusRet = dbStatus; // save last non-zero status
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, &dec);
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
if (StatusSuccess(dbStatus))
|
|
{
|
|
*pbDstBuf = xsa.Acquire();
|
|
}
|
|
return dbStatusRet;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreIntegerArray, private
|
|
//
|
|
// Synopsis: Copy vector of integers to safearray of integers
|
|
//
|
|
// Arguments: [vtDst] -- destination safearray type
|
|
// [pbDstBuf] -- destination buffer
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be an int type | VT_VECTOR.
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
DBSTATUS COLEDBVariant::_StoreIntegerArray(VARTYPE vtDst,
|
|
SAFEARRAY ** pbDstBuf) const
|
|
{
|
|
if ( 0 == caul.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
DBSTATUS dbStatus = DBSTATUS_S_OK;
|
|
DBSTATUS dbStatusRet = DBSTATUS_S_OK; // error code of last conversion,
|
|
// or if no errors, DBSTATUS_S code
|
|
// of last item with any trouble converting.
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(vtDst, 0, caul.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)caul.cElems && StatusSuccess(dbStatus); lElem++)
|
|
{
|
|
LONGLONG iInt; // size of longest int - to use as buffer
|
|
dbStatus = _StoreInteger( vtDst, (BYTE *)&iInt, lElem);
|
|
if (DBSTATUS_S_OK != dbStatus)
|
|
dbStatusRet = dbStatus; // save last non-zero status
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, &iInt);
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
if (StatusSuccess(dbStatus))
|
|
{
|
|
*pbDstBuf = xsa.Acquire();
|
|
}
|
|
return dbStatusRet;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreLPSTRArray, private
|
|
//
|
|
// Synopsis: Copy LPSTR vector to safearray
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
// [rPool] -- pool to use for destination buffers
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreLPSTRArray(
|
|
SAFEARRAY ** pbDstBuf,
|
|
PVarAllocator & rPool) const
|
|
{
|
|
if ( 0 == calpstr.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
DBSTATUS dbStatus = DBSTATUS_S_OK;
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_BSTR, 0, calpstr.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)(calpstr).cElems && StatusSuccess(dbStatus); lElem++)
|
|
{
|
|
int cwc = MultiByteToWideChar(ulCoercionCodePage,0,
|
|
calpstr.pElems[lElem],-1,0,0);
|
|
if (0 == cwc)
|
|
{
|
|
dbStatus = DBSTATUS_E_CANTCONVERTVALUE; // something odd...
|
|
}
|
|
else
|
|
{
|
|
XArray<WCHAR> wcsDest( cwc );
|
|
MultiByteToWideChar(ulCoercionCodePage, 0,
|
|
calpstr.pElems[lElem], -1, wcsDest.Get(), cwc);
|
|
|
|
BSTR bstrDest = (BSTR) rPool.CopyBSTR((cwc-1)*sizeof (OLECHAR),
|
|
wcsDest.Get());
|
|
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, (void *)rPool.PointerToOffset(bstrDest));
|
|
rPool.FreeBSTR(bstrDest);
|
|
|
|
if (E_OUTOFMEMORY == sc)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
}
|
|
|
|
if (StatusSuccess(dbStatus))
|
|
{
|
|
*pbDstBuf = xsa.Acquire();
|
|
}
|
|
|
|
|
|
return dbStatus;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreLPWSTRArray, private
|
|
//
|
|
// Synopsis: Copy LPWSTR vector to safearray
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
// [rPool] -- pool to use for destination buffers
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreLPWSTRArray(
|
|
SAFEARRAY ** pbDstBuf,
|
|
PVarAllocator & rPool) const
|
|
{
|
|
if ( 0 == calpwstr.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_BSTR, 0, calpwstr.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)(calpwstr.cElems); lElem++)
|
|
{
|
|
BSTR bstrDest = (BSTR) rPool.CopyBSTR( wcslen(calpwstr.pElems[lElem]) * sizeof(WCHAR),
|
|
calpwstr.pElems[lElem] );
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, (void *)rPool.PointerToOffset(bstrDest));
|
|
rPool.FreeBSTR(bstrDest);
|
|
|
|
if (E_OUTOFMEMORY == sc)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
|
|
*pbDstBuf = xsa.Acquire();
|
|
return DBSTATUS_S_OK;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreBSTRArray, private
|
|
//
|
|
// Synopsis: Copy BSTR vector to safearray
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
// [rPool] -- pool to use for destination buffers
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be VT_BSTR | VT_VECTOR.
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreBSTRArray(
|
|
SAFEARRAY ** pbDstBuf,
|
|
PVarAllocator & rPool) const
|
|
{
|
|
if ( 0 == cabstr.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_BSTR, 0, cabstr.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)cabstr.cElems; lElem++)
|
|
{
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, cabstr.pElems[lElem]);
|
|
if (E_OUTOFMEMORY == sc)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
|
|
*pbDstBuf = xsa.Acquire();
|
|
|
|
return DBSTATUS_S_OK;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreVariantArray, private
|
|
//
|
|
// Synopsis: Copy variant vector to safearray
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
// [rPool] -- pool to use for destination buffers
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be VT_VARIANT | VT_VECTOR.
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreVariantArray(
|
|
SAFEARRAY ** pbDstBuf,
|
|
PVarAllocator & rPool) const
|
|
{
|
|
if ( 0 == capropvar.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
DBSTATUS dbStatus = DBSTATUS_S_OK;
|
|
DBSTATUS dbStatusRet = DBSTATUS_S_OK; // error code of last conversion,
|
|
// or if no errors, DBSTATUS_S code
|
|
// of last item with any trouble converting.
|
|
|
|
Win4Assert(vt == (VT_VECTOR | VT_VARIANT));
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_VARIANT, 0, capropvar.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
XSafeArray xsa(sa);
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)(capropvar.cElems) && StatusSuccess(dbStatus); lElem++)
|
|
{
|
|
COLEDBVariant tblVariant;
|
|
if (IsOAType(capropvar.pElems[lElem].vt))
|
|
{
|
|
((CTableVariant &)capropvar.pElems[lElem]).Copy(&tblVariant,
|
|
rPool,
|
|
(USHORT)((CTableVariant &)capropvar.pElems[lElem]).VarDataSize(),
|
|
0);
|
|
}
|
|
else // convert variant to an OA type
|
|
{
|
|
dbStatus = ((COLEDBVariant &)capropvar.pElems[lElem])._CopyToOAVariant( (VARIANT *)&tblVariant, rPool);
|
|
if (DBSTATUS_S_OK != dbStatus)
|
|
dbStatusRet = dbStatus; // save last non-zero status
|
|
|
|
}
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, (PROPVARIANT *)&tblVariant);
|
|
if (E_OUTOFMEMORY == sc)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
|
|
*pbDstBuf = xsa.Acquire();
|
|
return dbStatusRet;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreDateArray, private
|
|
//
|
|
// Synopsis: Copy date vector to safearray of dates
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be VT_DATE | VT_VECTOR.
|
|
//
|
|
// History: 09 Apr 1997 EmilyB Created
|
|
// 09 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreDateArray(SAFEARRAY ** pbDstBuf) const
|
|
{
|
|
if ( 0 == caul.cElems )
|
|
return DBSTATUS_S_ISNULL;
|
|
|
|
DBSTATUS dbStatus = DBSTATUS_S_OK;
|
|
DBSTATUS dbStatusRet = DBSTATUS_S_OK; // error code of last conversion,
|
|
// or if no errors, DBSTATUS_S code
|
|
// of last item with any trouble converting.
|
|
|
|
// CLEANCODE - add to PVarAllocator?
|
|
SAFEARRAY * sa = SafeArrayCreateVector(VT_DATE, 0, caul.cElems);
|
|
if (0 == sa)
|
|
THROW(CException(E_OUTOFMEMORY));
|
|
XSafeArray xsa(sa);
|
|
|
|
|
|
for (LONG lElem = 0; lElem < (LONG)(caul.cElems) && StatusSuccess(dbStatus); lElem++)
|
|
{
|
|
DATE date;
|
|
dbStatus = _StoreDate( (BYTE *)&date, sizeof(date), VT_DATE, lElem);
|
|
if (DBSTATUS_S_OK != dbStatus)
|
|
dbStatusRet = dbStatus; // save last non-zero status
|
|
|
|
SCODE sc = SafeArrayPutElement(xsa.Get(), &lElem, &date);
|
|
Win4Assert ( SUCCEEDED(sc) );
|
|
}
|
|
if (StatusSuccess(dbStatus))
|
|
{
|
|
*pbDstBuf = xsa.Acquire();
|
|
}
|
|
return dbStatusRet;
|
|
}
|
|
|
|
//+-------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_StoreDate, private
|
|
//
|
|
// Synopsis: Copy variant date/time data, coerce if possible
|
|
//
|
|
// Arguments: [pbDstBuf] -- destination buffer
|
|
// [cbDstBuf] -- size of destination buffer
|
|
// [vtDst] -- data type of the dest
|
|
// [lElem] -- element of vector to convert
|
|
//
|
|
// Returns: status for copy
|
|
//
|
|
// Notes: Expects the 'this' data type to be either VT_FILETIME or
|
|
// VT_DATE. Expects the vtDst to be VT_FILETIME, VT_DATE,
|
|
// DBTYPE_DBDATE, DBTYPE_DBTIME or DBTYPE_DBTIMESTAMP.
|
|
//
|
|
// History: 31 Jan 1997 AlanW Created
|
|
// 13 Jan 1998 VikasMan Moved from CTableVariant class
|
|
// to here
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
DBSTATUS COLEDBVariant::_StoreDate(
|
|
BYTE * pbDstBuf,
|
|
DBLENGTH cbDstBuf,
|
|
VARTYPE vtDst,
|
|
LONG lElem) const
|
|
{
|
|
DBSTATUS DstStatus = DBSTATUS_S_OK;
|
|
SYSTEMTIME stUTC;
|
|
|
|
//
|
|
// Convert the input date into a common form: GMT SYSTEMTIME.
|
|
//
|
|
if (VT_DATE == vt)
|
|
{
|
|
if (! VariantTimeToSystemTime(date, &stUTC) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
}
|
|
else if ((VT_DATE|VT_VECTOR)== vt)
|
|
{
|
|
if (! VariantTimeToSystemTime(cadate.pElems[lElem], &stUTC) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
}
|
|
else if (VT_FILETIME == vt)
|
|
{
|
|
// do not do local time conversion
|
|
if (! FileTimeToSystemTime((LPFILETIME) &hVal.QuadPart, &stUTC) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
}
|
|
else if ((VT_FILETIME|VT_VECTOR) == vt)
|
|
{
|
|
// do not do local time conversion
|
|
if (! FileTimeToSystemTime(&cafiletime.pElems[lElem], &stUTC) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
}
|
|
else
|
|
return DBSTATUS_E_CANTCONVERTVALUE;
|
|
|
|
switch (vtDst)
|
|
{
|
|
case VT_DATE:
|
|
DATE dosDate;
|
|
if (! SystemTimeToVariantTime(&stUTC, &dosDate) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
|
|
Win4Assert( cbDstBuf >= sizeof DATE );
|
|
RtlCopyMemory(pbDstBuf, &dosDate, sizeof DATE);
|
|
break;
|
|
|
|
case VT_FILETIME:
|
|
FILETIME ftUTC;
|
|
if (! SystemTimeToFileTime(&stUTC, &ftUTC) )
|
|
return DBSTATUS_E_DATAOVERFLOW;
|
|
|
|
Win4Assert( cbDstBuf >= sizeof FILETIME );
|
|
RtlCopyMemory(pbDstBuf, &ftUTC, sizeof FILETIME);
|
|
break;
|
|
|
|
case DBTYPE_DBTIMESTAMP:
|
|
{
|
|
// does not use local time
|
|
DBTIMESTAMP dbUTC;
|
|
dbUTC.year = stUTC.wYear;
|
|
dbUTC.month = stUTC.wMonth;
|
|
dbUTC.day = stUTC.wDay;
|
|
dbUTC.hour = stUTC.wHour;
|
|
dbUTC.minute = stUTC.wMinute;
|
|
dbUTC.second = stUTC.wSecond;
|
|
dbUTC.fraction = stUTC.wMilliseconds * 1000000;
|
|
|
|
Win4Assert( cbDstBuf >= sizeof dbUTC );
|
|
RtlCopyMemory(pbDstBuf, &dbUTC, sizeof dbUTC);
|
|
}
|
|
break;
|
|
|
|
case DBTYPE_DBDATE:
|
|
{
|
|
DBDATE dbUTC;
|
|
dbUTC.year = stUTC.wYear;
|
|
dbUTC.month = stUTC.wMonth;
|
|
dbUTC.day = stUTC.wDay;
|
|
|
|
Win4Assert( cbDstBuf >= sizeof dbUTC );
|
|
RtlCopyMemory(pbDstBuf, &dbUTC, sizeof dbUTC);
|
|
}
|
|
break;
|
|
|
|
case DBTYPE_DBTIME:
|
|
{
|
|
DBTIME dbUTC;
|
|
dbUTC.hour = stUTC.wHour;
|
|
dbUTC.minute = stUTC.wMinute;
|
|
dbUTC.second = stUTC.wSecond;
|
|
|
|
Win4Assert( cbDstBuf >= sizeof dbUTC );
|
|
RtlCopyMemory(pbDstBuf, &dbUTC, sizeof dbUTC);
|
|
}
|
|
break;
|
|
|
|
default:
|
|
DstStatus = DBSTATUS_E_CANTCONVERTVALUE;
|
|
tbDebugOut(( DEB_WARN,
|
|
"_StoreDate - Unexpected dest storage type %4x\n",
|
|
vtDst));
|
|
break;
|
|
}
|
|
|
|
return DstStatus;
|
|
} //_StoreDate
|
|
|
|
//+---------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::CanConvertType, static public
|
|
//
|
|
// Synopsis: Indicate whether a type conversion is valid. Uses the OLEDB
|
|
// Data Conversion Library.
|
|
//
|
|
// Arguments: [wFromType] -- source type
|
|
// [wToType] -- destination type
|
|
// [xDataConvert] -- OLEDB IDataConvert interface pointer
|
|
//
|
|
// Returns: TRUE if the conversion is available, FALSE otherwise.
|
|
//
|
|
// History: 13 Jan 98 VikasMan Created
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
BOOL COLEDBVariant::CanConvertType(
|
|
DBTYPE wFromType,
|
|
DBTYPE wToType,
|
|
XInterface<IDataConvert>& xDataConvert)
|
|
{
|
|
if ( xDataConvert.IsNull( ) )
|
|
{
|
|
// use COLEDBVariant's helper function to get the IDataConvert ptr
|
|
if ( !_GetIDataConvert( xDataConvert ) )
|
|
{
|
|
// bail out
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
SCODE sc = xDataConvert->CanConvert( wFromType, wToType );
|
|
if ( sc != S_OK && sc != S_FALSE )
|
|
{
|
|
QUIETTHROW(CException(sc)); // bad type
|
|
}
|
|
|
|
return ( sc == S_OK );
|
|
}
|
|
|
|
|
|
//+---------------------------------------------------------------------------
|
|
//
|
|
// Member: COLEDBVariant::_GetIDataConvert, static private
|
|
//
|
|
// Synopsis: Gets the IDataConvert interface
|
|
//
|
|
// Arguments: [xDataConvert] -- OLEDB IDataConvert interface pointer
|
|
//
|
|
// Returns: TRUE if the successful, else FALSE
|
|
//
|
|
// Notes: Make sure thet xDataConvert is null before calling this func.
|
|
//
|
|
// History: 13 Jan 98 VikasMan Created
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
inline
|
|
BOOL COLEDBVariant::_GetIDataConvert( XInterface<IDataConvert>& xDataConvert )
|
|
{
|
|
Win4Assert( xDataConvert.IsNull( ) );
|
|
|
|
SCODE sc = CoCreateInstance( CLSID_OLEDB_CONVERSIONLIBRARY,
|
|
NULL,
|
|
CLSCTX_SERVER,
|
|
IID_IDataConvert,
|
|
xDataConvert.GetQIPointer( ) );
|
|
|
|
if ( FAILED(sc) )
|
|
{
|
|
// for some reason we could not get the IDataConvert interface
|
|
tbDebugOut(( DEB_ERROR,
|
|
"_GetIDataConvert - Couldn't get IDataConvert interface %x\n", sc ));
|
|
return FALSE;
|
|
}
|
|
|
|
// Set the OLEDB ver to 2.00
|
|
|
|
XInterface<IDCInfo> xIDCInfo;
|
|
DCINFO rgInfo[] = {{DCINFOTYPE_VERSION, {VT_UI4, 0, 0, 0, 0x0200}}};
|
|
|
|
sc = xDataConvert->QueryInterface( IID_IDCInfo, xIDCInfo.GetQIPointer( ) );
|
|
if ( SUCCEEDED(sc) )
|
|
{
|
|
sc = xIDCInfo->SetInfo( NUMELEM(rgInfo), rgInfo );
|
|
}
|
|
|
|
if ( FAILED(sc) )
|
|
{
|
|
tbDebugOut(( DEB_ERROR,
|
|
"_GetIDataConvert - Can't set OLEDB ver to 2.0. Error: 0x%x\n",
|
|
sc));
|
|
Win4Assert( ! "Failed to set OLEDB conversion library version!" );
|
|
xDataConvert.Free();
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|