Just nu i M3-nätverket
Gå till innehåll

Hämta bara posten med högst ID


Micke_skane

Rekommendera Poster

Micke_skane

Hej,

 

Någon om vet hur man i Access skriver i SQL-satsen för att hämta ut posten med högst ID?

 

sql = Select FIRST * FROM XXX ORDER BY ID DEC fungerar inte!

sql = Select TOP * FROM XXX ORDER BY ID DESC fungerar inte!

 

Någon om vet?

 

MVH Micke

 

Länk till kommentar
Dela på andra webbplatser

Micke_skane

Hej Du,

 

Du kommer kanske ihåg mig :)

 

Har börjat få fram bild nu :)

 

Nu ska jag bara få rätt med att hämta ut olika många beroende vilken sida som syns.

Vill ju att bara det senaste(högst id) ska visas på första-sidan och alla på en annan sida(erbjudande.asp).

Kan man skriva sådan försfråga i sql-satsen på ner2.asp som hämtar bilder?

 

Vill du att jag visar dig koden igen?

 

Micke

 

 

Länk till kommentar
Dela på andra webbplatser

Anjuna Moon

Inte säker på att jag hänger med. På sidan som skall visa alla bilderna använder du frågan:

Set RS = Conn.execute("select * from Upload")

 

 

 

Länk till kommentar
Dela på andra webbplatser

Micke_skane

Jag förstår mycket väl om inte du hänger med för det är knappt Jag gör :)

 

Jag skickar Dig koden så blir det lättare:

 

ner2.asp // hämtar bilder

<%

Response.Expires= -1500
Response.Buffer = True

Dim Conn, RS, id

' ** Funktion för databas anslutning : **
Function GetConnection()
 Dim Conn, AuthConnectionString
 AuthConnectionString = "DBQ=" & Server.MapPath("databas.mdb") & ";DefaultDir=" & Server.MapPath("/") & ";" & _
     "Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
 Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.open AuthConnectionString
   Set GetConnection = Conn
End Function

Set Conn = GetConnection() ' Funktion som öppnar databasen '
'** Visar bild : **
If "" & Request.QueryString("ID") <> "" And IsNumeric(Request.QueryString("ID")) Then ' Kollar så att ID är ett nummer '
	id = CLng(Request.QueryString("ID"))

	Set RS = Conn.execute("SELECT TOP 1 * from Upload ORDER BY UploadID DESC")
	Response.ContentType = RS("ContentType")
	' ** Ta bort kommentaren på denna rad om du vill att filen ska laddas hem istället : **
	'Response.AddHeader "Content-Disposition", "attachment;filename=""" & RS("SourceFileName") & """"
	'on error resume next
	Response.Flush
	Response.BinaryWrite RS("Data") 		
	Response.Flush
		If err <> 0 Then
			Response.Write("Ett fel inträffade!")
			'Response.Write err.description
		End if
	RS.Close
Else
	Response.Write("Ett fel inträffade, ID nummer saknades!")
End If
Conn.Close
%>

 

default.asp // visar en bild

<%
UploadID = 24

%><HTML>
<HEAD>
</HEAD>
<BODY>
<B>Denna sida visar hur du får bilden att synas på en sida med HTML kod :<BR>
<img src="ner2.asp?ID=<%= UploadID%>">
<P>
ID nummret måste finnas i databasen!
</BODY>
</HTML>

 

Nu får du kanske en bättre bild över det hela!

 

Micke

 

Länk till kommentar
Dela på andra webbplatser

Anjuna Moon

Du vill alltså på erbjudande.asp visa alla bilder? Vet inte hur detta görs om bilderna är lagrade i databasen. På det sätt som du gjort på ner2.asp kan bara en bild visas eftersom du sätter contenttype på sidan till ex. image/jpeg vilket innebär att det inte är en html-sida som skapas utan en bild. Någon annan här kanske kan komma med tips?

 

Mitt förslag att du skippar att lagra bilderna i databasen kvarstår, då slipper du detta problem.

 

Länk till kommentar
Dela på andra webbplatser

Micke_skane

Låter rimligt med att det bara skapas en bild och inte en "sida"!

 

Men samtidigt tycker man att man ska kunna hämta Alla bilderna för att sedan skriva ut den med länk-taggar, typ img src="ner2.asp"ID=("Upload")>

Har liksom lyckats att skriva ut EN bild automatiskt! Varför skulle det inte gå med alla...

 

Hur är det med bild utan databas? Där behöver man en komponent för att ladda upp eller? Kan man ta bort bilder med viss kod oxå?

 

Har nått att visa hur det skulle kunna sse ut? Bara om du vill!

 

Micke

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...