Jag har en känsla av att det blir enklare om du tar en tabell i taget.
Set objConn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT TOP 1 * FROM tabell1 ORDER BY date1 DESC"
Response.Write objConn.Execute(strSQL)(0)
strSQL = "SELECT TOP 1 * FROM tabell2 ORDER BY date1 DESC"
Response.Write objConn.Execute(strSQL)(0)
objConn.Close
Set objConn = Nothing
Nu kanske inte det är så du vill göra, men annars förstår jag inte vad du menar med att visa det senaste inlägget från flera tabeller.
Jag har ett forum och en access databas med flera tabeller
( en för varje kategori i forumet )
och nu vill jag visa det senaste inlägget ur dom alla
alltså inte 1st från varje tabell utan totalt 1st inlägg
Du får ursäkta att jag inte orkar tänka ut en bättre lösning för tillfället, dock kan du taga ut det senaste ut alla tabeller, och sedan spara dessa i en temp-tabell och sedan taga ut det senaste i temp-tabellen...
Det känns väldigt udda att ha en tabell för varje forumkategori. Jag antar att tabellerna är i princip likadana. Borde det inte vara smidigare att ha all data i samma tabell (och kanske ha en kolumn som visar vilken forumkategori tråden hör till)?
M'kay... jag gissar att det blir enklare att ta tabell för tabell då som jag beskrev, fast med en liten annan metod, istället för att baka ihop en knölig SQL-fråga för det. Det känns som om den skulle bli knölig så här på morgonkvisten ivarjefall ;)
strSQL = "SELECT TOP 1 date1 FROM tabell1 ORDER BY date1 DESC"
dteTop = CDate(objConn.Execute(strSQL)(0))
intTbl = 1
[blue]'upprepa följande för varje tabell...[/blue]
strSQL = "SELECT TOP 1 date1 FROM tabell2 ORDER BY date1"
dteTest = CDate(objConn.Execute(strSQL)(0))
If dteTest > dteTop Then
dteTop = dteTest
intTbl = 2
End If
Nu kommer dteTop att innehålla det datum då den senaste posten lades till och intTbl vilken tabell det var i.
För att göra som jvc_man föreslog kan väl något liknande fungera
strSQL = "SELECT TOP 1 * INTO tblTemp FROM tabell1 ORDER BY date1 DESC"
objConn.Execute strSQL, , 128
strSQL = "SELECT TOP 1 * INTO tblTemp FROM tabell2 ORDER BY date1 DESC"
objConn.Execute strSQL, , 128
[blue]'och så vidare - sedan väljer du ut den senaste ur den temporära tabellen[/blue]
strSQL = "SELECT TOP 1 * FROM tblTemp ORDER BY date1 DESC"
objRS.Open strSQL, objConn
Response.Write objRS.GetString
strSQL = "DROP TABLE tblTemp"
objConn.Execute strSQL, , 128
