CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 16 21:06:06

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Base de données

> INSERTION D'UNE LIGNE DANS UNE BASE DE DONNÉE ORACLE

INSERTION D'UNE LIGNE DANS UNE BASE DE DONNÉE ORACLE

Information sur la source

Note :
Aucune note

Catégorie :Base de données Niveau :Débutant Date de création :15/02/2002 Date de mise à jour :15/02/2002 17:06:29 Vu :7 545

Auteur : Legion

Ecrire un message privé

Site perso

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Ce code a été établit avec l'aide de gedeef et de Mr. LE. En espérant qu'il clarifie les idées des autres débutants...

Source

<html>
<head>
<title>Inscrire des données dans une BDD</title>
</head>
<body>
<%
If ("" & Request.Form("nom")) = "" then
%>
<table bgcolor="green" border="1" bordercolor="Blue" cellpadding="1" cellspacing="0">
<form method="post" name="Form">
<tr>
<td>Login Souhaité:</td>
<td><input type="text" name="login">
</tr>
<tr>
<td>Mot de Passe:</td>
<td><input type="password" name="password">
</tr>
<tr>
<td>Votre nom:</td>
<td><input type="text" name="nom">
</tr>
<tr>
<td>Votre Prénom:</td>
<td><input type="text" name="prenom"></td>
</tr>
<tr>
<td>Votre numéro de téléphone:</td>
<td><input type="text" name="fixe"></td>
</tr>
<tr>
<td>Votre numéro de portable:</td>
<td><input type="text" name="mobile"></td>
</tr>
<tr>
<td>Votre Email:</td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td><input type="submit" value="Envoyer"></td>
</tr>
</form>
</table>
<%
else
Set oConn = Server.CreateObject("ADODB.Connection")
ChConn = "dsn=[Votre_Base];uid=[Votre_Login];pwd=[Votre_Pass];"
oConn.Open ChConn
sLogin = Request.Form("login")
sPassword = Request.Form("password")
sNom = Request.Form("nom")
sPrenom = Request.Form("prenom")
sFixe = Request.Form("fixe")
sMobile = Request.Form("mobile")
sEmail = Request.Form("email")
Req = "INSERT INTO TB_NDF_USER ([Nom_De_Champ1], [Nom_De_Champ2], [Nom_De_Champ3], [Nom_De_Champ4],[Nom_De_Champ5], [Nom_De_Champ6], [Nom_De_Champ7], [Nom_De_Champ8])"
Req = Req & "VALUES ( '" & sLogin
Req = Req & "', '" & sPassword
Req = Req & "', '" & sNom
Req = Req & "', '" & sPrenom
Req = Req & "', '" & sFixe
Req = Req & "', '" & sMobile
Req = Req & "', '" & sEmail
Req = Req & "', sysdate)"
on error resume next
oConn.execute Req
If Err <>0 Then
Response.Write Err.description
Else
Response.Write "Cet enregistrement a bien été ajouté"
End If
End if
%>
</body>
</html>

<html>
<head>
<title>Inscrire des données dans une BDD</title>
</head>
<body>
<%
If ("" & Request.Form("nom")) = "" then
%>

<table bgcolor="green" border="1" bordercolor="Blue" cellpadding="1" cellspacing="0">
   <form method="post" name="Form">
     <tr>
       <td>Login Souhaité:</td>
       <td><input type="text" name="login">
     </tr>
     <tr>
       <td>Mot de Passe:</td>
       <td><input type="password" name="password">
     </tr>

     <tr>
       <td>Votre nom:</td>
       <td><input type="text" name="nom">
     </tr>
     <tr>
       <td>Votre Prénom:</td>
       <td><input type="text" name="prenom"></td>
     </tr>
     <tr>
       <td>Votre numéro de téléphone:</td>
       <td><input type="text" name="fixe"></td>
     </tr>
     <tr>
       <td>Votre numéro de portable:</td>
       <td><input type="text" name="mobile"></td>
     </tr>
     <tr>
       <td>Votre Email:</td>
       <td><input type="text" name="email"></td>
     </tr>
     <tr>
       <td><input type="submit" value="Envoyer"></td>
     </tr>
    </form>
  </table>

<%
else

Set oConn = Server.CreateObject("ADODB.Connection")
ChConn = "dsn=[Votre_Base];uid=[Votre_Login];pwd=[Votre_Pass];"
oConn.Open ChConn

sLogin = Request.Form("login")
sPassword = Request.Form("password")
sNom = Request.Form("nom")
sPrenom = Request.Form("prenom")
sFixe = Request.Form("fixe")
sMobile = Request.Form("mobile")
sEmail = Request.Form("email")

Req = "INSERT INTO TB_NDF_USER ([Nom_De_Champ1], [Nom_De_Champ2], [Nom_De_Champ3], [Nom_De_Champ4],[Nom_De_Champ5], [Nom_De_Champ6], [Nom_De_Champ7], [Nom_De_Champ8])"
Req = Req & "VALUES ( '"  & sLogin 
Req = Req & "', '"  & sPassword
Req = Req & "', '"  & sNom
Req = Req & "', '"  & sPrenom 
Req = Req & "', '"  & sFixe 
Req = Req & "', '"  & sMobile 
Req = Req & "', '"  & sEmail
Req = Req & "', sysdate)"

on error resume next
oConn.execute Req
If Err <>0 Then
    Response.Write Err.description
Else
    Response.Write "Cet enregistrement a bien été ajouté"
End If
End if
%>
</body>
</html>

Conclusion

Les Champs de formulaire peuvent être changés comme vous le désirez, en ce qui concerne les [Nom_De_Champ], il s'agit bien entendu de ceux de votre Base de Donnée, pas ceux de votre formulaire :)

Legion

Sources du même auteur

INSÉRER DES DONNÉES D'UN CHAMP DE FORMULAIRE DS UNE TABLE -...

VOIR UNE TABLE SOUS ORACLE

Toutes les sources de Legion

Sources de la même categorie

GESTION_ENSEIGNANTS par Elmarzougui

ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc

ADMINISTRATION BASE DE DONNÉES ORACLE par chbayah

UTILISATION D'UN DATASET par ManuAntibes

INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL ... par jimmy69

Toutes les sources de la catégorie Base de données

Commentaires et avis

Commentaire de gedeef le 15/02/2002 17:41:22

Puisque je suis cité, je précise que ce code fonctionne pour n importe quelle base de données.
Et aussi que pour faire un truc propre, il faudrait ajouter à la fin :
oConn.Close
set oConn = Nothing

Histoire de pas gaspiller trop de ressources...

Commentaire de Legion le 16/02/2002 13:47:29

Commentaire de vbtom le 16/02/2002 15:42:15

Ouais mais pour le problème de ressource c pas forcément bien de détruire l'objet car il faudra le recrée... Donc si tas fermé la connection a la base bah faut la rouvrire >> Performances reduites...

Commentaire de Legion le 21/02/2002 08:59:14

ca, c'est a chacun de voir et d'adapter le code selon ses besoins :)

Ajouter un commentaire

Nos sponsors

Derniers Blogs

VISUAL STUDIO TALK SHOW: EF4 par Matthieu MEZIL

[MIX 2010] - WINDOWS PHONE 7 EN SUPER STAR DU MICROSOFT MIX 2010 ! par redo

[MIX 2010] - LIVRE GRATUIT SUR PROGRAMMER WINDOWS PHONE 7 SERIES ! par redo

SQL SERVER : ESTIMER LE NOMBRE DE LIGNES RENVOYéES PAR UNE REQUêTE AVEC SQLCLR par christian

[WF4] ACTIVITY AVEC VUE DéTAIL MASQUéE PAR DéFAUT, VIVE WPF! par JeremyJeanson

Forum

CASCADINGDROPDOWN ERROR 500 , 12030, 12031 ETC... par wally88

GESTION DES DOCUMENT EN ASP.NET par lire1

RE : REMOTE_HOST par jmvd2

VLAN NATIF par hamduch1988

RE : PB ENVOI DE MAIL ASP.NET par DOLLEL

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

URGENT Activation paiement ligne boutique box ecommerce
Budget : 180€
Refonte site internet
Budget : 1 500€
Template Wordpress
Budget : 300€

Logiciels

Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods
Konvertor (4.00)
KONVERTOR (4.00)

Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format...

Cliquez pour télécharger Konvertor