vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Select Sum 
Autor: ecoguay
Datum: 17.06.04 14:19
Sry aber anscheinend bin ich wirklich zu blöd dafür:
Jetzt komm ich mit dem currentdb nicht klar. Schreit immer Object erforderlich.
Das ganze sieht jetzt so aus:

Private Sub Cmd_Filter_Click()

'Datenbank öffnen
Dim Db As Database
Dim dbFile As String

dbFile = "e:\MusicTool\Charts"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)

Dim SQL As String
Dim rs As Recordset
Dim sDatumVon As Date
Dim sDatumBis As Date

sDatumVon = txtDatevon.Text
sDatumBis = txtDatebis.Text

SQL = "SELECT Sum(POINTS) AS [Summe von POINTS], Title, Artist, Min(Date) AS [Min von Date]From Charts WHERE Date BETWEEN #" & _
Format$(sDatumVon, "m-d-yy") & "# AND #" & _
Format$(sDatumBis, "m-d-yy") & "# GROUP BY Title,Artist ORDER BY Sum(POINTS) DESC"

Set Db = currentdb
Set rs = currentdb.OpenRecordset(SQL)
Do While Not rst.EOF
POINTS = rs![Summe von POINTS]
Date =rs![Min von Date]

Loop
rs.Close

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Select Sum1.047ecoguay16.06.04 11:36
Re: Select Sum825ecoguay16.06.04 12:02
Re: Select Sum669IngoP16.06.04 14:00
Re: Select Sum693ecoguay16.06.04 14:47
Re: Select Sum717IngoP16.06.04 14:58
Re: Select Sum684ecoguay16.06.04 15:37
Re: Select Sum671IngoP16.06.04 15:41
Re: Select Sum696ecoguay16.06.04 15:57
Re: Select Sum667IngoP16.06.04 16:05
Re: Select Sum671ecoguay16.06.04 16:19
Re: Select Sum679IngoP16.06.04 16:21
Re: Select Sum707ecoguay16.06.04 16:40
Re: Select Sum743IngoP16.06.04 19:09
Re: Select Sum708ecoguay16.06.04 19:24
Re: Select Sum683IngoP16.06.04 19:43
Re: Select Sum710ecoguay16.06.04 19:55
Re: Select Sum672IngoP17.06.04 07:28
Re: Select Sum633ecoguay17.06.04 10:39
Re: Select Sum696IngoP17.06.04 11:03
Re: Select Sum649ecoguay17.06.04 11:29
Re: Select Sum672IngoP17.06.04 12:27
Re: Select Sum658ecoguay17.06.04 12:39
Re: Select Sum638IngoP17.06.04 13:06
Re: Select Sum978ecoguay17.06.04 13:18
Re: Select Sum751IngoP17.06.04 13:24
Re: Select Sum699IngoP17.06.04 13:26
Re: Select Sum765ecoguay17.06.04 14:19

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel