Archief - [PROG][ASP]Hoe...

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
r

redblack

Legacy Member
Kmoet als opdracht een programma schrijven dat gegevens naar een database wegschrijft. Kheb nu een formulier gemaakt met verschillende textboxes die ingevuld worden door de gebruiker. Maar nu weet ik langs geen kanten hoe ik dit kan wegschrijven naar een database.

Thx bij voorbaat
K

Krueger

Legacy Member
redblack zei:
Kmoet als opdracht een programma schrijven dat gegevens naar een database wegschrijft. Kheb nu een formulier gemaakt met verschillende textboxes die ingevuld worden door de gebruiker. Maar nu weet ik langs geen kanten hoe ik dit kan wegschrijven naar een database.

Thx bij voorbaat
Klik om te vergroten...
Moest ik van u zijn zou ik beginnen zoeken in de richting van ADO. vb: http://www.learnasp.com/learn/dbnewADO.asp
en nog veel meer andere resultaten als ge zoekt op google naar asp + ado
O

Obliv`

Legacy Member
kzal hier ff men goed hart laten zien ;)
voila een simpel voorbeeldje van een nieuwsposting script:

1. het form (let vooral op het name attribuut van de input tags, hier werk ik met method get (post is er ook, > google), de action is de pagina waar de gegevens in de DB gestopt zullen worden)
Code: 
<form action="nieuws_post.asp" method="get">
	<table border="0" cellpadding="0" cellspacing="0" style="width: 700px;">
		<tr>
			<th style="text-align: left;">Titel</th>
			<td><input type="text" name="titel" maxlength="50" size="20" /></td>
		</tr>
		<tr>
			<th style="text-align: left;">Bericht</th>
			<td><textarea name="bericht" cols="75" rows="5"></textarea></td>
		</tr>
		<tr>
			<th style="text-align: left;">Gepost door</th>
			<td><input type="text" maxlength="50" size="20" value="<% Response.Write(strGebruikersnaam) %>" readonly="readonly"  /></td>
		</tr>
		<tr>
			<td colspan="2"><input type="hidden" name="naam" maxlength="50" size="20" value="<% Response.Write(strGebruikersnaam) %>" /></td>
		</tr>
		<tr>
			<td colspan="2"><input type="submit" value="Post" class="knop" /></td>
		</tr>
	</table>
</form>

dit wordt dan naar nieuws_post.asp gestuurd
dmv Request.Querystring("xxx") halen we gegevens uit het form
op de xxx komt dan het name attribuut van de input tag
Code: 
Dim objConn, objRecordSet

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRecordSet = Server.CreateObject("ADODB.RecordSet")
		
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adCmdTable = 2

objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath.... (uw connectionstring)
objConn.open
	
objRecordSet.Open "tblNieuws", objConn, adOpenKeySet, adLockOptimistic, adCmdTable
					
objRecordSet.AddNew
objRecordSet("Naam") = Request.QueryString("naam")
objRecordSet("Titel") = Request.QueryString("titel")
objRecordSet("Bericht") = Request.QueryString("bericht")
objRecordSet("Datum") = Date()
objRecordSet("Uur") = Time()
objRecordSet.Update
					
objRecordSet.Close
Set objRecordSet = Nothing
					
objConn.Close
Set objConn = Nothing
W

Wover

Legacy Member
Op school leren ze het de kindjes zo aan:

(script om filmkes toe te voegen aan een database; dit is nog met een check naar ingelogd of niet)

Code: 
<%
If session("ingelogd") = "True" Or session("ingelogd2") = "True" Then
	Dim strNaam, strLink, lngOmschrijving, rsToevoegen, connectie, strConnectie, strSoort
	
	Set connectie = server.createobject("ADODB.connection")
	strConnectie = "DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("filmkes.mdb")
	connectie.open strConnectie
	set rsToevoegen = server.createobject("adodb.recordset")
	
	strNaam = request.form("txtNaam")
	strLink = request.form("txtLink")
	lngOmschrijving = request.form("txtOmschrijving")
	strSoort = request.form("cboSoort")
	
	If strNaam = "" Or strLink = "" Or lngOmschrijving = "" Then
		Response.Write "<font color=red face=verdana size=2>Zoude wel zo vriendelijk willen zen om alles in te vullen, trut??</font>"
	Else
		rsToevoegen.Open "tblFilmkes", Connectie, 1,2
		rsToevoegen.Addnew
		rsToevoegen("Naam") = strNaam
		rsToevoegen("Link") = strLink
		rsToevoegen("Soort") = strSoort
		rsToevoegen("Omschrijving") = lngOmschrijving
		rsToevoegen("Datum") = Date()
		rsToevoegen.Update
		If session("ingelogd2") = "True" Then
			response.redirect("administrator.asp")
		Else
			response.redirect("filmkes.asp?status=succes")
		End if
	End if
Else
	response.write "<font face=Verdana size=2><p align=center>U bent niet ingelogd. <br><br><a href=welkom.asp?inlog=fout>Klik hier om in te loggen</a></font></p>"
End if
%>

dit is dus met "post" ipv met get, hierbij zijn de gegevens niet zichtbaar voor de gebruiker in de URL.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan