LES BASES DE DONNÉES

<%

'Voici un script qui vous permet d'apprendre les manips sur les bases de données !

'Reception des données (formulaire(post) + url(get))
'Quand on voit dans l'url ?action=test par exp. les données arrive en method get et quand on voit rien les données sont en methode post.

action = Request.form("action")
f_nom = Request.form("f_nom")

'Connextion à la base de données 

'Création de l'objet
set nomDB = Server.CreateObject("ADODB.Connection")
'Ouverture de la connexion
nomDB.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=base.mdb"

'On fait des test sur la variable action pour savoir ce que l'on d'oit faire

if action = "ajouter_go" then

'Code d'insertion du nom dans la base de donnée

DBrs.open "NomTable",nomDB,3,3
DBrs.AddNew
DBrs.Fields("ChampNom")="& f_nom &"
DBrs.update
DBrs.close

response.write("Le nom à bien été enregisté !<br><a href=mapage.asp?action=voir>Voir la liste</a>")

end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if action = "rechercher_go" then

'On lance la recherche du nom dans la base de donnée

sql = "SELECT * FORM NomTable WHERE ChampNom LIKE '%"&f_nom&"%'"

Set Liste = nomDB.Execute(sql) 'Execution du code SQL

if not Liste.EOF then
		response.write("Nom : " & Liste("ChampNom") & " <a href=mapage.asp?action=modifer&f_nom="&Liste("ChampNom")&">Modifer</a> | <a href=mapage.asp?actionsupprimer&f_nom="&Liste("ChampNom")&">Modifer</a> br>")
		
		Liste.MoveNext
	else
		response.write("Aucun enregistrement trouvé.")
	end if

end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if action = "modifier" then 

	sql = "SELECT * FORM NomTable WHERE ChampNom="&f_nom&""

	Set Liste = nomDB.Execute(sql) 'Execution du code SQL

	if not Liste.EOF then
		%>
		<form action="mapage.asp" method="post">
		<input type="hidden" name="action" value="ajouter_go">
		Le nom : <input type="text" name="f_nom" value="&Liste("ChampNom")&" size="20"><br>
		<input type="submit" value="Ajouter">
		</form>
		<%
	else
		response.write("Erreur : impossible de trouver ce nom dans la base de donnée !")
	end if

	
end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if action = "modifier_go" then 

	sql = "UPDATE NomTable SET ChampNom='"&f_nom&"' WEHRE ChampNom='"&f_nom&"'"

	nomDB.Execute(sql) 'Execution du code SQL

	response.write("Le nom à bien été enregisté !<br><a href=mapage.asp?action=voir>Voir la liste</a>")
	
end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if action = "supprimer" then

sql = "DELETE FROM NomTable WHERE ChampNom='$f_nom'"

nomDB.Execute(sql) 'Execution du code SQL

end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if action = "" OR action = "voir" then

sql = "SELECT * FROM NomTable"

Set Liste = nomDB.Execute(sql) 'Execution de code SQL

	if not Liste.EOF then
		response.write("Nom : " & Liste("ChampNom") & " <a href=mapage.asp?action=modifer&f_nom="&Liste("ChampNom")&">Modifer</a> | <a href=mapage.asp?actionsupprimer&f_nom="&Liste("ChampNom")&">Modifer</a> br>")
		
		Liste.MoveNext
	else
		response.write("Aucun enregistrement pour le moment.")
	end if

	%>

	<form action="mapage.asp" method="post">
	<input type="hidden" name="action" value="rechercher_go">
	Votre recherche : <input type="text" name="f_nom" size="20"><br>
	<input type="submit" value="Rechercher">
	</form>
	<br><br>
	<form action="mapage.asp" method="post">
	<input type="hidden" name="action" value="ajouter_go">
	Le nom : <input type="text" name="f_nom" size="20"><br>
	<input type="submit" value="Ajouter">
	</form>
	
	<%

end if 

%>