Demo entry 6733594

statitics net

   

Submitted by anonymous on Apr 17, 2018 at 22:28
Language: VB.net. Code size: 615 Bytes.

CurrentDb.Execute "UPDATE net_subarea  SET [01_Linked_sectors_in_GEN_not_found_in_ABR_SEGMENT_DP]=0"
Set rstRequest = CurrentDb.OpenRecordset("SELECT NET_CD,count(*) from [01_Linked_sectors_in_GEN_not_found_in_ABR_SEGMENT_DP] group by NET_CD order by NET_CD")
If rstRequest.RecordCount > 0 Then
    rstRequest.MoveLast
    rstRequest.MoveFirst
    Do Until rstRequest.EOF
        CurrentDb.Execute "UPDATE net_subarea  SET [01_Linked_sectors_in_GEN_not_found_in_ABR_SEGMENT_DP]=" & rstRequest.Fields(1).Value & " WHERE NET='" & rstRequest.Fields(0).Value & "'"
        rstRequest.MoveNext
    Loop
End If

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).