Creation indexRésolu

Question

Bonjour, 
en vue d'eviter des doublons dans une base je voudrai indexer 3 champs dasn Un seul si possible
j ai une piste mais ca ne fonctionne pas 
aurriez vous une id&#233;e ?
d'avance Merci de votre aide.

Public Function Creation_base(CheminBase As String)
Dim Mabase As Database 'Ajouter "preferences Microsoft DAO Object X Library"
Dim Table As TableDef
Dim Champ As Field  'D&#233;claration des variables
Dim Idx As Index
  On Error GoTo ExisteDeja

  'Cr&#233;ation de la base de donn&#233;es "Essai.mdb" dans le r&#233;pertoire de l'application
  Set Mabase = DBEngine.CreateDatabase(CheminBase, dbLangGeneral)
  
  Set Table = Mabase.CreateTableDef("Mesure1")
  'creation des champs
  Table.Fields.Append Table.CreateField("immat", dbText)
  
  Table.Fields.Append Table.CreateField("datesat", dbText)
  Table.Fields.Append Table.CreateField("heuresat", dbText)
    
    
    Set Idx = Table.CreateIndex("Datepc")
    Set Idx = Table.CreateIndex("heurepc")
    Set Idx = Table.CreateIndex("immat")
    
    Idx.Fields.Append Idx.CreateField("datepc")
    Idx.Fields.Append Idx.CreateField("heurepc")
    Idx.Fields.Append Idx.CreateField("immat")

    Mabase.TableDefs.Append Table
  
Exit Function
ExisteDeja:
On Error GoTo 0
Beep
Debug.Print "probleme base"
End Function

cs_jperre · Accepted Answer

Sub Creation_base(CheminBase As String)
 Dim MaBase As DAO.Database
 Set MaBase=DBEngine(0).CreateDatabase(CheminBase,dbLangGeneral)
 MaBase.Execute "CREATE TABLE Mesure1(Immat TEXT(8), DatePc TEXT(10), HeurePc   TEXT(8), CONSTRAINT Primarykey PRIMARY KEY(Immat, DatePc, HeurePc));"
 MaBase.Close
End Sub

Voilà, en une seule instruction la table est créée avec son index primaire...

cs_jperre · Answer

Pourquoi ne pas utiliser les intructions SQL pour créer l'index:
1 - CREATEINDEX :

"CREATE UNIQUE INDEX Primarykey ON Mesure1 (datepc, heurepc,immat)WITH PRIMARY;"

2 - ALTER TABLE :
"ALTER TABLE Mesure1 ADD CONSTRAINT Primarykey PRIMARY KEY (datepc,heurepc,immat);"

Ensuite, il suffit d'exécuter ce code avec l'instruction Execute... d'un objet Command ou Database

todac · Answer

Merci pour cette reponse rapide, 
mais je suis debutant pourrriez vous m inserer les lignes dans l exemple ci dessus ? 
j ai des problemes avec les ouvertures et fermetures (Mabase.TableDefs.Append Table) je n arrive pas a comprendre
Merci

todac · Answer

Merci Beaucoup pour cette simplification
ptite question subsidiaire su je veux ajouter un champ non index&#233; &#224; cette base ?
un  champ vitesse double(10) par exemple
Merci

cs_jperre · Answer

Il suffit de l'ajouter dans la liste des champs après le nom de la table (nomChamp TypeDeDonnée). Il faut savoir qu'en SQL, les types de données sont un peu différents qu'avec les objets DAO.
Chaîne de 10 caractères =TEXT(10),
Booléen = BIT,
Octet=BYTE,
Entier=SHORT,
Entier long=LONG,
Réel simple=SINGLE,
Réel double=DOUBLE,
Monétaire=CURRENCY,
Date=DATETIME,
Mémo=LONGTEXT,
Binaire=LONGBINARY,...
Celà vient du fait que le SQL est un language avec sa propre syntaxe....

todac · Answer

Encore Merci tout fonctionne parfaitement 
il me reste un ptit probleme 
Voici ma commande mais AUTOINCREMENT me fait planter  execute 
le but est d avoir un N&#176; d orde car apres je fais un sql = "Select * From Mesure1 Where 1 ORDER BY Numentree"

Merci 

Dim Mabase As DAO.Database
Set Mabase = DBEngine(0).CreateDatabase(CheminBase, dbLangGeneral)
  Mabase.Execute "CREATE TABLE Mesure1(Numentree SINGLE AUTOINCREMENT, Machine TEXT(16), Type TEXT(16), Immat  TEXT(10),  Altitude SINGLE, Latitude  TEXT(10), Longitude  TEXT(10), Satellite SHORT, Datesat TEXT(8), Heuresat TEXT(8), Azimuth  SINGLE, CONSTRAINT Primarykey PRIMARY KEY(Immat, Datesat, Heuresat));"
  Mabase.Close

cs_jperre · Answer

Quel est l'intérêt de mettre un champ autoincrementé dans la mesure ou l'index primaire se fait sur les champs Immat, Datesat et Heuresat.
"SELECT * FROM Mesure1;" se classe automatiquement dans l'ordre de l'index primaire. J'ai créé beaucoup d'applications utilisant des bases de données Access, dont certaines étaient très complexes, jamais je n'ai utilisé de champs autoincrement, car en cas de suppression d'enregistrements, on se prépare de beaux petits soucis si plusieurs tables sont liées.

Creation index

7 réponses

Discussions similaires