| 
					comment creer une BDD?
		
		 Note de cette discussion : 
			
				Moyenne : 0 (0 vote(s))12345 
 | 
		
			| Auteur | Message | 
		
	
	
		
	
		| rapala   Newbie
 
  
 Messages : 10
 Inscription : Sep 2006
 Réputation : 0
 | 
			| comment creer une BDD? 
 
				slt a tous
 
 je voudrai creer une base de donnee.
 
 j ai juste telecharger EasyPHP mais pour le reste j suis totalement perdu j ai bien lus les tutos sur le siteduzero et d autre.
 
 J ai vraiment besoin d 1 coup de main pour reussir a creer ma BDD.
 
 On pourait me dire les etapes a suivre svp, ha oui j ai trouvai ce code sur 1 site pour crrer une BDD:
 
 <%
 
 'Voici un &#0115;cript 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
 
 %>
 |  | 
	| 01-10-2006 09:56 AM |  | 
	
	
	 
	
	
	
	
	
	
	
	
	
	
		
		
	
	
	
Utilisateur(s) parcourant cette discussion : 1 visiteur(s)