Le portail francophone de la géomatique

'########################################################################
'Purpose: To preload Oracle data for coding access
'     Create tables dynamically at startup of project
'
'Note: This code was written for ArcView 3.x. It is called by the
'   startup procedure for the project.
'
'   In order to ensure the data is up to date, if the table exists
'    already in the project another script is called, prior to this,
'    to delete the table. The information loaded from ORACLE is then
'    JOINED, by running another script, which checks for joins, to delete
'    the existing join, and join this new table with the spatial data.
'########################################################################
'
theCon = SQLCon.Find( swis ) 'ORACLE Instance
sqlList = {}
sqlList = { sewr_str_prof_nonpipes , sewr_str_prof_pipes }
' ---Establish whether or not table exists, removes it so no duplicates exist
i = 0
while (i nil) then
else
tblConfirm = MsgBox.YesNo( Table [ +sqlString.UCASE+ ] missing from Project file. ++
Can always be executed later. Download the required information? +NL+NL+
*** (NOTE: Could take a while to download information) *** ,
Table [ +sqlString.UCASE+ ] missing ,
FALSE)
if (NOT tblConfirm) then
else

' ---Set up connection to SQL table with arguments passed from calling program
if (sqlString = sewr_str_prof_nonpipes ) then
anSQL = Select * from ++ sqlString ++ where swis.sewr_str_prof.ssc_str_cd 'PS'
theVTab=VTab.MakeSQL(theCon, anSQL)
myTable = Table.Make(theVtab)
av.GetProject.AddDoc(mytable)
mytable.setname(sqlString)
else
anSQL = Select * from ++ sqlString ++ where swis.sewr_str_prof.ssc_str_cd ='PS'
theVTab=VTab.MakeSQL(theCon, anSQL)
myTable = Table.Make(theVtab)
av.GetProject.AddDoc(mytable)
mytable.setname(sqlString)
end
end
end
i = i + 1
end

'/end of script