Ga naar inhoud


Data-basa Access

Gast

Door Gast
in Off topic

 Delen

Aanbevolen berichten

Gast

Gast

Geplaatst:
Geplaatst:

Is het mogelijk om via een formulier op een website opvragingen te doen uit een access database?

Zo ja hoe moet ik dit dan doen.

 

Dank bij voorbaat


Gast

Gast

Geplaatst:
Geplaatst:

ja dit is mogelijk

 

ik zelf heb het ooit eens gedaan in asp.

Niet zo moeilijk.

Je server moet dan wel asp ondersteunen.

php zou ook mogelijk moeten zijn...

maar dan denk ik dat je iets zou moetten bij-installen

 

als je wilt stuur ik je een pm met daarin een voorbeeld

van asp.

 

 

ltrz

DroomDoos Mentor

DroomDoos

Geplaatst:
Geplaatst:

Bijvoorbeeld:

 

Set DBConnection = Server.CreateObject("adodb.connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN = DSN & "DBQ=" & Server.Mappath("database.mdb")

DBConnection.Open DSN

SQL = "SELECT * FROM tabelnaam ORDER BY Id"

Set rs = DBConnection.Execute(SQL)

On Error Resume Next

do while Not rs.eof

geg1=Server.HTMLEncode(rs.Fields("data1").Value)

geg=Server.HTMLEncode(rs.Fields("data2").Value)

rs.MoveNext

loop

rs.Close

Set rs = Nothing

DBConnection.Close

Set DBConnection = Nothing

 

Gegevens tevoorschijn halen doe je met:

Response.Write(geg1)

Response.Write(geg2)

 

of midden in een HTML document met

<%=geg1%>

<%=geg2%>

 

DroomDoos

Gast

Gast

Geplaatst:
Geplaatst:

Ik neem aan dat het om een voorbeeld gaat want dit heeft volgens mij niet zoveel zin.

 

do while Not rs.eof

geg1=Server.HTMLEncode(rs.Fields("data1").Value)

geg=Server.HTMLEncode(rs.Fields("data2").Value)

rs.MoveNext

loop

 

Zeker niet met een database waar met de sql statement SQL = "SELECT * FROM tabelnaam ORDER BY Id"

meerdere records als uitkomst heeft.

 

Zet voor de <html>

<%

 

Set DBConnection = Server.CreateObject("adodb.connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN = DSN & "DBQ=" & Server.Mappath("database.mdb")

DBConnection.Open DSN

SQL = "SELECT * FROM tabelnaam ORDER BY Id"

Set rs = DBConnection.Execute(SQL)

On Error Resume Next 'Niet gebruiken tijdens ontwikkeling je ziet nu geen error meldingen

 

%>

 

Tussen de Body

 

<body>

<% Do while Not rs.eof %> 'doe de loop tot einde recordset

 

Response.Write Server.HTMLEncode(rs.Fields("data1").Value) 'Toon database uitkomst

Response.Write Server.HTMLEncode(rs.Fields("data2").Value)

 

 

<%

rs.MoveNext 'Next record in database

Loop

rs.Close 'close database

Set rs = Nothing

DBConnection.Close

Set DBConnection = Nothing

%>

</body>

</html>

 

Suc6

 

Rebel

Gast

Gast

Geplaatst:
Geplaatst:

@aGus

 

Stuur me maar een PM met een voorbeeld zodat ik het daarna zelf kan aanpassen.

 

Bedankt op voorhand

Gast

Gast

Geplaatst:
Geplaatst:

Ik zal het ineens hier posten, misschien heeft

iemand anders er ook wat aan.

 

het voorbeeld is een listbox gevult met een kolom v/e tabel

van de database, in dit geval de studentnamen van de tabel studenten...

 

ik hoop dat je er iets aan hebt.

 

upload het asp bestand en de db map, of pas gewoon het pad aan.

 

ltrz

Gast

Gast

Geplaatst:
Geplaatst:

Beste,

 

Momenteel ben ik aan testen met een voorbeeld van aGus, maar ik kan de gegevens van mijn zoekopdracht niet zien wie kan nij helpen?

Ik heb een account bij Brinkster waar ik kan testen.

Kan iemand me een afgewerkt model sturen via PM.

Database heet "test" en ik zoek naar "1Aanbrenger"

 

Groetjes

 

Toy

Maak een account aan of log in om te reageren

Je moet een lid zijn om een reactie te kunnen achterlaten

Account aanmaken

Registreer voor een nieuwe account in onze community. Het is erg gemakkelijk!

Registreer een nieuwe account

Inloggen

Heb je reeds een account? Log hier in.

Nu inloggen
 Delen
Ga naar onderwerp-overzicht

  • Wie is er online   0 leden

    • Er zijn geen geregistreerde gebruikers deze pagina aan het bekijken
×
×
  • Nieuwe aanmaken...