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

VBA Access Discussion :

Liaison de tables SQL Serveur - Définition d'une contrainte


Sujet :

VBA Access

  1. #1
    Membre régulier
    Inscrit en
    Août 2006
    Messages
    130
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 130
    Points : 86
    Points
    86
    Par défaut Liaison de tables SQL Serveur - Définition d'une contrainte
    Bonjour,

    J'ai fait le test de lier une vue SQL Serveur 2005 par le menu Fichier -> Données externes -> Lier les tables.

    Au moment de la liaison, on me demande de sélectionner le champ qui sera unique. J'en choisi un qui est ok et je peux sans autre mettre à jour les données au travers de la table liée (access voie les vues commes des tables liées).

    Maintenant je lie ma table par programmation (VBA) et là je n'arrive pas à définir le champ qui sera unique et par conséquent je ne peux plus faire de modification via la table liée.

    J'ai essayé lors de la liaison par programmation de déclaré un objet key que j'ajoute à la collection keys de ma table mais ça ne fonctionne pas ...

    Qqln aurait-il une idée ?

  2. #2
    Expert éminent
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    Décembre 2005
    Messages
    4 485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : Décembre 2005
    Messages : 4 485
    Points : 7 768
    Points
    7 768
    Par défaut
    Bonjour,

    Recrée un index unique avec une instruction SQL Jet.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim db As DAO.Database, strIndex As String
    Set db = CurrentDb
    strIndex = "CREATE UNIQUE INDEX uniqueindex " & _
               "ON NomTableLiee (Champ1)"
    db.Execute strIndex, dbFailOnError
    uniqueindex nom de l'index
    NomTableLiee : nom de la table que tu viens de lier (nom local)
    (Champ1) : champ(s) de l'index. Si plusieurs, les séparer par des virgules (Champ1, Champ2, Champ3)

    A+

  3. #3
    Membre régulier
    Inscrit en
    Août 2006
    Messages
    130
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 130
    Points : 86
    Points
    86
    Par défaut
    Hello,

    Merci pour la réponse, en effet ça marche sans problème ... des fois on va cherche loin ... !

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

Discussions similaires

  1. Erreur lors d'un update d'une table sql serveur en liaison ODBC avec SAS
    Par wizou44 dans le forum Administration et Installation
    Réponses: 5
    Dernier message: 25/05/2009, 09h44
  2. Réponses: 3
    Dernier message: 16/01/2007, 17h50
  3. Supprimer une image dans une table SQL Serveur 2000
    Par Soobook dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 14/09/2006, 17h00
  4. Réponses: 8
    Dernier message: 30/08/2006, 16h22
  5. [SQL SERVEUR]taille d'une base de donnée
    Par hirochirak dans le forum Autres SGBD
    Réponses: 2
    Dernier message: 08/01/2004, 12h07

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