Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevGraph
Autor: vbler2005
Datum: 28.03.06 09:54
Hallo, lese mit folgendem Code werte aus einer Datenbank und zeige sie in sevGraph an. Private Sub Command1_Click() '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '+ + '+ Dieser Code ließt Daten aus einer Datenbank und zeigt sie in einer Grafik an + '+ + '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim Db As DAO.Database Dim oRs As DAO.Recordset Dim nCount As Long Dim dbFile As String Dim anzahl dbFile = App.Path + "\Tempdaten.mdb" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) anzahl = txtanzahl.Text ' nur 20 Werte lesen '############################################## Dim qd As QueryDef Set qd = Db.QueryDefs("qryTemp") '<-- Abfrage in Datenbank qd.Parameters("W1") = txtW1.Text '<-- einstellen von z.b. 2 qd.Parameters("W2") = txtW2.Text '<-- einstellen bis z.b. 11 Set oRs = qd.OpenRecordset If oRs.RecordCount > 0 Then oRs.MoveLast With Graph1 .LockUpdate True .NumSets = 5 .Count = oRs.RecordCount oRs.MoveFirst Do nCount = nCount + 1 .CurSet = 1: .Data(nCount).Value = oRs("Vorlauf"): .Data(nCount).Text = oRs("Zeit") .Legend(1).Text = "Vorlauf" .Legend(1).Color = Legend_Red .Data(.Count).Color = Graph_Red 'Linienfarbe .CurSet = 2: .Data(nCount).Value = oRs("Rücklauf") .Legend(2).Text = "Rücklauf" .Legend(2).Color = Legend_Green .Data(.Count).Color = Graph_Green 'Linienfarbe .CurSet = 3: .Data(nCount).Value = oRs("Abgas") .Legend(3).Text = "Abgas" .Legend(3).Color = Legend_Yellow .Data(.Count).Color = Graph_Yellow 'Linienfarbe .CurSet = 4: .Data(nCount).Value = oRs("Heizraum") .Legend(4).Text = "Heizraum" .Legend(4).Color = Legend_Blue .Data(.Count).Color = Graph_Blue 'Linienfarbe .CurSet = 5: .Data(nCount).Value = oRs("Aussen") .Legend(5).Text = "Aussen" .Legend(5).Color = Legend_Orange .Data(.Count).Color = Graph_Orange 'Linienfarbe .Data(.ShowAverage).Color = Graph_OrangeLT oRs.MoveNext Loop Until oRs.EOF .LockUpdate False .Refresh End With End If oRs.Close Set oRs = Nothing End Sub Nun wollte ich den Durchschnittswert für die Aussentemperatur anzeigen. .Data(.ShowAverage).Color = Graph_OrangeLT leider ohne erfolg. Was ist mein Fehler? ShowAverage wurde auf True gesetzt. Danke für die Hilfe Hagen

sevGraph	692	vbler2005	28.03.06 09:54
Re: sevGraph	459	Dieter	28.03.06 10:45
Re: sevGraph	365	vbler2005	03.04.06 13:26
Re: sevGraph	405	Dieter	03.04.06 21:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen