artlind Posted August 28, 2008 Share Posted August 28, 2008 Har suttit och trixat i för många timmar nu ögonen snurrar. Försöker med att undvika använda flera sql anrop och slå ihop det till en men lyckas inte med det. Försöker rita upp problemet Har 3 tabeller som jag vill hämta data från. Nyheter, Kommentarer, Profil Ur nyheter så vill jag lista upp de 10 senaste nyheterna och räkna antalet kommentarer kopplade till respektive nyhet och sedan ersätta författarens använderid med dess korrekta användarnamn. Här är koden jag använt hittills som fungerar Call dbOpen() strSQL = "SELECT TOP 10 * FROM tbl_nyheter ORDER BY log_date DESC" Set objRS = objCon.Execute(strSQL) if not (objRS.EOF) then Do Until objRS.EOF strSQLtemp = "SELECT COUNT(*) AS kommentarer FROM tbl_kommentar WHERE nyheter_sid = '"&objRS("nyheter_sid")&"'" Set objRStemp = objCon.Execute(strSQLtemp) strKommentarer = objRStemp("kommentarer") objRStemp.Close Set objRStemp = Nothing strSQLtemp = "SELECT * FROM tbl_profil WHERE profil_sid = '"&objRS("log_name")&"'" Set objRStemp = objCon.Execute(strSQLtemp) strUsername = objRStemp("profil_anvandarnamn") objRStemp.Close Set objRStemp = Nothing Här är koden jag gjort ett försök med strSQL = "SELECT TOP 5 tbl_nyheter.rubrik, tbl_nyheter.log_date, tbl_profil.profil_anvandarnamn, (SELECT Count(tbl_kommentar.id) FROM tbl_kommentar WHERE tbl_kommentar.nyheter_sid = tbl_nyheter.sid) FROM tbl_nyheter INNER JOIN tbl_profil ON tbl_nyheter.log_name = tbl_profil.profil_anvandarnamn ORDER BY tbl_nyheter.log_date DESC" och jag får följande felmed: Microsoft JET Database Engine fel '80040e10' Det har inte angetts något värde för en eller flera nödvändiga parametrar. [inlägget ändrat 2008-08-28 12:16:38 av artlind] Tråden flyttad från ASP & VBScript av moderator [inlägget ändrat 2008-08-28 13:09:25 av Cluster] Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.