Insertion vers base sql pb de connexion [Résolu]

Signaler
Messages postés
17
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2007
-
Messages postés
17
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2007
-
bonojur a tous j'ai un souci apparemment jarrive pas a me connecter a la base de données vs pouvez maider voici le code :


Private Sub Btn_validation_Click()

Dim RstSMR As New ADODB.Recordset

RstSMR.ActiveConnection = SQLSRVDATA.EASYMED.ConnectionString

RstSMR.Execute = "insert into TBLTYPESMR(IDTYPESMR, LIBELLETYPESMR) values (1112, 'blabla')"

end sub

3 réponses

Messages postés
17
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2007

désolé ..jme suis pas rendu compte on m'a expliqué
lacommande Execute ne fonctionne pas ..il ya une démarche propre à l'entreprise pour se connecter
voici ce que ca donne :

Dim RstSMR As New ADODB.Recordset

If RstSMR.ActiveConnection Is Nothing Then RstSMR.ActiveConnection = SQLSRVDATA.EASYMED.ConnectionString
If SQLSRVDATA.rsTblTypeSMR.State = 0 Then SQLSRVDATA.rsTblTypeSMR.Open
Set RstSMR = SQLSRVDATA.rsTblTypeSMR.Clone
RstSMR.Close
RstSMR.Source = "insert into TBLTYPESMR(IDTYPESMR, LIBELLETYPESMR)values (1112, 'blabla')"
RstSMR.Open , , adOpenDynamic, adLockReadOnly

merci rollerman je formulerai mieux mes questions
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Messages postés
520
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
3 mars 2008
2
1. quel est la valeur de SQLSRVDATA.EASYMED.ConnectionString
2. quel est le msg d'erreur
3. un peu de sérieu dans les questions :)

Une piste: RstSMR.Execute("insert into TBLTYPESMR(IDTYPESMR, LIBELLETYPESMR) values (1112, 'blabla')")

Rollerman
Messages postés
520
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
3 mars 2008
2
1. quel est la valeur de SQLSRVDATA.EASYMED.ConnectionString
2. quel est le msg d'erreur
3. un peu de sérieu dans les questions :)

Une piste: RstSMR.Execute("insert into TBLTYPESMR(IDTYPESMR, LIBELLETYPESMR) values (1112, 'blabla')")

Rollerman