19. februar 2004 - 22:48Der er
6 kommentarer og 1 løsning
Liste og Database.
Hejsa..
Jeg er igang med at lave et brugeinfo på mit site. Det kører over asp og nu vil jeg gerne liste alle registreret brugere.. Det vil, efter min mening, være bedst i en list, i ved:
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select * from profiler order by navne" ' navne er feltet med navnene ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) %>
<select name="Profiler" size="10" lang="da">
' Gennemløb Recordset (rs) med en løkke Do While Not rs.EOF Response.write "<option value="" & rs("id") & "">" & rs("navne") & "</option>" rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop %> </select> %> ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
Her hedder database filen "database.mdb" og ligger i samme mappe som asp filen..
Takker, men fik formuleret mig forkert vist... Det er meningen at når man klikker på person at der skal vises info af ham på siden... Har lagt et eksempel på www.soeborg.biz/dataliste.jpg
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select * from profiler order by navn" ' navne er feltet med navnene ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) %>
' Gennemløb Recordset (rs) med en løkke Do While Not rs.EOF Response.write "<option value="" & rs("id") & "">" & rs("navne") & "</option>" rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop %> </select><br> <% strSQL = "Select * from profiler where id = " request.form("Profiler") Set rs = Conn.Execute(strSQL)
if (not rs.bof) and (not rs.eof) then response.write "Navn: " & rs("navn") & "<br>" response.write "Adresse: " & rs("adresse") & "<br>" response.write "Postnummer og by: " & rs("postnummer") & " " & rs("bynavn") else response.write "Brugeren kunne ikke findes i databasen!!" end if
' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
Feltet i databasen må ikke hedde "by", da ordet "by" er reserveret.. derfor heddet feltet "bynavn".
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.