Base de donnéesRésolu

Question

Bonjour, 

j utilise ce code qui fonctionne presque ja i qq soucis 

    - dbAutoIncrField semble ne pas fonctionner 

    - je n arrive pas a donner le nombre de decimales dans le single 

Merci de votre aide



Private Sub CoCreation_base_Click()

Dim Mabase As Database 'Ajouter "preferences Microsoft DAO Object Library"

Dim Table As TableDef

Dim Champ As Field  'D&#233;claration des variables

  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(App.Path & "\Essai.mdb", dbLangGeneral)

  

  'Cr&#233;ation de latable"Mesures1"

  Set Table = Mabase.CreateTableDef("Mesure1")



  'creation des champs

  Table.Fields.Append Table.CreateField("index", dbAutoIncrField)

  Table.Fields.Append Table.CreateField("altitude", dbSingle)

  Table.Fields.Append Table.CreateField("latitude", dbText)

  Table.Fields.Append Table.CreateField("ns", dbText, 2)

  Table.Fields.Append Table.CreateField("longitude", dbText)

  Table.Fields.Append Table.CreateField("eo", dbText, 2)

  Table.Fields.Append Table.CreateField("satellite", dbInteger)

  Table.Fields.Append Table.CreateField("date", dbDate)

  Table.Fields.Append Table.CreateField("heure", dbDate)

  Table.Fields.Append Table.CreateField("datepc", dbDate)

  Table.Fields.Append Table.CreateField("heurepc", dbDate)

  Table.Fields.Append Table.CreateField("azimuth", dbInteger)

  Table.Fields.Append Table.CreateField("vitesse", dbSingle)

  Mabase.TableDefs.Append Table

  

Exit Sub

ExisteDeja:

Beep

Debug.Print "probleme base"

End Sub

todac · Accepted Answer

Merci je trouve ca plus joli et plus fonctionel

@+

cs_CanisLupus · Answer

Salut,

Pour le numeroauto :

A la place de 

Table.Fields.Append Table.CreateField("index", dbAutoIncrField)

code

Table.Fields.Append Table.CreateField("index", dbLong)
Table.Fields("index").Attributes = dbAutoIncrField

Pour le nb de d&#233;cimales du single, je ne sais pas faire et je pr&#233;f&#232;re g&#233;rer &#231;a par code (au moins, la table contient les vraies donn&#233;es, le reste n'est qu'un probl&#232;me d'affichage).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Base de données

2 réponses

Discussions similaires