Thema: DB Abfrage mit Zeitoption
Moin.
Ich suche dringend nach einer Lösung, um meine DB Abfrage komplett zu machen.
Ich möchte, dass die Ausgabe, die ich in der Messagebox Uebertrag_zeit bekomme, als Abfrageoption in die DB Anfrage mit reinnehmen kann. Heisst, dass ich die Daten der letzten 2 Stunden haben möchte.
Hoffe, mir kann wer helfen.
Sub GetResult()
dim x
dim Uebertrag_zeit
uebertrag_zeit=DateAdd("h", -2, Now)
msgbox(Uebertrag_zeit)
x = 0
Set cn = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.Recordset")
cn.Open "Provider=sqloledb;Persist Security Info=False;" _
& "Data Source=notebook10Webfactory;Initial Catalog=WEBfactory;" _
& "User Id=sa;Password=XXX"
rs.Open "SELECT AVG (LoggingValue) FROM LogReporting WHERE SignalID=5",cn
x = rs.Fields(0).value
rs.Close
cn.Close
Result = x
End Sub