Sujet Précédent Sujet Suivant

AJOUTER UNE DONNEE DANS UNE BASE DE DONNEES SQL SERVER

khjkbjkb - 22 déc. 2000 à 16:01
pregest Messages postés 2 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 11 novembre 2006 - 12 nov. 2006 à 03:15

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/379-ajouter-une-donnee-dans-une-base-de-donnees-sql-server

pregest Messages postés 2 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 11 novembre 2006
12 nov. 2006 à 03:15

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

cs_spanner Messages postés 1 Date d'inscription lundi 22 mai 2006 Statut Membre Dernière intervention 22 mai 2006
22 mai 2006 à 16:44

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

oufben Messages postés 17 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 2 mai 2007 3
4 févr. 2003 à 16:45

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...

Jo
3 juil. 2001 à 07:55

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

anelor
12 avril 2001 à 12:09

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 :///

Discussions similaires

Erreur de conversion du type de données varchar en numeric.

Ajouter une colonne

Ajout d'une colonne de type non null

LPAD, RPAD avec SQl server?

decimal (12,2) ca veut dire quoi?

Votre réponse

Discussions similaires