hanamichiforce
Messages postés17Date d'inscriptionmercredi 4 janvier 2006StatutMembreDernière intervention26 janvier 2007 17 janv. 2006 à 12:19
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