1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
'dept
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid302&"','302')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'site
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid201&"','201')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'dept
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid302&"','302')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'otfloor
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid203&"','203')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'office
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid204&"','204')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'building
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid202&"','202')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'service
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid303&"','303')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation)
'COmpany
otSqlrelation="INSERT INTO otobjectrelation(oidobject,oidobjecttype,oidobjectrelation,oidobjectrelationtype)"
otSqlrelation=otSqlrelation & "VALUES('"&idmax&"','603','"&oid301&"','301')"
set oRecrelation=oP.ogbAdoData.Execute(otSqlrelation) |
Partager