sammenligning af to set data i to forskellige tabeller

Jeg må indrømme, at jeg ikke er med på, hvad du vil. Du skal pludselig ikke have vist historie men pleje? Uden at siden genindlæses eller hvordan?

Hvad med at lade flash bruge javascript. Så kan du gøre dette:

Ret:
strVisTxt =rs("Historie")
Response.Write strVisTxt

Til:
Response.Write "<div id=""historie"" style=""display:inline"">"&rs("Historie")&"</div>"
Response.Write "<div id=""pleje"" style=""display:none"">"&rs("Pleje")&"</div>"

Så kan du i Flash kalde url'en:
java script:document.getElementById('historie').style.display='none';document.getElementById('pleje').style.display='inline';void(0)

Øv det er svært at forklare uden at vise websitet, og det vil jeg helt ikke have frem her på eksperten.

Men jeg har et asp dokument billede.asp, hvor der er embed en .swf fil med en knap. Ved klik på knappen, skal jeg have vist den næste (Pleje) tekst under .swf filen i billede.asp, så ja uden at genindlæse, hvis det kan lade sig at gøre.

Jeg har variablen i Flash myGr... som indeholder GruppeID, men det kan vist ikke bruges i denne sammenhæng.

Tak for at du tager dig tid.

Brug evt. hotmailen fauer_flora, så kan jeg sende en url til sitet.

Mvh fauer

Jeg skal lige høre dig først: når du siger den næste (pleje-) tekst, mener du så den plejetekst, der i databasen står ved siden af historieteksten?

Har du prøvet mit eksempel, for det skulle gerne gøre, præcis hvad du søger.

Jeg arbejder på det...
Jaeh, Historie og Pleje teksterne står i hver sin kolonne, men ikke lige ved siden af hinanden... skal de det?

Mvh fauer

Nej det behøver de ikke.

Hej w13

Lige nu kæmper jeg med bare at få vist "Historie". Jeg prøver med følgende:

strSQL = "Select * From FFtabel where ID=" & request.querystring("ID")
Set rs = Conn.Execute(strSQL)
Response.Write rs("GruppeID")
           
strSQL2 = "Select * From GruppetxtTabel where Gruppe=" & rs("GruppeID")
Set rs2 = Conn.Execute(strSQL2)
Response.Write rs2("Historie")

GruppeID kommer fint frem, men jeg får følgende fejl på Historie:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Hvad betyder det, og kan du se hvad jeg gør galt?

Mvh fauer

Ja. Den mangler et parameter. Hvis du kunne se, hvordan rs("GruppeID") blev sat ind i din strSQL2, ville du opdage, at den mangler. Man kan nemlig kun bruge rs én gang. Så prøv med:

Set rs = Conn.Execute("Select * From FFtabel where ID=" & request.querystring("ID"))
strGruppeID = rs("GruppeID")
Response.Write strGruppeID
           
Set rs2 = Conn.Execute("Select * From GruppetxtTabel where Gruppe=" & strGruppeID)
Response.Write rs2("Historie")

Bemærk også, at jeg har lagt dine 2 sql-sætninger direkte ind i Conn.Execute. Det sparer dit både strings og plads.

Jeg får den samme fejl

Jeg tror, jeg må se mere af din kode så.

Har det noget at gøre med at Historie er et notat og de andre er tekst?

Nej, det burde det ikke have. Post lige den nuværende kodedel, så jeg kan se, om det står rigtigt. Er du helt sikker på, felterne og tabellen hedder det samme i databasen?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/xxxxx/db/FFdatabase.mdb")
Conn.Open DSN
           
strSQL = "Select * From FFtabel where ID=" & request.querystring("ID")
Set rs = Conn.Execute(strSQL)
           
strVisBillede ="<img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' border='1'>"
           
Response.Write strVisBillede
           
%><br>
<br>
</td>
<td valign="bottom" align="left" class="rubrik2" width="225">
<%
   
strSQL = "Select * From FFtabel where ID=" & request.querystring("ID")
Set rs = Conn.Execute(strSQL)
           
Response.Write rs("DKnavnID") & "<br>&nbsp;" & rs("NavnID") & "<br>&nbsp;" & rs("GruppeID") & "-gruppen<br><p>&nbsp;" & rs("LnavnID") & "<br>&nbsp;" & rs("FamilieID") & "</p><br />"
           
%>
</td>
</tr>
<tr>
<td colspan="2" valign="top" align="left" class="norm" width="335">
<%
               
strSQL = "Select * From FFtabel where ID=" & request.querystring("ID")
Set rs = Conn.Execute(strSQL)
           
            flash_scr="/xxxxxxx/db/FFkalender/"&rs("KalenderID")&"?varCm="&rs("CmID")&","&rs("AfstandID")&","&rs("Farve1ID")&","&rs("LoegID")&","&rs("DybdeID")&","&rs("BlomstID")&","&rs("HaardfoerID")&","&rs("SolID")&","&rs("HalvskygID")&","&rs("SkyggeID")&","&rs("Farve2ID")&","&rs("FraBlomstringID")&","&rs("TilBlomstringID")
           
%>
           
<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab" width="335" height="190" align="top">
           
<param name='movie' value="<%=flash_scr%>">
<param name='quality' value='best'>
<param name='play' value='true'>           
<embed align="top" src="<%=flash_scr%>" quality='high' pluginspage="http://www.macromedia.com/go/getflashplayer" type='application/x-shockwave-flash' border="1" width="335" height="190" quality='best' play='true'></embed>
           
</object>
</td>
</tr>
<tr>
<td colspan="2" valign="top" align="left" class="norm" width="335">
<%
Set rs = Conn.Execute("Select * From FFtabel where ID=" & request.querystring("ID"))
strGruppeID = rs("GruppeID")
Response.Write strGruppeID
         
Set rs2 = Conn.Execute("Select * From GruppetxtTabel where Gruppe=" & strGruppeID)
Response.Write rs2("Historie")   
%>
           
<%           
Conn.Close
Set Conn = Nothing       
%>

Ja jeg har tjekket tabellerne 100 gange og de ser rigtige ud.
Er det når jeg sammenligner de to grupper med hinanden det går galt? Skal Gruppe være en primær nøgle?

Alt bliver vist korrekt, pånær "Historie"

Jeg holder for i dag, men vender frygtelig tilbage i morgen..  ;o)

Hmmm. Vi må lige prøve at se, om den overhovedet finder noget ved historie i databasen.

<%Set rs = Conn.Execute("Select * From FFtabel where ID=" & request.querystring("ID"))
strGruppeID = rs("GruppeID")
Response.Write strGruppeID
         
Set rs2 = Conn.Execute("Select * From GruppetxtTabel where Gruppe=" & strGruppeID)

If Not rs.EOF Then
Response.Write rs2("Historie")
Else
Response.Write "Intet fundet"
End If%>

Jeg får den samme fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Mvh fauer

Og er Gruppe af typen tal?

Nej Gruppe og GruppeID er begge typen tekst.

Ok. Det forklarer det vist. Så skal du have ' om værdien strGruppeID.

Set rs2 = Conn.Execute("Select * From GruppetxtTabel where Gruppe='" & strGruppeID & "'")

Griner... og det har jeg/vi brugt 3 dage på... faldgrupe nr. 1!!!

Nå men nu vil jeg prøve om jeg kan udskifte teksten fra Flash filen.

:) ok.

I min flash vil jeg gerne have en knap som udskifter teksten Historie med teksten Pleje.

Det ville jeg gerne gøre sådan som du skrev, men det virker ikke.

on (release) {
    java script:document.getElementById('historie').style.display='none';document.getElementById('pleje').style.display='inline'
    nextFrame();
}

Du skal vist have det i en getUrl(), tror jeg.

Anyway så har du svaret på mit spørgsmål, og jeg er meget glad... tak for hjælpen!

Når jeg gør sådan:
on (release) {
getURL("java script:document.getElementById('historie').style.display='none';document.getElementById('pleje').style.display='inline'");
nextFrame();
}
så bliver mit .asp dok skiftet ud med en blank side med teksten inline.... ???

Så jeg opretter et nyt spørgsmål i Flash kategorien.

Endnu en gang tak for hjælpen.

Mvh fauer

Jeg tror faktisk bare, du skal skrive:

getURL("java script:document.getElementById('historie').style.display='none';document.getElementById('pleje').style.display='inline';void(0)");

Altså tilføje void(0) bagefter. Ellers kan den godt finde på at lave blank side, når man indleder med java script:

Og tak for point. =)

HA! hvor er du go'

Jeg er meget glad det virker lige som jeg ønskede mig.
Tusinde tak!

Så lidt :)

Hold øje med www.fauerflora.dk her i efteråret bliver den uploadet... måske allerede om en månedes tid, så kan du se hvad din viden har været med til at udvikle.

Mvh fauer

Vil jeg glæde mig til :)

Hej w13

Jeg har oprettet et nyt spørgsmål i forlængelse af dette, men der er ingen der svarer mig, og jeg tror du kender svaret... vil du ikke prøve at kigge på det?
http://www.eksperten.dk/spm/802901
Mvh fauer