access database hjælp

Tags:    asp

<%
' opretter en instans Af adodb conneciton objektet
set conn = server.createobject("ADODB.connection")

'åbner vores connection vha. connect INFO
conn.Open "DBQ=c:\\inetpub\\wwwroot\\database.mdb;DefaultDir=c:\\inetpub\\wwwroot\\;Driver={Microsoft Access Driver (*.mdb)}"


'lav SQL tekst string for at snakke med og åbene databasen
SQL = "select * from brugere order by navn"

'vi sender forespørgslen afsted gennem vores connection objekt
'og retunerer resultatet i et object der kaldes RS
set Rs = conn.execute( SQL )'spørg om RS tilstand er eof (End Of File)
if RS.eof then

response.write "din forespørgsel returnerede 0 records."

else

' lav en løkke der looper igennem returnerede records,
' indtil tilstand bliver eof (End Of File)

do while not RS.eof
response.write "<hr>"
response.write RS("navn") & "<br>"
response.write RS("adresse") & "<br>"
response.write RS("postnr") & "<br>"
RS.movenext
loop

end if





%>

hva er der i vejen her kan ikke få det til at virke hjælp



9 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
<%
' opretter en instans Af adodb conneciton objektet
set conn = server.createobject("ADODB.connection")

'åbner vores connection vha. connect INFO
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")


'lav SQL tekst string for at snakke med og åbene databasen
SQL = "select * from brugere order by navn"

'vi sender forespørgslen afsted gennem vores connection objekt
'og retunerer resultatet i et object der kaldes RS
set Rs = conn.execute( SQL )'spørg om RS tilstand er eof (End Of File)
if RS.eof then

response.write "din forespørgsel returnerede 0 records."

else

' lav en løkke der looper igennem returnerede records,
' indtil tilstand bliver eof (End Of File)

do while not RS.eof
response.write "<hr>"
response.write RS("navn") & ""
response.write RS("adresse") & ""
response.write RS("postnr") & ""
RS.movenext
loop

end if
%>

Det burde virke!

/Martin Wolf
Din lokale slagter



Nu har jeg ikke kigget på ASP strukturen før, men efter normale principper er en do-while struktur som følger...

do
etellerandet
while
betingelseeropfyldt


...men det burde vel give en fejl fra oversæteren? just a guess



<%
' opretter en instans Af adodb conneciton objektet
set conn = server.createobject("ADODB.connection")

'åbner vores connection vha. connect INFO
conn.Open "DBQ=c:\\inetpub\\wwwroot\\database.mdb;DefaultDir=c:\\inetpub\\wwwroot\\;Driver={Microsoft Access Driver (*.mdb)}"


'lav SQL tekst string for at snakke med og åbene databasen
SQL = "select * from brugere order by navn"

'vi sender forespørgslen afsted gennem vores connection objekt
'og retunerer resultatet i et object der kaldes RS
set Rs = conn.execute( SQL )'spørg om RS tilstand er eof (End Of File)
if RS.eof then

response.write "din forespørgsel returnerede 0 records."

else

' lav en løkke der looper igennem returnerede records,
' indtil tilstand bliver eof (End Of File)

do while not RS.eof
response.write "<hr>"
response.write RS("navn") & ""
response.write RS("adresse") & ""
response.write RS("postnr") & ""
RS.movenext
loop

end if





%>

hva er der i vejen her kan ikke få det til at virke hjælp


Hvilken fejl giver den?

"Time is nature's way of stopping things from happening all at once"



prøv at copy paste det ind på din egen pc :)



prøv at copy paste det ind på din egen pc :)


Tror jeg ikke... hvordan skal man kunne det uden at have databasen???
men anyway, jeg synes at denne linie ser lidt skummel ud:

conn.Open "DBQ=c:\\inetpub\\wwwroot\\database.mdb;DefaultDir=c:\\inetpub\\wwwroot\\;Driver=Microsoft Access Driver (*.mdb)}"

Især:
DBQ=c:\\inetpub\\wwwroot\\database.mdb;
DefaultDir=c:\\inetpub\\wwwroot\\;

prøv at erstatte hele den linie med:
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

Hvis det ikke virker så vis os fejlen, ellers har vi lidt svært ved at hjælpe dig :(

Med venlig hilsen
Martin Wolf
Din lokale slagter



prøv at copy paste det ind på din egen pc :)

Tror jeg ikke... hvordan skal man kunne det uden at have databasen???
men anyway, jeg synes at denne linie ser lidt skummel ud:

conn.Open "DBQ=c:\\inetpub\\wwwroot\\database.mdb;DefaultDir=c:\\inetpub\\wwwroot\\;Driver=Microsoft Access Driver (*.mdb)}"

Især:
DBQ=c:\\inetpub\\wwwroot\\database.mdb;
DefaultDir=c:\\inetpub\\wwwroot\\;

prøv at erstatte hele den linie med:
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

Hvis det ikke virker så vis os fejlen, ellers har vi lidt svært ved at hjælpe dig :(

Med venlig hilsen
Martin Wolf
Din lokale slagter





det du har skrevet der fatter jeg ikke noget af for der er ikke noge adresse til .mdb prøv at skrive hele koden der skal til :)



<%
'lav SQL tekst string for at snakke med og åbene databasen
SQL = "select * from brugere order by navn"
%>

hva er der i vejen her kan ikke få det til at virke hjælp


Din SQL sætning skal helst ende med et semikolon, dvs:

<pre>SQL = "select * from brugere order by navn;"</pre>

Det kan være, dette er en del af problemet, hvis du ellers kan få etableret kontakt med din database.

Software is here and now but rock and roll is forever.




Din SQL sætning skal helst ende med et semikolon, dvs:

<pre>SQL = "select * from brugere order by navn;"</pre>

Det kan være, dette er en del af problemet, hvis du ellers kan få etableret kontakt med din database.

Software is here and now but rock and roll is forever.


Hmm.. det burde ikke være nødvendigt... du kan sagtens lave en SQL sætning uden ";".

/Martin Wolf
Din lokale slagter





tak for en god opbakning o dette jeg har valgt at give martin wulf de 10 up



t