OGRErr OGRMSSQLSpatialTableLayer::CreateFeature( OGRFeature *poFeature )
{
GetLayerDefn();
if( NULL == poFeature )
{
CPLError( CE_Failure, CPLE_AppDefined,
"NULL pointer to OGRFeature passed to CreateFeature()." );
return OGRERR_FAILURE;
}
ClearStatement();
CPLODBCStatement oStatement( poDS->GetSession() );
/* the fid values are retieved from the source layer */
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
oStatement.Appendf("SET IDENTITY_INSERT [%s].[%s] ON;", pszSchemaName, pszTableName );
/* -------------------------------------------------------------------- */
/* Form the INSERT command. */
/* -------------------------------------------------------------------- */
oStatement.Appendf( "INSERT INTO [%s].[%s] (", pszSchemaName, pszTableName );
OGRMSSQLGeometryValidator oValidator(poFeature->GetGeometryRef());
OGRGeometry *poGeom = oValidator.GetValidGeometryRef();
if (poFeature->GetGeometryRef() != poGeom)
{
CPLError( CE_Warning, CPLE_NotSupported,
"Geometry with FID = %ld has been modified.", poFeature->GetFID() );
}
int bNeedComma = FALSE;
if (poGeom != NULL && pszGeomColumn != NULL)
{
oStatement.Append( pszGeomColumn );
bNeedComma = TRUE;
}
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
{
if (bNeedComma)
oStatement.Appendf( ", [%s]", pszFIDColumn );
else
{
oStatement.Appendf( "[%s]", pszFIDColumn );
bNeedComma = TRUE;
}
}
int nFieldCount = poFeatureDefn->GetFieldCount();
int i;
for( i = 0; i < nFieldCount; i++ )
{
if( !poFeature->IsFieldSet( i ) )
continue;
if (bNeedComma)
oStatement.Appendf( ", [%s]", poFeatureDefn->GetFieldDefn(i)->GetNameRef() );
else
{
oStatement.Appendf( "[%s]", poFeatureDefn->GetFieldDefn(i)->GetNameRef() );
bNeedComma = TRUE;
}
}
oStatement.Appendf( ") VALUES (" );
/* Set the geometry */
bNeedComma = FALSE;
if(poGeom != NULL && pszGeomColumn != NULL)
{
char *pszWKT = NULL;
//poGeom->setCoordinateDimension( nCoordDimension );
poGeom->exportToWkt( &pszWKT );
if( pszWKT != NULL && (nGeomColumnType == MSSQLCOLTYPE_GEOMETRY
|| nGeomColumnType == MSSQLCOLTYPE_GEOGRAPHY))
{
if (nGeomColumnType == MSSQLCOLTYPE_GEOGRAPHY)
{
oStatement.Append( "geography::STGeomFromText(" );
OGRMSSQLAppendEscaped(&oStatement, pszWKT);
oStatement.Appendf(",%d)", nSRSId );
}
else
{
oStatement.Append( "geometry::STGeomFromText(" );
OGRMSSQLAppendEscaped(&oStatement, pszWKT);
oStatement.Appendf(",%d).MakeValid()", nSRSId );
}
}
else
oStatement.Append( "null" );
bNeedComma = TRUE;
CPLFree(pszWKT);
}
/* Set the FID */
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
{
if (bNeedComma)
oStatement.Appendf( ", %ld", poFeature->GetFID() );
else
{
oStatement.Appendf( "%ld", poFeature->GetFID() );
bNeedComma = TRUE;
}
}
for( i = 0; i < nFieldCount; i++ )
{
if( !poFeature->IsFieldSet( i ) )
continue;
if (bNeedComma)
oStatement.Append( ", " );
else
bNeedComma = TRUE;
AppendFieldValue(&oStatement, poFeature, i);
}
oStatement.Append( ");" );
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
oStatement.Appendf("SET IDENTITY_INSERT [%s].[%s] OFF;", pszSchemaName, pszTableName );
/* -------------------------------------------------------------------- */
/* Execute the insert. */
/* -------------------------------------------------------------------- */
if( !oStatement.ExecuteSQL() )
{
CPLError( CE_Failure, CPLE_AppDefined,
"INSERT command for new feature failed. %s",
poDS->GetSession()->GetLastError() );
return OGRERR_FAILURE;
}
return OGRERR_NONE;
}
int main()
{
OGROCISession oSession;
if( !oSession.EstablishSession( "warmerda", "LetoKing",
"gdal800.dreadfest.com" ) )
{
exit( 1 );
}
printf( "Session established.\n" );
OGROCIStatement oStatement( &oSession );
oStatement.Execute( "DROP TABLE fasttest" );
oStatement.Execute( "CREATE TABLE fasttest (ifld INTEGER, cfld VARCHAR(4000), shape mdsys.sdo_geometry)" );
// oStatement.Execute( "CREATE TABLE fasttest (ifld INTEGER, cfld VARCHAR(4000))" );
/* -------------------------------------------------------------------- */
/* Prepare insert statement. */
/* -------------------------------------------------------------------- */
oStatement.Prepare( "INSERT INTO fasttest VALUES "
"(:field_1, :field_2, :field_3)" );
// oStatement.Prepare( "INSERT INTO fasttest VALUES "
// "(:field_1, :field_2)" );
/* -------------------------------------------------------------------- */
/* Do a conventional bind. */
/* -------------------------------------------------------------------- */
int anField1[100];
char szField2[100*4];
int anGType[100];
int anSRID[100];
OCIArray *aphElemInfos[100];
OCIArray *aphOrdinates[100];
SDO_GEOMETRY_TYPE aoGeometries[100];
SDO_GEOMETRY_ind aoGeometryIndicators[100];
SDO_GEOMETRY_TYPE *apoGeomMap[100];
SDO_GEOMETRY_ind *apoGeomIndMap[100];
double adfX[100], adfY[100];
memset( aphElemInfos, 0, sizeof(OCIArray*) * 100 );
memset( aphOrdinates, 0, sizeof(OCIArray*) * 100 );
memset( aoGeometries, 0, sizeof(SDO_GEOMETRY) * 100 );
memset( aoGeometryIndicators, 0, sizeof(SDO_GEOMETRY_ind) * 100 );
if( oStatement.BindScalar( ":field_1", anField1,
sizeof(int), SQLT_INT ) != CE_None )
exit( 1 );
if( oStatement.BindScalar( ":field_2", szField2, 4, SQLT_STR ) != CE_None )
exit( 1 );
if( oStatement.BindObject( ":field_3", apoGeomMap, oSession.hGeometryTDO,
(void**)apoGeomIndMap ) != CE_None )
exit( 1 );
/* -------------------------------------------------------------------- */
/* Create array of arrays for elem_info and ordinates. */
/* -------------------------------------------------------------------- */
int iBindRow;
for( iBindRow = 0; iBindRow < 100; iBindRow++ )
{
if( oSession.Failed(
OCIObjectNew( oSession.hEnv, oSession.hError,
oSession.hSvcCtx, OCI_TYPECODE_VARRAY,
oSession.hElemInfoTDO, (dvoid *)NULL,
OCI_DURATION_SESSION,
FALSE, (dvoid **) (aphElemInfos + iBindRow)),
"OCIObjectNew()") )
exit( 1 );
if( oSession.Failed(
OCIObjectNew( oSession.hEnv, oSession.hError,
oSession.hSvcCtx, OCI_TYPECODE_VARRAY,
oSession.hOrdinatesTDO, (dvoid *)NULL,
OCI_DURATION_SESSION,
FALSE, (dvoid **) (aphOrdinates + iBindRow)),
"OCIObjectNew()") )
exit( 1 );
}
/* -------------------------------------------------------------------- */
/* Populate VARRAYs */
/* -------------------------------------------------------------------- */
int iRow;
for( iRow = 0; iRow < 100; iRow++ )
{
anField1[iRow] = iRow;
sprintf( szField2 + iRow*4, "%3d", iRow );
anGType[iRow] = 3001;
anSRID[iRow] = -1;
adfX[iRow] = 100.0 + iRow;
adfY[iRow] = 100.0 - iRow;
//---------------------------------------------------------------
int anElemInfo[3], nElemInfoCount;
OCINumber oci_number;
int i;
nElemInfoCount = 3;
anElemInfo[0] = 1;
anElemInfo[1] = 1;
anElemInfo[2] = 1;
// Prepare the VARRAY of ordinate values.
for (i = 0; i < nElemInfoCount; i++)
{
if( oSession.Failed(
OCINumberFromInt( oSession.hError,
(dvoid *) (anElemInfo + i),
(uword)sizeof(int),
OCI_NUMBER_SIGNED,
&oci_number),
"OCINumberFromInt") )
exit( 1 );
if( oSession.Failed(
OCICollAppend( oSession.hEnv, oSession.hError,
(dvoid *) &oci_number,
(dvoid *)0, aphElemInfos[iRow]),
"OCICollAppend") )
exit( 1 );
}
//---------------------------------------------------------------
double adfOrdinates[6];
int nOrdCount;
nOrdCount = 3;
adfOrdinates[0] = iRow + 100;
adfOrdinates[1] = iRow - 100;
adfOrdinates[2] = 0.0;
adfOrdinates[3] = iRow + 100;
adfOrdinates[4] = iRow - 100;
adfOrdinates[5] = 0.0;
// Prepare the VARRAY of ordinate values.
for (i = 0; i < nOrdCount; i++)
{
if( oSession.Failed(
OCINumberFromReal( oSession.hError,
(dvoid *) (adfOrdinates + i),
(uword)sizeof(double),
&oci_number),
"OCINumberFromReal") )
exit( 1 );
if( oSession.Failed(
OCICollAppend( oSession.hEnv, oSession.hError,
(dvoid *) &oci_number,
(dvoid *)0, aphOrdinates[iRow]),
"OCICollAppend") )
exit( 1 );
}
// -------------------------------------------------------------
SDO_GEOMETRY_TYPE *poGeom = aoGeometries + iRow;
SDO_GEOMETRY_ind *poInd = aoGeometryIndicators + iRow;
poInd->sdo_point._atomic = OCI_IND_NULL;
if( oSession.Failed(
OCINumberFromInt( oSession.hError,
(dvoid *) (anGType + iRow),
(uword)sizeof(int),
OCI_NUMBER_SIGNED,
&(poGeom->sdo_gtype)),
"OCINumberFromInt" ) )
exit( 1 );
if( oSession.Failed(
OCINumberFromInt( oSession.hError,
(dvoid *) (anSRID + iRow),
(uword)sizeof(int),
OCI_NUMBER_SIGNED,
&(poGeom->sdo_srid)),
"OCINumberFromInt" ) )
exit( 1 );
poGeom->sdo_elem_info = aphElemInfos[iRow];
poGeom->sdo_ordinates = aphOrdinates[iRow];
apoGeomMap[iRow] = poGeom;
apoGeomIndMap[iRow] = poInd;
}
/* -------------------------------------------------------------------- */
/* Execute the statement. */
/* -------------------------------------------------------------------- */
int iGroup;
for( iGroup = 0; iGroup < 2; iGroup++ )
{
if( oSession.Failed(
OCIStmtExecute( oSession.hSvcCtx, oStatement.GetStatement(),
oSession.hError, (ub4) 100, (ub4)0,
(OCISnapshot *)NULL, (OCISnapshot *)NULL,
(ub4) OCI_COMMIT_ON_SUCCESS ),
"OCIStmtExecute" ) )
exit( 1 );
}
printf( "Successful completion\n" );
exit( 0 );
}
OGRSpatialReference *OGRIngresDataSource::FetchSRS( int nId )
{
char szCommand[1024];
char **papszRow;
OGRIngresStatement oStatement(GetConn());
if( nId < 0 )
return NULL;
/*
* Only the new Ingres Geospatial library
*/
if(IsNewIngres() == FALSE)
return NULL;
/* -------------------------------------------------------------------- */
/* First, we look through our SRID cache, is it there? */
/* -------------------------------------------------------------------- */
int i;
for( i = 0; i < nKnownSRID; i++ )
{
if( panSRID[i] == nId )
return papoSRS[i];
}
OGRSpatialReference *poSRS = NULL;
sprintf( szCommand,
"SELECT srtext FROM spatial_ref_sys WHERE srid = %d",
nId );
oStatement.ExecuteSQL(szCommand);
char *pszWKT = NULL;
papszRow = NULL;
papszRow = oStatement.GetRow();
if( papszRow != NULL)
{
if(papszRow[0] != NULL )
{
//VARCHAR uses the first two bytes for length
pszWKT = &papszRow[0][2];
}
}
poSRS = new OGRSpatialReference();
if( pszWKT == NULL || poSRS->importFromWkt( &pszWKT ) != OGRERR_NONE )
{
delete poSRS;
poSRS = NULL;
}
/* -------------------------------------------------------------------- */
/* Add to the cache. */
/* -------------------------------------------------------------------- */
panSRID = (int *) CPLRealloc(panSRID,sizeof(int) * (nKnownSRID+1) );
papoSRS = (OGRSpatialReference **)
CPLRealloc(papoSRS, sizeof(void*) * (nKnownSRID + 1) );
panSRID[nKnownSRID] = nId;
papoSRS[nKnownSRID] = poSRS;
return poSRS;
}
