Søg
Avatar billede Jman Praktikant
11. september 2003 - 20:03 Der er 13 kommentarer og
3 løsninger

Liste personer - derefter opgaver

Er der nogen der kan lave mig et eksempel på dette:
Jeg har en SQL database hvor der står

[id] [ansvarlig] [afdeling] [opgave] [beskrivelse] [prioritet]

I databasen er der naturligvis en masse entries. Kunne eksempelvis se således ud
[3434] [superior] [testopgave] [dette er en test] [01]
[3435] [allan] [testopgave1] [dette er en test1] [01]
[3436] [superior] [testopgave1] [dette er en test1] [02]

Jeg vil gerne have listet, så jeg får følgende udtræk:
(afdelingens personers opgaver)

superior's opgaver:
(løkke)
[id] [opgave] [beskrivelse] [prioritet]
(løkke slut)
allan's opgaver:
(løkke)
[id] [opgave] [beskrivelse] [prioritet]
(løkke slut)

Der er naturligvis mange flere navne og opgaver.. men ideen er at den skal spørge på alle der er i en afdeling og derefter lister de personers opgaver under personens navn
Håber det er til at forstå :)
Avatar billede michael_stim Ekspert
11. september 2003 - 20:11 #1
<%
DSN=stien til din database

conn.Open DSN

strSQL = "SELECT * FROM TabelNavn"
' SQL sætning eksekveres
set RS = conn.execute(strSQL)
do while not rs.EOF

response.write rs("id")
response.write rs("ansvarlig")
response.write rs("afdeling")
response.write rs("opgave")
response.write rs("beskrivelse")
response.write rs("prioritet")

rs.moveNext
loop
%>
Avatar billede eagleeye Praktikant
11. september 2003 - 20:11 #2
Et eks:

SQL = "SELECT * FROM tabelnavn ORDER BY ansvarlig"
Set rs = Conn.Execute(SQL)

ansvarlig= ""
response.write "<table>"
do while not rs.EOF
  Response.write "<tr><td>"
  if ansvarlig <> rs("ansvarlig") then
    Response.write rs("ansvarlig")
    ansvarlig = rs("ansvarlig")
  else
    Response.write "&nbsp;"
  end if
  Response.write "</td>"
  Response.write "<td>" & rs("id") & "</td>"
  Response.write "<td>" & rs("opgave") & "</td>"
  Response.write "<td>" & rs("beskrivelse") & "</td>"
  Response.write "<td>" & rs("prioritet") & "</td>"
  Response.write "</tr>
  rs.Movenext
loop
Response.write "</table>
Avatar billede eagleeye Praktikant
11. september 2003 - 20:14 #3
arh der mangler et " i sidste linje ;)  nå det da til at rette..
Avatar billede michael_stim Ekspert
11. september 2003 - 20:14 #4
Så kan du selv sätte värdierne ind i tabeller:
<table>
<tr>
<td>
Navn:
</td>
<td>
<% =rs("ansvarlig"> %>
</td>
</tr>
....
</table>
Avatar billede michael_stim Ekspert
11. september 2003 - 20:19 #5
Oooops: <% =rs("ansvarlig") %>
Avatar billede eagleeye Praktikant
11. september 2003 - 21:49 #6
Fik du det afprøvet?
Avatar billede nielle Nybegynder
12. september 2003 - 08:15 #7
<%
SQL = "SELECT DISTINCT Navn FROM DinTabel ORDER BY Navn"
set rs1 = Conn.Execute(SQL)

Response.Write(rs1("Navn") & "'s opgaver:<br>")

do while not rs1.eof
  SQL = "SELECT * FROM DinTabel WHERE Navn='" & rs1("Navn") & "' ORDER BY Prioritet"
  set rs2 = Conn.Execute(SQL)
 
  do while not rs2.eof
    Response.Write(rs2("Id") & " " & rs2("Opgave") & " " & rs2("Beskrivelse") & " " & rs2("Prioritet") & "<br>")
 
    rs2.MoveNext
  loop
 
  rs1.MoveNext
loop
%>
Avatar billede nielle Nybegynder
12. september 2003 - 08:17 #8
Ups: "Navn" skal udskiftes med "Ansvarlig"
Avatar billede Jman Praktikant
12. september 2003 - 13:44 #9
takker for en masse svar - grundet andet "akut arbejde" får jeg først kigget på det tirsdag i næste uge ... jeg vender tilbage :)
Avatar billede Jman Praktikant
19. september 2003 - 14:14 #10
doh - jeg har vist fået beskrevet mig fejlagtigt.
Feltet Afdeling findes i en anden database, så jeg skal selvfølgelig bede om en SQL, der smaler trådene.
Det er vist noget med inner join, men det er jeg ikke skide god til...
Avatar billede michael_stim Ekspert
19. september 2003 - 14:47 #11
SQL = "SELECT navn,......, Afdeling FROM tabelnavn1, tabelnavn2"
Avatar billede eagleeye Praktikant
19. september 2003 - 19:04 #12
Ja det bør helt klar laves med INNSER JOIN:

SQL = "SELECT * FROM tabelnavn INNSER JOIN TABELansvarlig ON tabelnavn.ansvarID = TABELansvarlig.ansvarID ORDER BY TABELansvarlig.ansvarlig"

Du har ikke oplyst alle kolonnenavn og tabel navne så jeg håber du kan se hvad meninger er ;)
Eller så bare spørg.
Avatar billede michael_stim Ekspert
20. september 2003 - 04:31 #13
eagleeye INNSER JOIN ???
:0)
Avatar billede michael_stim Ekspert
20. september 2003 - 04:35 #14
eagleeye>>Jeg ved du er en af de mest kompetente her på eksperten, MEN INNSER JOIN 2 gange er mere end en stavefejl :oD
Avatar billede eagleeye Praktikant
20. september 2003 - 11:35 #15
LOL, det ser jeg først nu... danm det ikke engang tæt på at være rigtigt, der må havde være grus i keyboardet ;)
Jeg tror godt superior kan se fejlen.
Avatar billede Jman Praktikant
24. september 2003 - 12:39 #16
hmm - jeg får det ikke til at virke - måske fordi tabellen med ansvarliges afdeling er Active Directory ... jeg lukker opgaven og prøver at finde et alternativ - ellers må jeg spørge igen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »