[ASP] Geen toegang tot database - Softwareontwikkeling

zondag 3 februari 2002 16:15

Acties:

-

Topicstarter

Ik ben sinds kort begonnen met ASP. Ik heb in MS Access een database, genaamd KLANTENSYSTEEM, aangemaakt met daarin een tabel KLANTEN. Ik heb via de Windows'98 cdrom PWS geinstalleerd en via het configuratiesscherm heb ik via het systeem-dsn een verbinding aangemaakt, genaamd MijnTestVerbinding. Het bestand test.asp bevat de volgende code:

code:

<HTML>
<HEAD>
<TITLE>Database</TITLE>
</HEAD>
<BODY>
<H1>De volgende gegevens staan in de database:</H1>
<%
'Voorbereiding van de variabelen
SQL = "SELECT * FROM KLANTEN"
'Voorbereiding van de verbinding
SET ObjectVerbinding = Server.CreateObject("ADODB.Connection")
SET Rs = ObjectVerbinding.Open "dsn=MijnTestVerbinding;database=Klantensysteem"
ObjectVerbinding.Execute(SQL)
WHILE NOT Rs.EOF
   Response.Write("Achternaam: " & Rs("Achternaam") & "<BR>")
   Response.Write("Voornaam: " & Rs("Voornaam") & "<BR>")
   Rs.MoveNext
WEND
'Sluiten van de verbinding en opruimen van het geheugen
ObjectVerbinding.Close
SET ObjectVerbinding = Nothing
%>
</BODY>
</HTML>

Als in internet explorer het ASP-bestandje open, dan krijg ik de volgende foutmelding:

Compilatiefout Microsoft VBScript fout '800a0401'

Einde van de instructie wordt verwacht

/mijnweb/test.asp, regel 12

SET Rs = ObjectVerbinding.Open "dsn=MijnTestVerbinding;database=Klantensysteem"
-------------------------------^

Ik heb alles gedaan, zoals in het boek "Snel leren werken emt ASP" is gedaan, kan iemand mij verder helpen?

zondag 3 februari 2002 16:21

Acties:

AceRimmer

What a guy...

code:

1 2	SET Rs = ObjectVerbinding.Open "dsn=MijnTestVerbinding;database=Klantensysteem" ObjectVerbinding.Execute(SQL)

Dat set Rs = weghalen op de eerste regel en dan op de volgende regel ervoor plakken

Smoke me a kipper, I'll be back for breakfast

zondag 3 februari 2002 16:28

Acties:

TweakersOnly

-

Topicstarter

OK, thanx dude.

Nu moet ik alleen in m'n boek gaan kriebelen. :(

zondag 3 februari 2002 16:32

Acties:

AceRimmer

What a guy...

Handig, fouten in boeken

Smoke me a kipper, I'll be back for breakfast

zondag 3 februari 2002 18:24

Acties:

Verwijderd

Op zondag 03 februari 2002 16:28 schreef TweakersOnly het volgende:
OK, thanx dude. Nu moet ik alleen in m'n boek gaan kriebelen. :(

Als ik jou was dan zou ik de dbaseconnectie en sluitoptie in functies stoppen en deze in een include file plaatsen.

op deze manier hoef je die functies maar aan te roepen waar nodig is bv zo

code:

Function OpenDbase()

Set DbConn=Server.CreateObject("ADODB.Connection")
DbConn.Open "dsn=MijnTestVerbinding;database=Klantensysteem"

End function

code:

Function CloseDbase()

on error resume next
DbConn.close
set DbConn=nothing
on error goto 0

end function

Die Dbconn declareer je bovenin jou script

Als je dan iets uit jou dbase wilt halen dan doe je dit bv zo

code:

OpenDbase

set rs =Dbconn.execute("select bla from bla where bla")
while not rs.eof
   response.write rs("bla")
   rs.movenext
wend

closeDbase

als je meerder query's wilt uitvoeren binnen een script dan hoef je de database pas te sluiten als hij niet meer nodig is, tussendoor steeds openen en sluiten kost alleen maar tijd

maandag 4 februari 2002 07:01

Acties:

TweakersOnly

-

Topicstarter

OK, maar zover ben ik nog niet. Ik moet voor m'n afstudeerstage een ASP systeem maken, maar op school hebben we nog niets met ASP gehad. Dit is gewoon het begin...

woensdag 6 februari 2002 20:46

Acties:

TweakersOnly

-

Topicstarter

Ok, door omstandigheden heb ik een paar dagen niets kunnen doen aan ASP, en ben ik vergeten mijn boeken mee naar huis te nemen. Ik wil alle waarden uit de tabel in een combobox zetten, in Frontpage heet dit volgens mij een vervolgkeuzelijst. Zou iemand mij hierbij kunnen helpen?

woensdag 6 februari 2002 21:56

Acties:

Verwijderd

Op woensdag 06 februari 2002 20:46 schreef TweakersOnly het volgende:
Ok, door omstandigheden heb ik een paar dagen niets kunnen doen aan ASP, en ben ik vergeten mijn boeken mee naar huis te nemen. Ik wil alle waarden uit de tabel in een combobox zetten, in Frontpage heet dit volgens mij een vervolgkeuzelijst. Zou iemand mij hierbij kunnen helpen?

Zoiets?

code:

<SELECT NAME="Blaat">
<% 
for count= 0 to 9 do 
%>
<OPTION (SELECTED**) VALUE="0"><%= rs(field) %>
<%
rs.MoveNext 
next 
%>
</SELECT>

** -> als je m standaard geactiveerd wil hebben

Je kunt trouwens beter een nieuwe topic openen; krijg je meer reacties