IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

access: mise à jour de table distante par recordset


Sujet :

Access

  1. #1
    Membre habitué
    Inscrit en
    Novembre 2005
    Messages
    136
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 136
    Points : 163
    Points
    163
    Par défaut access: mise à jour de table distante par recordset
    dans une base access 2003 sur mon poste, j'ai un formulaire dans lequel je saisis quelques informations et un bouton qui appelle du code pour:

    etablir une connexion (cnx_test) vers une base distante où se trouve la table "test", ouvrir un recordset (rcs_test), y recopier les infos du formulaire et envoyer tout ça dans la table.

    la connexion est ok (connection.state = 1)
    le recordset contient bien n enregistrement au debut du code et n+1 à la fin

    MAIS :

    dans la table je n'ai toujours que n enregistrements

    tout ce que j'ai pu obtenir comme indication d'erreur est "erreur n° 0" sans plus.


    Par ailleurs dans une autre application access fonctionnant de la meme façon, et sur le meme pc, tout est ok .

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    Private Sub Commande8_Click()
     
    On Error GoTo erreur
     
    Const lien_dsn = "dsn=prospect;uid=admin;pwd="
    Dim cnx_test As New ADODB.Connection
    Dim rcs_test As New ADODB.Recordset
     
    Debug.Print "etat connexion:" & cnx_test.State 
     
    cnx_test.Open lien_dsn
    rcs_test.CursorLocation = adUseClient
    rcs_test.Open "test", cnx_test, adOpenDynamic, adLockBatchOptimistic
     
     
    rcs_test.MoveLast
    Debug.Print "nb enregistrements dans rcs " & rcs_test.RecordCount
    Debug.Print "dernier: " & rcs_test.Fields(0).Value
     
    rcs_test.AddNew
    Debug.Print "actuel: " & rcs_test.Fields(0).Value
     
    rcs_test![Nom] = Me.Texte0
    rcs_test![cp] = Me.Texte2
    rcs_test![representant] = Me.Texte4
    rcs_test![fam] = Me.Texte6
     
     
    rcs_test.Update
     
     
    Debug.Print "ajout: " & rcs_test.Fields(0).Value
    Debug.Print "etat connexion:" & cnx_test.State
    Debug.Print "etat curseur" & rcs_test.State
    Debug.Print "nb enregistrements dans rcs " & rcs_test.RecordCount
     
     
    rcs_test.Close
    Set rcs_test = Nothing
    Set cnx_test = Nothing
     
     
    Exit Sub
    erreur:
     
      If cnx_test.Errors.Count > 0 Then MsgBox cnx_test.Errors.Item(0)
     
    End Sub
    les instructions debug.print me renvoient:

    etat connexion:0
    nb enregistrements dans rcs 2
    dernier: sdf
    actuel:
    ajout: dupont
    etat connexion:1
    etat curseur1
    nb enregistrements dans rcs 3


    je puis eventuellement envoyer un document avec quelques impressions d'ecrans (pas de panique, 48 ko seulement).


    merci

  2. #2
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Points : 32 311
    Points
    32 311
    Par défaut
    Et en changeant le type de vérouillage ?

  3. #3
    Membre habitué
    Inscrit en
    Novembre 2005
    Messages
    136
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 136
    Points : 163
    Points
    163
    Par défaut
    effectivement c'est beacoup mieux comme ça

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [ODBC] [Access] Mise à jour par internet
    Par cleminute dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 16/08/2009, 14h26
  2. Mise à jour liens tables Access attachées avec Delphi
    Par Nicoclem dans le forum Bases de données
    Réponses: 5
    Dernier message: 12/02/2009, 00h07
  3. Mise à jour entre table liée et table access
    Par Sprsrini dans le forum Requêtes et SQL.
    Réponses: 14
    Dernier message: 30/09/2008, 21h47
  4. [VBA ACCESS]Mise à jour zone de texte par un zone de liste
    Par Shinigami-hime dans le forum VBA Access
    Réponses: 0
    Dernier message: 05/06/2008, 10h17
  5. Mise à jour des tables dans Access
    Par Zabou dans le forum VBA Access
    Réponses: 2
    Dernier message: 16/05/2008, 11h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo