Insert dans une base de donnees

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 387 fois - Téléchargée 35 fois

Commenter

Contenu du snippet

Ce code permet d'introduire une occurence dans une table

Source / Exemple : 


'création de lobjet de connection
Set oConn = Server.CreateObject("ADODB.connection")

'Chaine de connection
ChConn = "DSN=VotreDSN;UID=VotreUID;PWD=VotreUID;"

'Connection à la base de données
oConn.Open ChConn

'Ecriture de la requete pour la table Adhesion
Req = "INSERT INTO VotreTable (Champ1, Champ2,...) "
Req = Req & "VALUES (Valeur1, Valeur2,...)"
    
'Création du RecordSet
Set oRst = Server.CreateObject("ADODB.Recordset") 
 
'pour la surveillance d'erreur
on error resume next

'Ouverture du recorset et execution de la requete sql
oRst.Open Req,oConn 

'Fermeture et destruction du recordset
oRst.close
Set oRst = Nothing

'Affichage de l'erreur
If Err Then
       Response.write Err.description
   Else
        Response.write "Cet enregistrement a bien été ajouter"
End If

'J arrete toute surveillance d'erreur
on error goto 0

Conclusion :


Cela fonctionne aussi bien avec Access et SQL Server

A voir également

Ajouter un commentaire

Commentaire

Signaler
mahamourta
Messages postés
86
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
2 septembre 2016
 -
salut
svp je n'arrive pas a supprimer un enregistrement dans une base de donnee sous mysql.je code en vb sous dotnet.merci d'avance .
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.

Du même auteur (mojo9)