1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Ajouter une donnee dans une base de donnees sql server

Ajouter une donnee dans une base de donnees sql server

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 681 fois - Téléchargée 69 fois

Commenter

Contenu du snippet

Remplacer MonLog par votre login SQLServer ainsi que Pass par votre password si vous n'en avez pas laisser vide, puis MaBase par le nom de votre base de donnees.
Remplacer ensuite MaTable par le nom de votre table, MonChamp par le nom de votre champ, et enfin MaVar par votre variable.

Source / Exemple : 


'ouverture de la connection a la base de donnees SQL Server
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "driver={SQL Server}; server=d01srv;uid=MonLog;pwd=Pass;database=MaBase"
conn.open connstring

Set rs = Server.CreteObject("ADODB.recordset")
sql = "INSERT INTO MaTable (MonChamp) values"
sql = sql + "('"&MaVar&"')"
Set rs = conn.Execute(sql)

A voir également

Ajouter un commentaire

Commentaires

Signaler
pregest
Messages postés
2
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
11 novembre 2006
Public Function InitConnection(DSN As String, UserName As String, PassWord As String) As Boolean
Dim query As String
Dim cnxString As String
Dim RequeteOk As Boolean
Dim mRst As New ADODB.Recordset

InitConnection = False
'Initialisation de la chaine de connexion
ADOCnx.ConnectionString = "DSN=" & DSN & ";"

'Vérifie que la connexion est bien fermée
If ADOCnx.State = adStateOpen Then
ADOCnx.Close
End If
On Error GoTo BadConnection
'Connexion à la base de données
ADOCnx.Open cnxString, UserName, PassWord, adAsyncConnect
'Attente que la connexion soit établie
While (ADOCnx.State = adStateConnecting)
DoEvents
Wend
'Vérification des erreurs dans le cas d'une mauvaise connexion
If ADOCnx.Errors.Count > 0 Then
'Affichage des erreurs
MsgBox ADOCnx.Errors.Item(0)
InitConnection = False
Exit Function
Else
InitConnection = True
End If
Exit Function

BadConnection:
If ADOCnx.Errors.Count > 0 Then
'Affichage des erreurs
MsgBox ADOCnx.Errors.Item(0)
InitConnection = False
Exit Function
Else
MsgBox err.Description
End If
End Function
Signaler
cs_spanner
Messages postés
1
Date d'inscription
lundi 22 mai 2006
Statut
Membre
Dernière intervention
22 mai 2006
salut,
je cherche le code d'envoi de recordset a distance avec ADO et WINSOCK dans une application client/serveur sous VB6. avec commande ajout,modification et suppression

merci
Signaler
oufben
Messages postés
17
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
2 mai 2007
 1
J'arrive tard, mais faut savoir quand meme que VB pour ASP, c'est VBScript.... Et ton code Jo c'est justement du VBScript ;p
Je c pas si en VB c'est pareil et ca m'etonnerait, ce qui explikerait pourkoi ca a pas marcher pour anelor...
Signaler

Franchement khjkbjkb si c'est jsute pour dire ca, ne dit rien ca vaudra mieux.
Si non Anetor quel est ton probleme exactement, contact moi plutot par mail, car je ne passe pas sourvent sur les forum des differents code VB et ASP
Signaler

connstring


Set rs = Server.CreteObject("ADODB.recordset")
sql = "INSERT INTO MaTable (MonChamp) values"
sql = sql + "('"&MaVar&"')"
Set rs = conn.Execute(sql)

c'est normal que tu n'utilises pas la variable rs ???
en tout ca, ton script marche pas chez moi :///
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 (cs_Jo)