0/5 (5 avis)
Snippet vu 18 158 fois - Téléchargée 71 fois
'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)
12 nov. 2006 à 03:15
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
22 mai 2006 à 16:44
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
4 févr. 2003 à 16:45
Je c pas si en VB c'est pareil et ca m'etonnerait, ce qui explikerait pourkoi ca a pas marcher pour anelor...
3 juil. 2001 à 07:55
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
12 avril 2001 à 12:09
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 :///
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.