Pytanie : Sql Zapytanie Nowy dane przy 9am tylko

Mój aktualny zapytanie dawać dane przy 9am - 9am (24 Godzina)
I tylko potrzeba 9am tylko dla każdego dnia w mój data range.

SELECT FlowLogPeriod.MdbDeviceID, DeviceSummary.MeterID, konwertyta (datetime, FlowLogPeriod.LogPeriodFlowDateTime, 101), FlowLogPeriod.AP
FROM DeviceSummary WEWNĘTRZNY JOIN
FlowLogPeriod NA DeviceSummary.MdbDeviceID = FlowLogPeriod.MdbDeviceID
WHERE (DeviceSummary.MeterID = "01103-705") i (FlowLogPeriod.LogPeriodFlowDateTime >= @StartDate) I (FlowLogPeriod.LogPeriodFlowDateTime <= @EndDate)

Odpowiedź : Sql Zapytanie Nowy dane przy 9am tylko

Tutaj być stary-uczyć kogoś przykład.  Ty lub zmieniać the imię brak książka telefoniczna lub use pytać the użytkownik dla the adresowy imię.

The StdDev, ty musieć dwa przepustka przez the dane, pierwszy cyrklowanie the średnia i wtedy the wariancja.
(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:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

Opcja Wyraźny

Jawny Okręt podwodny stats ()
  Ciemnawy intFN Jako Integer
  Ciemnawy strLine Sznurek
  Ciemnawy strParsed () Sznurek
  Ciemnawy dblSums (8 15) Kopia
  Ciemnawy dblAvgs (8 15) Kopia
  Ciemnawy dblVariances (8 15) Kopia
  Ciemnawy lngCount Długo
  Ciemnawy lngColumns ((1) 4) Długo
  Ciemnawy strFilename Sznurek
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Ciemnawy lngLoop Długo
  Const CSVpath Jako Sznurek = "C:\Users\Mark\Downloads\"
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & "*.csv")
  Do Len (strFilename) = (0)
    Otwierać CSVpath & strFilename Dla Wkład Jako #intFN
    Do EOF (intFN)
      Wykładać Wkład #intFN, strLine
      strParsed = Rozłam (strLine, ", ")
      '(I, L, M, N,   P) = 9, 12, 13, 15 z jeden początek
      Dla lngLoop = (1) 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + Val (strParsed (lngColumns (lngLoop)))
      Następnie
      lngCount = lngCount + (1)
    Pętla
    Zamknięty #intFN
    strFilename = Dir ()
  Pętla
    
  Dla lngLoop = (1) 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Następnie
  
  strFilename = Dir (CSVpath & "*.csv")
  Do Len (strFilename) = (0)
    Otwierać CSVpath & strFilename Dla Wkład Jako #intFN
    Do EOF (intFN)
      Wykładać Wkład #intFN, strLine
      strParsed = Rozłam (strLine, ", ")
      Dla lngLoop = (1) 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - Val (strParsed (lngColumns (lngLoop)))) ^ 2
      Następnie
    Pętla
    Zamknięty #intFN
    strFilename = Dir ()
  Pętla
    
    Debug.Print lngCount
    Dla lngLoop = (1) 4
      Debug.Print dblSums (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Następnie
  
  
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us