--- title: "NoteID = 0" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/117030-noteid-0" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Fraggel" published: "2004-11-30T13:55:08.000Z" updated: "2004-12-01T16:42:42.000Z" replies: 11 views: 321 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/117030-noteid-0" --- # NoteID = 0 ## #1 — Fraggel, 2004-11-30T13:55Z Av någon anledning så vill denna kod inte hämta värdet somligger i fältet note_ID, det finns data i fältet men vad som än står där så returneras värdet 0. Tabellen är en qry av ett flertal tabeller i ACCESS xp. ``` Function presentActivity(unid) Dim strTHTML Dim strSQL strSQL = "SELECT * FROM qryActivity WHERE activity_ID=" & unid Set objConn = server.CreateObject("ADODB.Connection") Set objRs = server.CreateObject("ADODB.Recordset") objConn.Open (strDatabase) ' Opens database, strDatabase public objRs.Open strSQL,objConn,1,2 ' Opens Recordset Dim name Dim f_name Dim s_name Dim username Dim note Dim statusText Dim description Dim priority customer_ID = objRs("customer_ID") 'public noteID = objRs("note_ID") 'public name = objRs("name") 'Company name f_name = objRs("f_name") 'Contact f_name s_name = objRs("s_name") 'Contact f_name username = objRs("username") 'Customer owner short username statusText = objRs("statusText") 'Text for Activity status description = objRs("description") 'Text for describing type of activty priority = objRs("priority") 'Priority of activity objRs.Close objConn.Close note = insertNote(noteID) 'Gets Notes from table Notes in db. strTHTML = strTHTML &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
Företag:" & name & "Kontakt:" & f_name & " " & s_name & "Kundanvarig:" & username & "
" & note & "
Status:" & statusText & "Angående:" & description & "Prioritet:" & priority & "" &_ "
" presentActivity = strTHTML End Function ``` Permalänk: https://www.webforum.nu/p/117030 ## #2 — Jesper T, 2004-11-30T14:08Z 1\. Tycker att detta borde gå att hämta med en sql-sats 2\. vad/var är funktionen insertNote()? Permalänk: https://www.webforum.nu/p/1497585 ## #3 — Jesper T, 2004-11-30T14:10Z strSQL = "SELECT \*, note FROM qryActivity q,notes n WHERE q.noteid=n.noteid and activity_ID=" & unid Permalänk: https://www.webforum.nu/p/1497586 ## #4 — Fraggel, 2004-11-30T14:12Z 1 Men det gör jag ju... ``` strSQL = "SELECT * FROM qryActivity WHERE activity_ID=" & unid ``` 2 inserNote() Hämtar texten note ur en annan tabell som är gemensam för ALLA tabeller som innehåller en note, detta för att spara plats, då kanske inte alla poster har en note... Permalänk: https://www.webforum.nu/p/1497587 ## #5 — Jesper T, 2004-11-30T14:13Z Tycker att allt detta borde gå att hämta med en sql-sats Permalänk: https://www.webforum.nu/p/1497588 ## #6 — Fraggel, 2004-11-30T14:40Z Hmm saken är den att den "godkänner" ju objRs("note_ID") så datan finns ju där... Ialla fall så finns det med i "collectionen" Permalänk: https://www.webforum.nu/p/1497594 ## #7 — Jesper T, 2004-11-30T14:58Z Vad får du för resultat om du ändrar : presentActivity = strTHTML till presentActivity = noteID Permalänk: https://www.webforum.nu/p/1497603 ## #8 — Fraggel, 2004-11-30T15:12Z presentActivity = noteID = 0 Jag hittade dock problemet, I tabellen finns det flera fält med samma namn från olika tabeller... men dom står som activity.note_ID, contact.note_ID och customer.note_ID men det går inte att hämta upp värdet av dem med objRs("activity.note_ID") osv utan den sväljer enbart objRs("note_ID") men då levererar den fel värde... Så jag har löst det tillfälligt... MEN hur löser jag det för att få det att funka med ALLA dessa fälten? utan att göra om hela djävla databasen (det är för längt gånget för att jag skall hinna med det... Permalänk: https://www.webforum.nu/p/1497605 ## #9 — Jesper T, 2004-11-30T15:21Z Använd inte \* i din sql utan deklarera ut samtliga kolumner du skall ha istället. Permalänk: https://www.webforum.nu/p/1497611 ## #10 — Fraggel, 2004-11-30T22:05Z Suck :) kan du gissa vilken SQL sats vi snackar om då !!! Det rör sig om ett 30tal fält :) Permalänk: https://www.webforum.nu/p/1497786 ## #11 — Eclipse, 2004-12-01T15:35Z Stjärnan suger "fet elefantballe" (citat från en kändis). Använd inte stjärnan. \*\*\* Du kan DIMa kod på detta sättet: Dim name, f_name, s_name, username, note, statusText ... osv Samma sak med att tilldela värde, name = myRow(1,0) : f_name = myRow(2,0) : s_name = myRow(3,0) : username = myRow(4,0) : note = myRow(5,0) : statusText = myRow(6,0) ... osv \*\*\* Jag håller med dig, 30 poster är många poster och det tar mycket plats. Men om du inte skriver all kod i höjdled utan även utnyttjar bredden blir det lite mer överskådligare. Det är bättre du skriver så här: SQL = "SELECT **ID**, name, f_name, s_name, username, note, statusText ... FROM \[minTabell\]" set mySQL = Conn.Execute(SQL) och sen som ovan, name = mySQL(1) : f_name = mySQL(2) : s_name = mySQL(3) : username = mySQL(4) : note = mySQL(5) : statusText = mySQL(6) ... osv Permalänk: https://www.webforum.nu/p/1498039 ## #12 — Fraggel, 2004-12-01T16:42Z Hajjar nästa vad du är ute efter jag löste det dock genom att Lägga ALLA fält namni en separat tabell och "auto generera" min SQL sats... Fult men det funkar och blir lätt läst i koden :) Och mycket enkelt att felsöka då... Permalänk: https://www.webforum.nu/p/1498070 --- Tråden på webben: https://www.webforum.nu/amne/asp/117030-noteid-0