01-10-2006, 09:56 AM
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
%>
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
%>