Avatar billede kragekjaer Praktikant
20. november 2001 - 19:48 Der er 6 kommentarer og
1 løsning

sql fra flere tabeller til en side i samme database!!!???

Kan man gøre dette smartere, eller anderledes, for det virker ikke:

<%
Set Con = Server.CreateObject    (\"ADODB.Connection\")
        Con.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")
        sqlString=\"select top 1 * from (mini) order by ID desc\"
        set rs=Con.Execute (sqlString)
        Con.close
%>

<%       
        Set Con1 = Server.CreateObject    (\"ADODB.Connection\")
        Con1.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")
        sqlString1=\"select top 1 * from (fokus) order by ID desc\"
        set rs1=Con1.Execute (sqlString1)
        Con1.close
%>   

<%   
        Set Con2 = Server.CreateObject    (\"ADODB.Connection\")
        Con2.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")
        sqlString2=\"select top 1 * from (andre) order by ID desc\"
        set rs2=Con2.Execute (sqlString2)
        Con2.close
%>
Avatar billede orca Nybegynder
20. november 2001 - 19:54 #1
Da det alle er samme database behøver du ikke at lave et nyt connection objekt for hver, altså kan du nøjes med at gøre således:

<%
Set Con = Server.CreateObject    (\"ADODB.Connection\")
Con.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")
sqlString=\"select top 1 * from (mini) order by ID desc\"
sqlString1=\"select top 1 * from (fokus) order by ID desc\"
sqlString2=\"select top 1 * from (andre) order by ID desc\"
set rs=Con.Execute (sqlString)
set rs1=Con.Execute (sqlString1)
set rs2=Con.Execute (sqlString2)
Con.Close
%>

Dette sparer en del resourcer, det perfekte ville dog være at lave et \"view\" inde i din access database. Et view er en slags sql forespørgsel som kan indeholde flere felter fra flere forskellige tabeller. Du kan få hjælp til dette emne inde i Access.

Mvh Mark
Avatar billede kragekjaer Praktikant
20. november 2001 - 20:06 #2
tak, men jeg får denne fejl:

ADODB.Recordset error \'800a0cc1\'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/fokus/forside.asp, line 60


Linie 60:
                      <td width=\"78%\" valign=\"top\" class=\"tekst\" height=\"59\"><a href=\"minipjecer.asp\">&quot;<%=rs(\"titel\")%>&quot;</a><br>
Avatar billede orca Nybegynder
20. november 2001 - 20:35 #3
Dette betyder at feltet \"titel\" ikke kunne findes i recordset\'et rs. Og rs henter records fra tabellen \"fokus\". Altså betyder det at tabellen fokus ikke har et felt titel.

Mvh Mark
Avatar billede kragekjaer Praktikant
20. november 2001 - 20:43 #4
Det har den altså, det har faktisk alle tabellerne...
Avatar billede orca Nybegynder
20. november 2001 - 20:46 #5
Prøv at brug følgende kode i stedet:

<%
Set Con = Server.CreateObject    (\"ADODB.Connection\")
Con.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")
set rs=Con.Execute (\"select top 1 * from [mini] order by [ID] desc\")
set rs1=Con.Execute (\"select top 1 * from [fokus] order by [ID] desc\")
set rs2=Con.Execute (\"select top 1 * from [andre] order by [ID] desc\")
%>
Avatar billede kragekjaer Praktikant
20. november 2001 - 20:51 #6
Mange tak, nu virker det!!!
Avatar billede orca Nybegynder
20. november 2001 - 20:52 #7
Det var så lidt, tak for point :).
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester