Sv: skapa ett rs

skapa ett rs

Postades av 2002-11-09 23:34:05 - Torbjörn Karlberg, i forum asp - allmänt, Tråden har 11 Kommentarer och lästs av 477 personer

Hejsan

Jag vill i min fråga plocka ihop två st recordset till en sträng.

t,ex

select namn, tid, util from tabell where datum = " & SqlDate("Datum") & " and Namn1= '1' order by tid ASC"

och
select namn, tid, util from tabell where datum = " & SqlDate("Datum") & " and Namn1= '2' order by tid ASC"

Namn 1 och 2 är två olicka personer t.ex tandläkare
typ så här i en tabell.

Kalle Ericsson 07:00 Rotfullning Nisse Hult 08:00 Årlig kontroll
Bengt Karlsson 07:30 Årlig kontroll Sven Andersson 08:20 Rotfyllning
o.s.v

Mvh
Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-10 00:33:30 - Andreas Hillqvist

Varför inte bara ha ett recordset?

SELECT namn, tid, util
FROM tabell
WHERE datum = " & SqlDate(Date) & " AND Namn1 IN ('1', '2')
ORDER BY tid ASC"

Svara

Sv: skapa ett rs

Postades av 2002-11-10 00:59:19 - Torbjörn Karlberg

Hej
Har testat men det jag vill åstakomma är att varje tid skall ligga på en rad
typ

07:00 Kalle och 07:00 Nisse på rad1 detta för att det blir överskådligt när man har 07:00 på samma rad

inte som detta
07:00 Kalla
07:00 Nisse
08:00 Berra
08:00 Kurt

Min kod ser ut så här

main1.asp
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\Data\S2kb.mdb"

response.write "<TABLE>"
bgColor = "#E7E2D3"
SQL = "SELECT tid, util, Namn FROM tidserv WHERE Datum= " & SQLDate(Datum) & " and Sman1 = '1' order by tid ASC"
Set rs = db.Execute(SQL)

Do Until rs.Eof
if bgColor = "#E7E2D3" THEN
bgColor = "#FFFFDD"
ELSE
bgColor = "#E7E2D3"
end if

response.write "<TR BGCOLOR=" & bgColor & ">"
response.write "<TD>" & Rs("Tid") & "<TD>" & " " & Rs("Util") & "<TD>" & Rs("Namn") & "</TD>"
response.write "</TR>"

rs.movenext
Loop

response.write "</TABLE>"

%>

Main2.asp

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\Data\S2kb.mdb"

response.write "<TABLE>"
bgColor = "#E7E2D3"
SQL = "SELECT tid, util, Namn FROM tidserv WHERE Datum= " & SQLDate(Datum) & " and Sman1 = '2' order by tid ASC"
Set rs = db.Execute(SQL)

Do Until rs.Eof
if bgColor = "#E7E2D3" THEN
bgColor = "#FFFFDD"
ELSE
bgColor = "#E7E2D3"
end if

response.write "<TR BGCOLOR=" & bgColor & ">"
response.write "<TD>" & Rs("Tid") & "<TD>" & " " & Rs("Util") & "<TD>" & Rs("Namn") & "</TD>"
response.write "</TR>"

rs.movenext
Loop

response.write "</TABLE>"

%>

Som jag gör nu är att köra i två olicka frames på två sidor med detta tycker jag är lite fel måste kunna göras enklare ???

Mvh Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-10 10:03:02 - Johan Djupmarker

Om du gör såhär...

"SELECT namn, tid, util FROM tabell WHERE datum = " & SqlDate(Date) & " AND Namn1 IN ('1', '2') ORDER BY Namn1, tid ASC"

...så kommer alla med Namn1=1 först och alla med Namn1=2 sedan, när du loopar ut dessa får du kontrollera när namn1 byts, då börjar du skriva på en ny rad.

/Johan

Svara

Sv: skapa ett rs

Postades av 2002-11-10 10:39:19 - Torbjörn Karlberg

Tjena!

Faktum kvarstår jag vill ha samma tid på en rad även namn och util

Om man kunde baka ihop två rs så här
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\Data\S2kb.mdb"

response.write "<TABLE>"
bgColor = "#E7E2D3"
SQL = "SELECT tid, modell, kund FROM tidserv WHERE Datum= " & SQLDate(Datum) & " and Sman1 = '1' order by tid ASC"
Set rs1 = db.Execute(SQL)

SQL = "SELECT tid, modell, kund FROM tidserv WHERE Datum= " & SQLDate(Datum) & " and Sman1 = '2' order by tid ASC"
Set rs2 = db.Execute(SQL)

Do Until rs1.Eof, rs2.Eof
if bgColor = "#E7E2D3" THEN
bgColor = "#FFFFDD"
ELSE
bgColor = "#E7E2D3"
end if

response.write "<TR BGCOLOR=" & bgColor & ">"
response.write "<TD>" & Rs1("Tid") & "<TD>" & " " & Rs1("Modell") & "<TD>" & Rs1("Kund") & "<TD>" & Rs2("Tid") & "<TD>" & " " & Rs2("Modell") & "<TD>" & Rs2("Kund") & "</TD>"
response.write "</TR>"

rs1, Rs2.movenext
Loop

response.write "</TABLE>"

%>
Plats för skratt om ni förstår vad jag menar

Ps!
Är nybörjare på ASP så jag kan inte så himmla mycket men försöker att lära.

Tja
Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-10 10:45:50 - Andreas Hillqvist

Testa med:
<code>
<%
Dim db
Dim rs
Dim bgColor
Dim SQL
Dim LastTime

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=C:\Data\S2kb.mdb"

SQL = "SELECT tid, util, Namn, Sman1" & vbCrLf & _
"FROM tidserv" & vbCrLf & _
"WHERE Datum= " & SQLDate(Datum) & " and Sman1 IN ('1', '2') " & vbCrLf & _
"ORDER BY tid ASC"
Set rs = db.Execute(SQL)

If rs.Eof Then
Response.Write "<H3>Inga poster!</H3>
Else
Response.Write "<TABLE>"

Do Until rs.Eof
If bgColor = "#E7E2D3" Then
bgColor = "#FFFFDD"
Else
bgColor = "#E7E2D3"
End if

LastTime = Rs("Tid")
Response.Write "<TR BGCOLOR=" & bgColor & ">"
Do
Response.Write "<TD>" & Rs("Tid") & "</TD><TD>" & Rs("Util") & "</TD><TD>" & Rs("Namn") & "</TD>"
rs.movenext
If rs.EOF Then Exit Do
While LastTime = Rs("Tid")
Response.Write "</TR>
Loop
Response.Write "</TABLE>"
End If

rs.Close
Set rs = Nothing

db.Close
Set db = Nothing
%>
</code>

Svara

Sv: skapa ett rs

Postades av 2002-11-10 11:35:59 - Torbjörn Karlberg

Tjena Andreas och tack för visat intresse.

Men får detta fel.

Kompileringsfel i Microsoft VBScript fel '800a0409'

Oavslutad strängkonstant

/applications/Main1.asp, rad 65

Response.Write "<H3>Inga poster!</H3>

Verkar vara något med Response.Write "</TR>

/Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-10 11:40:48 - Johan Djupmarker

Response.Write "<H3>Inga poster!</H3>
Ska vara
Response.Write "<H3>Inga poster!</H3>"

/Johan

Svara

Sv: skapa ett rs

Postades av 2002-11-10 12:14:51 - Torbjörn Karlberg

Tjena igen.

Kompileringsfel i Microsoft VBScript fel '800a0409'

Oavslutad strängkonstant

/applications/Main1.asp, rad 86

Response.Write "</TR>
---------------------^

Och skriver jag
Response.Write "</TR>"

så får jag detta
Kompileringsfel i Microsoft VBScript fel '800a040e'

'loop' utan 'do'

/applications/Main1.asp, rad 87

Loop

/Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-10 13:03:32 - Andreas Hillqvist

Testa:
<code>
<%
Dim db
Dim rs
Dim bgColor
Dim SQL
Dim LastTime

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=C:\Data\S2kb.mdb"

SQL = "SELECT tid, util, Namn, Sman1" & vbCrLf & _
"FROM tidserv" & vbCrLf & _
"WHERE Datum= " & SQLDate(Datum) & " and Sman1 IN ('1', '2') " & vbCrLf & _
"ORDER BY tid ASC"
Set rs = db.Execute(SQL)

If rs.Eof Then
Response.Write "<H3>Inga poster!</H3>"
Else
Response.Write "<TABLE>"

Do Until rs.Eof
If bgColor = "#E7E2D3" Then
bgColor = "#FFFFDD"
Else
bgColor = "#E7E2D3"
End if

LastTime = Rs("Tid")
Response.Write "<TR BGCOLOR=" & bgColor & ">"
Do
Response.Write "<TD>" & Rs("Tid") & "</TD><TD>" & Rs("Util") & "</TD><TD>" & Rs("Namn") & "</TD>"
rs.movenext
If rs.EOF Then Exit Do
Loop While LastTime = Rs("Tid")
Response.Write "</TR>"
Loop
Response.Write "</TABLE>"
End If

rs.Close
Set rs = Nothing

db.Close
Set db = Nothing
%>
</code>

Svara

Sv: skapa ett rs

Postades av 2002-11-10 13:39:07 - Torbjörn Karlberg

Hej
Nu vart det riktigt himppavippa

Nu visas nästan hela sql strängen på sidan varvat med färgade fält

/Tobbe

Svara

Sv: skapa ett rs

Postades av 2002-11-11 21:39:25 - Torbjörn Karlberg

Till Andreas

Fick det att funka med din Kod efter att jag tog bort Sman1 i select satsen!

som sagt det första man blir blind på är ögonen

Tackar
Tobbe :-)

Svara

skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Sv: skapa ett rs

Nyligen

Sidor

Statistik

Kontakta oss