20. november 2001 - 19:48Der 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 %>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
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.
<% 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\") %>
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.