12. juni 2004 - 17:20Der er
12 kommentarer og 3 løsninger
Hvordan åbner jeg access database+viser alle records i en tabel?
Ja... Det er lidt besværligt... har en røvfuld tabels i access med relationer... den ene hedder arrangement og indeholder en masse arrangementer som hver har et ID! Så har jeg en tabel som hedder tilmelding, hvor folk der har tilmeldt sig de forskellige arrangementer ryger ind... De har en post der hedder tilmeldtid som refererer til det arrangement de har tilmeldt sig! Jeg vil nu gerne have lavet en optælling som viser de 10 turer som der er flest tilmeldte til... Er det muligt? Og så vil jeg gerne have en funktion som bare viser hvad hver enkelt tur har af tilmeldte?
Jeg håber det er nok info... Tak for hjælpen på forhånd :)...
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/database.mdb") strSQL = "SHOW TABLES" Set objRs = objConn.Execute(strSQL)
While Not objRs.EOF strSQL = "SELECT * FROM " & objRs(0) Set objRs1 = objConn.Execute(strSQL)
While Not objRs1.EOF Response.Write(objRs1("feltnavn") & "<br />") objRs1.MoveNext() Wend objRs.MoveNext() Wend %>
-jeg har ikke prøvet nogen af koderne af så der kan godt være lidt småfejl osv. men jeg må smutte nu, jeg er her igen i morgen hvis der er nogen spørgsmål.
Hmm nu prøvede jeg at kopiere koden direkte og så kun ændre "feltnavn" til "tilmeldtid" og får denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x4ec Thread 0x51c DBC 0xd855fe4 Jet'.
<% strSQL = "SHOW TABLES;" Set objRs = objConn.Execute(strSQL) %> <% While Not objRs.EOF For Each Item In objRs.Fields With Response .Write(objRs.Fields(Item.Name) & "<br>") End With Next objRs.MoveNext() Wend %> Mener egentlig SQL'en hedder SHOW COLUMNS eller noget i den stil, kan sq ik' lige huske det!
Jeg kan ikke få en skid til at virke :( Sorry... Jeg har besluttet at betale mig fra det og få en ven til at lave det :(... Men tak for hjælpen... Medions - du får halvdelen af pointene for besværet...Håber det er ok!
Synes godt om
Ny brugerNybegynder
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.
