Avatar billede anha36 Nybegynder
31. januar 2005 - 14:57 Der er 5 kommentarer og
1 løsning

Antal hits hverdag de sidste 7 dage

Jeg skal have konstrueret et query, hvor output skal være antal hits hverdag i de forgående 7dage (altså en array) -> Det skal gøres ud fra et timestamp, og kun i et query!!
Avatar billede arne_v Ekspert
31. januar 2005 - 19:10 #1
Prøv:

SELECT DATE_FORMAT(tsfelt,'%Y%n%e'),COUNT(*)
FROM tabel
WHERE tsfelt > X
GROUP BY DATE_FORMAT(tsfelt,'%Y%n%e')
Avatar billede anha36 Nybegynder
31. januar 2005 - 22:33 #2
Tusind tak.. :D

Og sorry repost :(
Avatar billede arne_v Ekspert
31. januar 2005 - 22:35 #3
Virker det ?
Avatar billede arne_v Ekspert
31. januar 2005 - 22:47 #4
Imports System
Imports System.Collections
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading

Class ChatMain
    Public Shared Sub Main(ByVal args As String())
        Dim srv As Server = New Server
        srv.Run
    End Sub
End Class

Class Server
    Private allclients As ArrayList

    Public Sub Run()
        allclients = New ArrayList
        Dim server As TcpListener = New TcpListener(IPAddress.Any, 50000)
        server.Start
        While True
            Dim client As TcpClient = server.AcceptTcpClient
            Dim ch As ClientHandler = New ClientHandler(client, Me)
            allclients.Add(ch)
            Call (New Thread(AddressOf ch.Run)).Start
        End While
    End Sub

    Public Sub SendAll(ByVal msg As String)
        For Each ch As ClientHandler In allclients
            ch.Send(msg)
        Next
    End Sub

    Public Sub Remove(ByVal ch As ClientHandler)
        allclients.Remove(ch)
    End Sub
End Class

Class ClientHandler
    Private rdr As StreamReader
    Private wrt As StreamWriter
    Private srv As Server

    Public Sub New(ByVal cli As TcpClient, ByVal srv As Server)
        rdr = New StreamReader(cli.GetStream)
        wrt = New StreamWriter(cli.GetStream)
        Me.srv = srv
    End Sub

    Public Sub Run()
        While True
            Dim line As String = rdr.ReadLine
            Dim cmd As String = line.Split(" ".ToCharArray)(0)
            If cmd = "SEND" Then
                srv.SendAll(line.Substring(5))
            Else
                If cmd = "EXIT" Then
                    srv.Remove(Me)
                    Return
                End If
            End If
        End While
    End Sub

    Public Sub Send(ByVal msg As String)
        SyncLock wrt
            wrt.WriteLine(msg)
            wrt.Flush
        End SyncLock
    End Sub
End Class
Avatar billede arne_v Ekspert
31. januar 2005 - 22:49 #5
hov - ignorer ovenstående kode - det var til en anden tråd
Avatar billede arne_v Ekspert
31. januar 2005 - 22:49 #6
Og et svar såfremt det virkede
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Computerworld tilbyder specialiserede kurser i database-management

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester