none
Current recordset does not support updating RRS feed

  • Question

  • Bonjour,

    J'aimerais ajouter dans une table oracle des éléments provenant d'Excel.

    J'ai créé une macro de test pour ajouter un record et j'obtiens le message suivant.
    Current recordset does not support updating. This may be a limitation of the provider or of the selected locktype. 

    N.B. : Ce code fonctionne sous VB6

    Sub Test()
      
      Dim Sz_Query_Test As String
      Dim Con_Test As ADODB.Connection
      Dim Rst_Test As ADODB.Recordset
       
      Set Con_Test = New ADODB.Connection
       With Con_Test
         .ConnectionString = "provider=MSDAORA;Data Source=NRBNRL18;User ID=DBORACLE;Password=xxxx;"
         .Open strCon_Test
       End With
      
       Sz_Query_Test = "SELECT * FROM TEST20 "
                      
       Set Rst_Test = New ADODB.Recordset
          With Rst_Test
           .ActiveConnection = Con_Test
           .CursorType = adOpenKeyset
           .LockType = adLockOptimistic
           .Open (Sz_Query_Test)
         End With
       
        Rst_Test.AddNew
        Rst_Test!ASSETTAG = "AB"
        Rst_Test!SERIALNO = "Test 110"
        Rst_Test.Update

    End Sub

    Pourriez-vous m'aider ?


    Merci d'avance pour votre aide.

    Olivier

    vendredi 21 septembre 2012 15:08

Toutes les réponses