Jag läser upp dagens datum från en accessdatabas men jag behöver flytta mig till andra rader i databasen hade tänkt mig två knappar men jag fixar inte det. OK, nu skall vi se... Koden som är med returnerar dagens datum, jag vill kunna bläddra i databasen en rad i taget.Alla datum finns i databasen Jag undrar lite över din datastruktur. Väldigt statisk. Tack Andreas Denna tidigare koden navigerar inte poster utan dagara. Om du istället vill navigera genom poster kan du hämta ut dem genom:MoveNext - MovePrevious knappar
jag är helt ny på asp
Anna-karin
<%@ Language=VBScript %>
<!-- #include file="include.asp" -->
<%
' Skapa kopplingen till databasen.
Set ObjConn = Server.CreateObject("ADODB.Connection")
SET ObjConn = System_GetDatabaseConn()
Set ObjRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Datum, Antal, Tid1, Hämtad1, Tid2, Hämtad2, Tid3, Hämtad3, Tid4, Hämtad4, Tid5, Hämtad5, Tid6, Hämtad6, Tid7, Hämtad7, Tid8, Hämtad8, Tid9, Hämtad9, Tid10, Hämtad10 FROM Bulkbiltbl1 WHERE Datum =Date() ; "
ObjRs.Open strSQL,ObjConn,3,1
%>
<HTML>
<TITLE>Bulkbilar </TITLE></HEAD>
<BODY>
<table border="1" width="100%">
<tr>
<%for each x in ObjRs.Fields
response.write("<th align='left' bgcolor='#b0c4de'>" & x.name & "</th>")
next%>
</tr>
<%do until ObjRs.EOF%>
<tr>
<%for each x in ObjRs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
ObjRs.MoveNext%>
</tr>
<%loopSv: MoveNext - MovePrevious knappar
Du VILL lista alla dagens poster och sedan bläddra mellan datum eller vill du bara lista EN från dagens åt gången och klicka vidare till nästa post om det finns någon?Sv:MoveNext - MovePrevious knappar
Sv: MoveNext - MovePrevious knappar
Detta kanske är ett steg på vägen:
<%
Dim Value
If IsDate(Request.QueryString("date")) Then
Value = CDate(Request.QueryString("date"))
Else
Value = Date()
End If
Response.Write "<< Previous | "
Response.Write Value
Response.Write " | Next >>"
' Skapa kopplingen till databasen.
Set ObjConn = System_GetDatabaseConn()
strSQL = "SELECT Datum, Antal, Tid1, Hämtad1, Tid2, Hämtad2, Tid3, Hämtad3, Tid4, Hämtad4, Tid5, Hämtad5, Tid6, Hämtad6, Tid7, Hämtad7, Tid8, Hämtad8, Tid9, Hämtad9, Tid10, Hämtad10 FROM Bulkbiltbl1 WHERE Datum >= #" & Value & "# AND Datum < #" & DateAdd("d", 1, Value) & "#"
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.Open strSQL,ObjConn
%>
Sv:MoveNext - MovePrevious knappar
Jag ska testa med din kod.
Att min kod ser ut som den gör är att jag gjort generalfelet att kopierat den utan att förstå.
Anledningen till det är att applikationen skulle varit färdig igår.Sv: MoveNext - MovePrevious knappar
<%
Dim ObjRs
Dim ObjConn
Dim Value
Dim NextValue
Dim PreviousValue
Dim strSQL
If IsDate(Request.QueryString("date")) Then
Value = CDate(Request.QueryString("date"))
Else
Value = Date()
End If
' Skapa kopplingen till databasen.
Set ObjConn = System_GetDatabaseConn()
Set ObjRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT MAX(Datum)" & vbCrLf & _
"FROM Bulkbiltbl1 WHERE Datum < #" & Value & "#"
ObjRs.Open strSQL,ObjConn
If Not ObjRs.EOF Then
PreviousValue = ObjRs(0)
End If
ObjRs.Close
strSQL = "SELECT MIN(Datum)" & vbCrLf & _
"FROM Bulkbiltbl1 WHERE Datum >= #" & DateAdd("d", 1, Value) & "#"
ObjRs.Open strSQL,ObjConn
If Not ObjRs.EOF Then
NextValue = ObjRs(0)
End If
ObjRs.Close
If IsDate(PreviousValue) Then
Response.Write "<< Previous | "
Else
Response.Write "<< Previous | "
End If
Response.Write Value
If IsDate(NextValue) Then
Response.Write " | Next >>"
Else
Response.Write " | Next >>"
End If
strSQL = "SELECT Datum, Antal, Tid1, Hämtad1, Tid2, Hämtad2, Tid3, Hämtad3, Tid4, Hämtad4, Tid5, Hämtad5, Tid6, Hämtad6, Tid7, Hämtad7, Tid8, Hämtad8, Tid9, Hämtad9, Tid10, Hämtad10" & vbCrLf & _
"FROM Bulkbiltbl1" & vbCrLf & _
"WHERE Datum >= #" & Value & "# AND Datum < #" & DateAdd("d", 1, Value) & "#"
ObjRs.Open strSQL,ObjConn
%>