Sondage :

Publicité




Partenaires




Jmax-Hardware

mxdev.net

feedburner
donate.gif


1 visiteur(s) en ligne
Forums d'entraide informatique - Les forums de PCW
comment creer une BDD? - Version imprimable

+- Forums d'entraide informatique - Les forums de PCW (http://forum.pcinfo-web.com)
+-- Forum : Forum Informatique (/forumdisplay.php?fid=39)
+--- Forum : Internet - Navigation -Programmation - Scripts - Developpement (/forumdisplay.php?fid=8)
+--- Discussion : comment creer une BDD? (/showthread.php?tid=534)

comment creer une BDD? - rapala - 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 &amp;#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")="&amp; f_nom &amp;"
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 '%"&amp;f_nom&amp;"%'"

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

If Not Liste.EOF Then
Response.Write("Nom : " &amp; Liste("ChampNom") &amp; " <a href=mapage.asp?action=modifer&amp;f_nom="&amp;Liste("ChampNom")&amp;">Modifer</a> | <a href=mapage.asp?actionsupprimer&amp;f_nom="&amp;Liste("ChampNom")&amp;">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="&amp;f_nom&amp;""

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="&amp;Liste("ChampNom")&amp;" 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='"&amp;f_nom&amp;"' WEHRE ChampNom='"&amp;f_nom&amp;"'"

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 : " &amp; Liste("ChampNom") &amp; " <a href=mapage.asp?action=modifer&amp;f_nom="&amp;Liste("ChampNom")&amp;">Modifer</a> | <a href=mapage.asp?actionsupprimer&amp;f_nom="&amp;Liste("ChampNom")&amp;">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

%>

comment creer une BDD? - CrazyCat - 01-10-2006 15:23 PM

J'ai pas tout compris à ta question, mais à titre d'information: tu ne pourras pas faire tourner de l'ASP sur EasyPHP.