1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub buildDevPourSondage(ByRef sondage As TypeSondage)
Dim strDev As String
strDev = "SELECT GEODE_VBL_SONDAGE.NOM_SONDAGE, GEODE_VBL_SONDAGE.PROF_MAX, GEODE_REQUETE_V_EXPORT_DEVIATION.DEPTH, GEODE_REQUETE_V_EXPORT_DEVIATION.AZIMUTH, GEODE_REQUETE_V_EXPORT_DEVIATION.DIP, GEODE_REQUETE_V_EXPORT_DEVIATION.NORD_MAG, GEODE_REQUETE_V_EXPORT_COLLAR.X, GEODE_REQUETE_V_EXPORT_COLLAR.Y, GEODE_REQUETE_V_EXPORT_COLLAR.Z, GEODE_TBL_CAMPAGNE.NOM_CAMPAGNE" & _
"FROM GEODE_TBL_CAMPAGNE INNER JOIN ((GEODE_VBL_SONDAGE INNER JOIN GEODE_REQUETE_V_EXPORT_DEVIATION ON GEODE_VBL_SONDAGE.NOM_SONDAGE = GEODE_REQUETE_V_EXPORT_DEVIATION.HOLE_ID) INNER JOIN GEODE_REQUETE_V_EXPORT_COLLAR ON GEODE_REQUETE_V_EXPORT_DEVIATION.HOLE_ID = GEODE_REQUETE_V_EXPORT_COLLAR.HOLE_ID) ON GEODE_TBL_CAMPAGNE.ID_CAMPAGNE = GEODE_VBL_SONDAGE.ID_CAMPAGNE" & _
"GROUP BY GEODE_VBL_SONDAGE.NOM_SONDAGE, GEODE_VBL_SONDAGE.PROF_MAX, GEODE_REQUETE_V_EXPORT_DEVIATION.DEPTH, GEODE_REQUETE_V_EXPORT_DEVIATION.AZIMUTH, GEODE_REQUETE_V_EXPORT_DEVIATION.DIP, GEODE_REQUETE_V_EXPORT_DEVIATION.NORD_MAG, GEODE_REQUETE_V_EXPORT_COLLAR.X, GEODE_REQUETE_V_EXPORT_COLLAR.Y, GEODE_REQUETE_V_EXPORT_COLLAR.Z, GEODE_TBL_CAMPAGNE.NOM_CAMPAGNE" & _
"ORDER BY GEODE_VBL_SONDAGE.NOM_SONDAGE, GEODE_REQUETE_V_EXPORT_DEVIATION.DEPTH;"
Dim rsDev As ADODB.Recordset
Set rsDiag = getConnection.Execute(strDev)
If rsDev.EOF Then
logError sondage.nomSondage, "W", "Le sondage n'a pas de deviation. Sondage non pris en compte."
' For each diagraphy to process
Do While Not rsDev.EOF
Loop
End Sub |
Partager