Månedsopdeling

Hvilken database anvender du ?

access 2000

Sub findtotal()

Dim MonthArray() As String
' gør plads til 12 elementer i array
ReDim MonthArray(12)

' så månede ind i array

MonthArray(1) = "Januar"
MonthArray(2) = "Februar"
' osv.

Dim rs As New ADODB.Recordset
Dim SQLString As String
Dim index As Integer

For index = 1 To 12
  SQLString = "SELECT Sum(index) AS MaenedTotal FROM tabel1 where maende = " & index
  rs.Open SQLString, CurrentProject.Connection
  If Not rs.EOF Then
    MsgBox MonthArray(index) & " " & rs.Fields("MaenedTotal").Value
  End If
  rs.Close
Next index
End Sub

Skriv hvis du vil have yderligere hjælp

Sub findtotal()

Dim MonthArray() As String
' gør plads til 12 elementer i array
ReDim MonthArray(12)

' så månede ind i array

MonthArray(1) = "Januar"
MonthArray(2) = "Februar"
' osv.

Dim rs As New ADODB.Recordset
Dim SQLString As String
Dim index As Integer

For index = 1 To 12
  SQLString = "SELECT Sum(index) AS MaenedTotal,Count(index) as antal FROM tabel1 where maende = " & index
  rs.Open SQLString, CurrentProject.Connection
  If Not rs.EOF Then
    MsgBox MonthArray(index) & " " & rs.Fields("MaenedTotal").Value & " " & rs.Fields("Antal").Value
  End If
  rs.Close
Next index
End Sub

Glemte lige antal

Hov det er ASP du vil have ikke Access - kommer straks.

<%@ LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<%

Response.Expires=0
' Der gemmes ikke på proxy serveren.

dim ObjConn
dim Rs
dim SQLString
dim index
dim MonthArray(12)


MonthArray(1) = "Januar"
MonthArray(2) = "Februar"
' osv.

set ObjConn = Server.Createobject("ADODB.Connection")
' skriv stien til din Access database her  - jeg kører MySQL
objConn.Open  "DSN=Booking;DataBase=Booking;UID=;PWD=;"

Response.Write "måned Sum antal"
Response.write "<br>"
for index = 1 to 12
    SQLString = "SELECT Sum(intcount) AS MaenedTotal,Count(intcount) as antal FROM table1 where Maenede = " & index
    Set RS = objConn.Execute(SQLString)
    If Not rs.EOF Then
      Response.Write MonthArray(Index) & " " & rs("MaenedTotal") & " " & rs("Antal")
      Response.Write "<br>"
    End If
next


set RS = nothing
Set ObjConn = nothing

%>

kanon tak skal du have

Hvis du skal have noget hjælp med SQL-sætningen så skriv.

hvis svaret kan bruges vil jer gerne have nogle point.

du skal lige give et svar istedet for en kommentar! :-)

<%@ LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<%

Response.Expires=0
' Der gemmes ikke på proxy serveren.

dim ObjConn
dim Rs
dim SQLString
dim index
dim MonthArray(12)


MonthArray(1) = "Januar"
MonthArray(2) = "Februar"
' osv.

set ObjConn = Server.Createobject("ADODB.Connection")
' skriv stien til din Access database her  - jeg kører MySQL
objConn.Open  "DSN=Booking;DataBase=Booking;UID=;PWD=;"

Response.Write "måned Sum antal"
Response.write "<br>"
for index = 1 to 12
    SQLString = "SELECT Sum(intcount) AS MaenedTotal,Count(intcount) as antal FROM table1 where Maenede = " & index
    Set RS = objConn.Execute(SQLString)
    If Not rs.EOF Then
      Response.Write MonthArray(Index) & " " & rs("MaenedTotal") & " " & rs("Antal")
      Response.Write "<br>"
    End If
next


set RS = nothing
Set ObjConn = nothing

%>