Les bases de données

Commenter

Contenu du snippet

Avant de ce lancer dans la programmation en ASP il faut déjà savoir ce que c'est ! Donc voici une explication.
ASP est un langage de programmation dynamique compilé par le serveuret pas par n'importe lequel. ASP est un language de programmation de Microsoftdonc il faut utiliser une serveur Microsoft tournant sur Windows NT4 et maintenant Windows 2000 Serveur et Advanced Serveur. C'est vrai qu'il existe Chili!ASP pour Linux mais les scripts sont compatibles à 90 % environ. ASP est langage donc comparable au PHP et au PERL plus c'est un langage Serveur qui permet la gestion des base de donnée contrairement au JavaScript, DHTML.

Il vous permet aussi de gérer un serveur ces langages Serveur on un accées au serveur même donc on peut envisager de developper une application pour la gestion d'un serveur.

Voici le script qui sert de tutorial. C'est qu'une version BETA 1 ! :)) J'améliorerer mon code un autre jour sur !:)

Source / Exemple : 


<%

'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 

%>

Conclusion :


J'èspère que cela vous est utilile ! :)

Arnaud Guyonne ==> http://www.phplive.com

PS : S'il y a des fautes d'ortho ne faites attention s'il vous plaît j'ai 14 ans. Merci

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.