Loading
  1.                 ' See if we need to import Sample points
  2.                 If strAllChecksPassed = True Then
  3.                     Dim x As Integer = 1
  4.                     Dim sample = From point In strCurrentXML...<samples>.<sample> Select point
  5.                     '
  6.                     '   <job>
  7.                     '       <field>
  8.                     '           <samples>
  9.                     '               <sample>
  10.                     '                   <sampleRef>1</sampleRef>
  11.                     '                   <sampleComplete>1</sampleComplete>
  12.                     '                   <operatorID>1022</operatorID>
  13.                     '                   <sampleLocation>
  14.                     '                       <lat>54.141492268</lat>
  15.                     '                       <lng>-0.755150136</lng>
  16.                     '                       <alt>22.412</alt>
  17.                     '                   </sampleLocation>
  18.                     '               </sample>
  19.                     '           </samples>
  20.                     '
  21.                     ' Grab the top level elements: sampleRef, sampleComplete, operatorID
  22.                     For Each item In sample
  23.                         ' DEBUG
  24.                         'Response.Write("<br>")
  25.                         'Response.Write("<br>sampleRef: " & item.<sampleRef>.Value)
  26.                         'Response.Write("<br>sampleComplete: " & item.<sampleComplete>.Value)
  27.                         'Response.Write("<br>operatorID: " & item.<operatorID>.Value)
  28.                         'Response.Write("<br>lat: " & item.<sampleLocation>.<lat>.Value)
  29.                         'Response.Write("<br>lng: " & item.<sampleLocation>.<lng>.Value)
  30.                         'Response.Write("<br>alt: " & item.<sampleLocation>.<alt>.Value)
  31.                         '
  32.                         ' If the Sample was complete, then proceed with the Insert
  33.                         If item.<sampleComplete>.Value = 1 Then
  34.                             Dim sample_point = From point In strCurrentXML...<samples>.<sample>.<sampleLocation> Select point
  35.                             ' Insert each <sampleLocation> in to the `point_data` table
  36.                             thisConnection.Open()
  37.                             strSQL = "INSERT INTO point_data (field_id, field_point_group_type_id, lat, lng, alt, sample_orders_id, ref, sequence, operator_id) VALUES (@field_id, @field_point_group_type_id, @lat, @lng, @alt, @sample_orders_id, @ref, @sequence, @operator_id)"
  38.                             For Each sample_item In sample_point
  39.                                 Dim InsertCmdSamplePoint As New MySqlCommand(strSQL, thisConnection)
  40.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@field_id", strFieldID)
  41.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@field_point_group_type_id", 4)
  42.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@lat", item.<sampleLocation>.<lat>.Value)
  43.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@lng", item.<sampleLocation>.<lng>.Value)
  44.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@alt", item.<sampleLocation>.<alt>.Value)
  45.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@sample_orders_id", strFieldOrderID)
  46.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@ref", x)
  47.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@sequence", 0)
  48.                                 InsertCmdSamplePoint.Parameters.AddWithValue("@operator_id", item.<operatorID>.Value)
  49.                                 InsertCmdSamplePoint.ExecuteNonQuery()
  50.                                 x = x + 1
  51.                                 ' Flush the buffer
  52.                                 Response.Flush()
  53.                             Next
  54.                             ' Close the connection
  55.                             thisConnection.Close()
  56.                         Else
  57.                             ' Sample was not complete, do nothing
  58.                         End If
  59.                         ' Flush the buffer
  60.                         Response.Flush()
  61.                     Next
  62.                     ' Did we import?
  63.                     If x > 1 Then Response.Write("<br>Imported: Sample Points")
  64.                     ' Flush the buffer
  65.                     Response.Flush()
  66.                 End If

Comments