Discussion :

[mehdichess74]

Bonjour,

J'ai besoin de votre aide afin de réaliser un travail, il s'agit une base de données pluviométrique.
je recois chaque mois des fichiers du type Ascii : RTNX0501.R01(05 c'est l'année 2005, 01 c'est le mois, R01 c'est le code de la région)

ma question comment puis-je faire la mise à jour dans une base de données Access à partir de ces fichiers Ascii.
les séparateurs des champs sont les vergules
1er champ : code (sans importance)
2eme champ : code de la station
3eme champ : code parametre (005 c'est la pluviométrie)
4eme cham : Année et mois
5eme champ a 35 : quantité de pluie journaliers


les champs de la base Access sont :
code de la station, date, quantité de pluie dans la table data
code de la station, nom de la station, coordonnées géographiques, dans la table stations

salutations et merci de votre contributions

[LedZeppII]

Bonjour,

En parlant de pluie, ça n'arrête pas depuis de matin

Je suis parti du principe que tu voulais tes données en lignes (1 Jour = 1 Ligne).
J'ai créé une table tblPluvio ayant les champs suivants:
codeStation (Texte)
Date (Date/Time)
QtePluie (Numérique - Réel double)
.. et une procédure pour lire le fichier et ranger les données dans la table.

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
Sub ImportPluvio()
Dim fileName As String, strLigne As String
Dim Cols() As String
Dim codeStation, CodeParam, codeAAAAmm, QtePluie As Double
Dim intAn As Integer, intMois As Integer, intJour As Integer
Dim Dt As Date, Dt1 As Date, Dt2 As Date, DtOffset As Integer
Dim db As DAO.Database, r As DAO.Recordset

fileName = "E:\RTNX0501_R01.txt"

Open fileName For Input As #1

Set db = CurrentDb
Set r = db.OpenRecordset("tblPluvio")

Do While Not EOF(1)
   Line Input #1, strLigne
      Cols() = Split(strLigne, ",")   ' Transformer la ligne en tableau
      codeStation = Cols(1)
      CodeParam = Cols(2)
      codeAAAAmm = Cols(4): intAn = Mid(codeAAAAmm, 1, 4): intMois = Mid(codeAAAAmm, 6, 2)
      Dt1 = DateSerial(intAn, intMois, 1)  ' 1er date du mois
      Dt2 = DateAdd("m", 1, Dt1) - 1       ' Dernière date du mois
      
      ' Ne traiter que les mesures pluviométriques
      If CodeParam = "005" Then
         For Dt = Dt1 To Dt2
             DtOffset = (Dt - Dt1)
             QtePluie = Val(Cols(DtOffset * 2 + 5))
            
             r.AddNew
               r![codeStation] = codeStation
               r![Date] = Dt
               r![QtePluie] = QtePluie
             r.Update
         Next
      End If
Loop

Close #1
db.Close

End Sub

Ca devrait pouvoir te servir d'exemple.

A+