--- title: "Problem med öppning av databas." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/116651-problem-med-öppning-av-databas" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Nicklas" published: "2004-11-25T06:24:44.000Z" updated: "2004-11-25T08:17:20.000Z" replies: 7 views: 304 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/116651-problem-med-öppning-av-databas" --- # Problem med öppning av databas. ## #1 — Nicklas, 2004-11-25T06:24Z Hej. Är det någon som vet hur/om det går att lösa så att man inte behöver anroppa och stänga databasen 4 ggr? Jag har försökt med att göra en IF-sats men det lyckades ju inte :stud Tack på förhand. ``` <%@ LANGUAGE="VBSCRIPT" %> <% set Databas = Server.CreateObject("ADODB.Connection") session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser" Databas.Open session("dbloggbok") lnklogid = Request.Querystring("logid") 'kollar alltid maxid, man kan bara redigera maxid strSQLMaxID = "SELECT MAX(LogID)AS MaxId FROM Loggbok" set rsMaxid = Databas.Execute (strSQLMaxid) strmaxid = rsMaxid("MaxId") if len(lnklogid) > 0 then strSQL = "SELECT * FROM Loggbok WHERE LogID = " & lnklogid else strSQL = "SELECT * FROM Loggbok WHERE LogID = " & strmaxid end if function mydateformat(str) if len(month(str))< 2 then strmonth = "-0" & month(str) else strmonth = "-" & month(str) end if if len(day(str))< 2 then strday = "-0" & day(str) else strday = "-" & day(str) end if mydateformat = year(str) & strmonth & strday & " " & formatdatetime(str,vbshorttime) end function set rs = Databas.Execute (strSQL) strlogid = rs("LogID") %> <%=mydateformat(rs("Datum"))%> <%=mydateformat(rs("Datum"))%> Skiftlag <%=rs("Skiftlag")%> <%if strlogid <> strmaxid then %> <%else%> &sort=Steam" title="Klicka för att redigera Ånga">Ånga <%end if%> <%=rs("Steam")%> <%if strlogid <> strmaxid then %> <%else%> &sort=AirWater" title="Klicka för att redigera Luft/Vatten">Luft/vatten <%end if%> <%=rs("AirWater")%> <%if strlogid <> strmaxid then %> <%else%> &sort=Env" title="Klicka för att redigera miljö">Miljö <%end if%> <%=rs("Env")%> <%if strlogid <> strmaxid then %> <%else%> &sort=Hg" title="Klicka för att redigera CRV">CRV <%end if%> <%=rs("Hg")%> <%if strlogid <> strmaxid then %> <%else%> &sort=Earth" title="Klicka för att redigera Jordreningen">Jordreningen <%end if%> <%=rs("Earth")%> <%if strlogid <> strmaxid then %> <%else%> &sort=Other" title="Klicka för att redigera Övrigt">Övrigt <%end if%> <%=rs("Other")%> <% rsMaxid.close rs.close databas.Close %> <% set Databas = Server.CreateObject("ADODB.Connection") session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser" Databas.Open session("dbloggbok") strSQL = "SELECT * FROM WhiteBoard WHERE wbID = 1" set rs = Databas.Execute(strSQL) %> <%=rs("wbtext")%> <% rs.close databas.Close %> <% set Databas = Server.CreateObject("ADODB.Connection") session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser" Databas.Open session("dbloggbok") strSQL = "SELECT * FROM Lasse WHERE laID = 1" set rs = Databas.Execute(strSQL) %> <%=rs("latext")%> <% rs.close databas.Close %> <% set Databas = Server.CreateObject("ADODB.Connection") session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser" Databas.Open session("dbloggbok") strSQL = "SELECT * FROM Bengt WHERE beID = 1" set rs = Databas.Execute(strSQL) %> <%=rs("betext")%> <% rs.close databas.Close %> ``` Permalänk: https://www.webforum.nu/p/116651 ## #2 — @nders, 2004-11-25T07:00Z Det är bara att öppna din databaskoppling en gång, och inte stänga den förrän du är klar (dvs sist i filen). mvh Permalänk: https://www.webforum.nu/p/1492175 ## #3 — Nicklas, 2004-11-25T07:38Z Tack @nders, Jag får det ändå inte att fungera. Det är dessa rader som jag inte vet hur jag ska inkludera i koden. strSQL = "SELECT \* FROM Bengt WHERE beID = 1" strSQL = "SELECT \* FROM WhiteBoard WHERE wbID = 1" strSQL = "SELECT \* FROM Lasse WHERE laID = 1" Permalänk: https://www.webforum.nu/p/1492180 ## #4 — @nders, 2004-11-25T07:40Z Hmm... Vad innehåller dina tabeller? Borde inte all data ligga i samma tabell? Permalänk: https://www.webforum.nu/p/1492182 ## #5 — Nicklas, 2004-11-25T07:44Z Det är som du säger att jag har data i olika tabeller, jag kanske ska tänka om och lägga allt i en och samma tabell? Går det att lösa ändå? Permalänk: https://www.webforum.nu/p/1492183 ## #6 — @nders, 2004-11-25T07:56Z Följande saker förstår jag inte: 1) Varför du har "liknande" / "samma sorts" data i flera tabeller. Lägg ihop det till en tabell. 2) Varför du skapar en session med din connectionstring inför varje databasöppning. 3) Varför du har massor av if-satser med samma villkor, där bara else-delen utför något. Om jag vore du skulle jag: 1) Se till att lägga allt liknande / samma sorts data i en tabell. 2) Se till att bara öppna ditt connectionobjekt en gång 3) Skriva om dina if-satser så det inte blir lika mycket luft. Istället för att bara använda else-delen, skriv om if-satsen. Istället för att använda \<\> (skilt från), använd då =. **Edit:** Jo, det går att lösa ändå, men jag föredrar att problem löses på rätt sätt. :) mvh Permalänk: https://www.webforum.nu/p/1492185 ## #7 — Nicklas, 2004-11-25T08:07Z Tack @nders, självklart ska det lösas på rätt sätt. Jag ska försöka rensa upp och lägga allt i en o samma tabell. Permalänk: https://www.webforum.nu/p/1492194 ## #8 — @nders, 2004-11-25T08:17Z Börja att rensa och försök bygga om lite, så är det bara att återkomma om du behöver mer hjälp. Jag hoppas du fått lite hjälp på vägen av mig i alla fall. Lycka till! :) Permalänk: https://www.webforum.nu/p/1492195 --- Tråden på webben: https://www.webforum.nu/amne/asp/116651-problem-med-öppning-av-databas