예제 #1
0
ArrayOfValues_Ptr GetNotBLOBValues( I_Table_Ptr inTable )
{
	FBL_CHECK( inTable );
	ArrayOfValues_Ptr result;

	vuint16 fldCount = inTable->get_FieldCount();
	if( fldCount )
		result = new ArrayOfValues();

	for( vuint16 i = 1; i <= fldCount; ++i )
	{
		I_Field_Ptr	pField = inTable->get_Field( i );
		I_Value_Ptr pValue;

		switch( pField->get_Type() )
		{
			case kTypeBLOB:
			case kTypePicture: 
			{
				;
			} break;

			default: 
			{
				// IS: 25.02.2008
				// http://valentina-db.com/bt/view.php?id=3048
				//pValue = pField->get_Value(forAdd);
				pValue = fbl_const_cast( pField->get_Value() );
				FBL_CHECK(pValue);							

			} break;
		}
		
		result->AddItem( pValue );
	}

	return result;
}
예제 #2
0
FBL_End_Namespace


/**********************************************************************************************/
VSQL_Begin_Namespace


/**********************************************************************************************/
I_Table_Ptr CopyCursorToNewTable( 
	VSQL::I_Cursor_Ptr		inpSourceCursor,
	VSQL::I_SqlDatabase_Ptr	inpTargetDatabase,
	const String&			inNewTableName,
	EStorageType			inNewTableStorage,
	bool					inCopyRecords )
{
	if( inpSourceCursor == nullptr || inpTargetDatabase == nullptr )
		return nullptr;

	I_Database_Ptr pTargetDb = inpTargetDatabase->get_BaseDatabase();
	I_Table_Ptr pSourceTable = inpSourceCursor->get_Table();

	// Create table	
	I_Table_Ptr pTargetTable = pTargetDb->CreateTable( inNewTableName, kTblPermanent, inNewTableStorage );

	// create fields
	try
	{
		CloneFieldsLight( pSourceTable, pTargetTable );
	}
	catch(...)
	{
		// it could be "SELECT f1, f1 FROM t1" - in
		// this case we are throwing exceptions.
		//
		pTargetDb->DropTable( pTargetTable );
		throw;
	}

	if( inCopyRecords )
	{
		// Create records
		vuint32 recCount = pSourceTable->get_RecordCount();
		vuint16 fldCount = pTargetTable->get_FieldCount();


		// During reading the data we can meet corrupted fields,
		// we want ignore this corruptions and logging it.
		// So we ask table continue read even if it meet corruption in some field.
		pSourceTable->put_ForceRead( true );

		// for each record:
		pSourceTable->FirstRecord();			
		for( vuint32 k = 1; k <= recCount; ++k )
		{					
			pTargetTable->SetBlank();		
			Clone_Current_Record_Light( fldCount, pSourceTable, pTargetTable );			
			pTargetTable->AddRecord();		
			pSourceTable->NextRecord();		
		}				

		pSourceTable->put_ForceRead( false );
	}

	return pTargetTable;
}
예제 #3
0
void CloneFieldsLight( 
	I_Table_Ptr 		inpTableSource, 
	I_Table_Ptr 		inpTableTarget )
{
	// Light because of 
	// 1. inpTableSource assumed to be a cursor (no ObjectPtrs, RecID, OID).
	// 2. inpTableTarget will be just a "data-snapshot" of inpTableSource
	//    (most of the flags and some properties like method-text are ignored)
	// 

	vuint16 fldCount = inpTableSource->get_FieldCount();
	for( vuint16 i = 1; i <= fldCount; ++i )
	{
		I_Field_Ptr pSourceFld = inpTableSource->get_Field(i);

		// Flags
		vuint16 fldFlags = fNone;
		if( pSourceFld->get_Nullable() )
			fldFlags |= fNullable;

		// At least for now we will ignore any flag except nullable
		// because of who need to get indexed (especially indexBywords -
		// btw here is a problem - asking for that we create some default tmp
		// index) result.
		// But note that there are some fields for which some flags are always ON!
		// ( indexed for boolean for example)
/*
		if( pSourceFld->get_Indexed() )
			fldFlags |= fIndexed;
		if( pSourceFld->get_Unique() )
			fldFlags |= fIndexUnique;
		if( pSourceFld->get_IndexStyle() )
			fldFlags |= fIndexByWords;
		
*/
		// No sense to keep identity, because cursor's field keeps some particular values
		// and we have to store exactly that values
		//
		//if( pSourceFld->get_Identity() )
		//	fldFlags |= fIdentity;
		
		// Remove any method property. Because it could be the methods
		// which are based on fields which are not available in target table.
		// "SELECT f1+1 FROM t2"
		// So every field will be snapshot of original one.
		//
		//if( pSourceFld->get_IsMethod() )
		//	fldFlags |= fMethod;

		vuint32 fldType = pSourceFld->get_Type();
		// Could not be objectPtr, RecID, OID in the target table because it is impossible 
		// to have those field types in the cursor.
		FBL_CHECK( fldType != kTypeObjectPtr && fldType != kTypeRecID && fldType != kTypeOID );

		// Type and properties
		I_PropertyContainer_Ptr properties;
		// Properties
		properties = pSourceFld->get_Properties();
		if( pSourceFld->get_IsMethod() )
		{
			properties->Remove( "METHOD_TEXT" );
			properties->Remove( "METHOD_TREE" );
		}

		// In case of client-cursor field in vclient environment (no properties at all)
		// register max length property manually.
		if( properties == nullptr )
		{
			properties = new PropertyContainer();	
			properties->Add( new Prop_MaxLen( pSourceFld->get_MaxLength() ) );
		}
		

		// Create target field
		I_Field_Ptr pTargetFld = inpTableTarget->CreateField( 
			pSourceFld->get_Name(), 
			fldType, 
			fldFlags,														
			properties );
	}	
}