Avatar billede mortency Nybegynder
26. februar 2002 - 17:42 Der er 10 kommentarer og
1 løsning

Hente data fra ASP & DB til FLASH

Jeg skal hente inn data til flash. I databasen er det en tabell som heter tblSite. Fra den skal jeg hente Side, Heading og Hovedtekst.

Flash filen har 5 scener. Scene Hovedside og Utstyr skal hente ut data fra databasen.

************
FLASH FILEN.
************

-SCENE HOVEDSIDE.
loadVariablesNum ("hovedside.asp", 0, "GET");(Henter data til hovedsiden.)

-SCENE UTSTYR.
loadVariablesNum ("Utstyr.asp", 0, "GET");");(Henter data til utstyrsiden.)

Videre skriver jeg bare variabel navnet i tekstboksen som dataene skal frem i.

Hvordan ser ASP filen ut?

**********
SOM DETTE?
**********

<%
Option Explicit

Dim oRS, oConn, Side

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open

Side = "Hovedside"

oRS.Open "SELECT * FROM tblSite", oConn, 2, 3
oRS.Find "NameLast = '" & Side & "'"
If oRS.EOF Then
    Response.Write "Side=Ikke+Funnet&Heading=Ikke+Funnet&Hovedtekst=Ikke+Funnet"
Else
    Response.Write "Side=" & Server.URLEncode(oRS("Side")) & "&Heading=" & Server.URLEncode(oRS("Heading")) & "&Hovedtekst=" & Server.URLEncode(oRS("Hovedtekst"))
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

******************************************************
Hvordan gjøres dette? Noen som vet om en bra tutorial?
******************************************************
Avatar billede mortency Nybegynder
26. februar 2002 - 17:45 #1
RETTELSE.....

<%
Option Explicit

Dim oRS, oConn, Side

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open

Side = "Hovedside"

oRS.Open "SELECT * FROM tblSite", oConn, 2, 3
oRS.Find "Side = '" & Side & "'"
If oRS.EOF Then
    Response.Write "Side=Ikke+Funnet&Heading=Ikke+Funnet&Hovedtekst=Ikke+Funnet"
Else
    Response.Write "Side=" & Server.URLEncode(oRS("Side")) & "&Heading=" & Server.URLEncode(oRS("Heading")) & "&Hovedtekst=" & Server.URLEncode(oRS("Hovedtekst"))
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
Avatar billede wilweb Nybegynder
26. februar 2002 - 20:59 #2
http://www.bullfighter.dk/high.html
her kan du se hvordan jeg henter data fra min DB til flash (jeg har fjernet muligheden for at skrive til DB pga. plads problemer)
Avatar billede mortency Nybegynder
27. februar 2002 - 21:48 #3
Når jeg skal hente data i scene1 en skriver jeg:

loadVariablesNum ("get_hovedside.asp", "", "POST");

Dette gjør den som den skal men når jeg skal hente data i scene2 skriver jeg loadVariablesNum ("get_utstyr.asp", "", "POST");

(Dette er en egen asp fil) men her vil den ikke hente data. Hva er feil. Variabelfeltene heter side, Heading, og Hovedtekst i get_hovedside.asp (Samme i scene1)| Variabelfeltene heter side2, heading2 og hovedtekst2 i get_utstyr.asp(Samme i scene2)

Hva er det som er feil? Hvorfor henter den ikke de nye variablene? Jeg har kjørt asp filen og de virker.
Avatar billede wilweb Nybegynder
27. februar 2002 - 22:02 #4
udskriver du dine variabler med response.write?
Skal måske se din asp kode!!!
Avatar billede wilweb Nybegynder
27. februar 2002 - 22:03 #5
hvis det virker i den ene skal det jo også virke i den anden, med mindre du har lavet det anderledes!!!
Avatar billede mortency Nybegynder
27. februar 2002 - 22:45 #6
'Get_hovedside.asp
<%
Option Explicit

Dim oRS, oConn, Side

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open

Side = "Hovedside"

oRS.Open "SELECT * FROM tblSite", oConn, 2, 3
oRS.Find "Side = '" & Side & "'"
If oRS.EOF Then
    Response.Write "Side=Ikke+Funnet&Heading=Ikke+Funnet&Hovedtekst=Ikke+Funnet"
Else
    Response.Write "Side=" & Server.URLEncode(oRS("Side")) & "&Heading=" & Server.URLEncode(oRS("Heading")) & "&Hovedtekst=" & Server.URLEncode(oRS("Hovedtekst"))
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

'Get_utstyr.asp
<%
Option Explicit

Dim oRS, oConn, Side

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
oConn.Open

Side = "Utstyr"

oRS.Open "SELECT * FROM tblSite", oConn, 2, 3
oRS.Find "Side = '" & Side & "'"
If oRS.EOF Then
    Response.Write "Side2=Ikke+Funnet&Heading2=Ikke+Funnet&Hovedtekst2=Ikke+Funnet"
Else
    Response.Write "Side2=" & Server.URLEncode(oRS("Side")) & "&Heading2=" & Server.URLEncode(oRS("Heading")) & "&Hovedtekst2=" & Server.URLEncode(oRS("Hovedtekst"))
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
Avatar billede wilweb Nybegynder
28. februar 2002 - 18:28 #7
Hvad bruger du denne til? den er hardkodet! er du klar over det?
Response.Write "Side2=Ikke+Funnet&Heading2=Ikke+Funnet&Hovedtekst2=Ikke+Funnet"
Avatar billede wilweb Nybegynder
28. februar 2002 - 18:33 #8
jeg benytter denne metode:
henter data ind i variablen 'intHighscore' fra data base:

intHighscore = intHighscore + "&var_navn"&tNr&"="& rs("NAVN")&"&var_high"&tNr&"="& rs("HIGH")&"&var_dato"&tNr&"="& rs("DAGSDATO") &"&"

og
response.write intHighscore

i min Flash har jeg så alle de dynamiske variabler (var_navn1 til 10 - var_high1 til 10 og var_dato1 til 10)

kunne du ikke bruge den metode?
Avatar billede wilweb Nybegynder
14. marts 2002 - 22:04 #9
er du død?
Avatar billede mortency Nybegynder
15. marts 2002 - 13:12 #10
Spm. lukkes.
Avatar billede wilweb Nybegynder
17. marts 2002 - 12:18 #11
tak for point
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester