UPDATE sidste dato fra en tabel til en anden

Hej Frida,

Jeg ville nok lave en mellem-forespørgsel, som fandt alle de sidste datoer for hver kunde:
Select KundeID, Max(Reservationsdato) as Dato
From Kunde
Group By KundeID

Denne forespørgsel vil jeg så joine med din Update-forespørgsel, således at du kun får de relevante (sidste) datoer.

get my point?

/Thomas

Hej Thomas
Jeg er ikke helt med - jeg syn\'s at jeg har prøvet alt og læst i bøger osv osv. Her er kodestumpen - med samt forskellige forsøg. Hvad er det der går galt. Måske kan du forklare lidt nærmere?


SQL = \"select sidsteReservationsDato, dato from Kunde k, Reservation r where k.sidsteReservationsDato < r.dato\"

  set DATOER = forbindelse.Execute(SQL)

 
      Do While not DATOER.EOF
    l = l+1
    DATOER.MoveNext
    if Not (l = 0)then


   

  \'if (k.sidsteReservationsDato < r.dato ) then

  \'if (r.dato> k.sidsteReservationsDato) then

    \'if (r.dato > k.sidsteReservationsDato) then
    Command.CommandText = \"UPDATE Kunde SET sidsteReservationsDato = \'r.dato\' \"\'[dato]Reservation where  [sidsteReservationsDato]Kunde < [dato]Reservation \" \'where r.dato LIKE \'%\"&request(\"navn\")&\"%\'\" \'= (request.Form(\"dato\")\"      \'(\'\"& Request.Form(\"dato\") &\"\') where Ktlf = (\'\"& Request.Form(\"tlf\") &\"\')  AND Knavn = (\'\"& Request.Form(\"navn\") &\"\')\"
    Command.CommandType = adCmdText
    Command.Execute
    end if
    \'end if

  loop
end if

frida

Så vidt jeg kan se, så tager du fra kundetabellen og ikke reserveationstabellen.

Det er ikke \"database-mæssig\" korrekt, at føre den sidste dato fra reservationstabellen tilbage i kundetabellen.

Du skal blot lave en Query med følgende SQL sætning:

SELECT TOP 1 [Table4].[Hvem], [Table4].[Hvornår]
FROM Table4
WHERE ((([Table4].[Hvem])=\"CarlViggo\"))
ORDER BY [Table4].[Hvornår] DESC;

Den sorterer listen med alle datoerne for \"CarlViggo\" og snupper så kun den seneste af alle datoer.

Kundetabellen skal ikke indeholde nogen infromation om disse datoer.
Når du skal bruge den seneste dato i f.eks. en form, så tager du og blander ovenstående Query med kundetabellen i en ny query.

Hej Moses
Jeg tror du har ret i dit forslag. Jeg har pt. lidt travlt og vil derfor gerne have tid til at afprøve det. Når det er sket vender jeg tilbage - og du får selvfølgelig dine point, hvis det er OK
frida

Jeg har nu prøvet forskelligt - men mener at det må være noget i retning af dette:
function opdaterDato()

    SQL = \"SELECT TOP 1 [Reservation].[dato] [Reservation].[Knavn] FROM Reservation Kunde where [Reservation].[Knavn] LIKE \'%\"&request(\"navn\")&\"%\' ORDER BY [Reservation].[dato] DESC\"

    Command.CommandText = \"UPDATE Kunde SET sidsteReservationsDato = [Reservation].[dato] where [Reservation].[Knavn] = [Kunde].[Knavn]\"
    Command.CommandType = adCmdText
    Command.Execute


    end function

Men ak - det virker ikke. Kan nogen fortælle mig hvorfor?
frida

Hej moses
Takket være dit råd er jeg nået frem til denne løsning:

function opdaterDato()

    SQL = \"SELECT TOP 1 [Reservation].[dato] [Reservation].[Knavn] FROM Reservation Kunde where [Reservation].[Knavn] LIKE \'%\"&request(\"navn\")&\"%\' ORDER BY [Reservation].[dato] DESC\"

    Command.CommandText = \"UPDATE DISTINCTROW Kunde INNER JOIN Reservation ON Kunde.sidsteReservationsdato < Reservation.dato SET Kunde.sidsteReservationsDato = [Reservation].[dato] where [Reservation].[Knavn] = [Kunde].[Knavn]\"
    Command.CommandType = adCmdText
    Command.Execute

  end function

Og det virker
Du får dine point for at hjælpe mig på vej
frida