Discussion :

[skippy86]

Bonjour à tous,

je galère pour importer à l'aide d'un script VBA un fichier *.xml dans une table de ma BD Access.

Quelqu'un a-t-il déjà écrit pareille fonction ?

voici ce que je souhaiterai importer:

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
 
<Document>
    <name>M13 -- HaltePunkte</name>
    <Placemark>
        <name>Sion, poste/gare</name>
        <description>SION, P_1</description>
        <Point>
            <coordinates>7.358275000000001,46.2278133333333,0</coordinates>
        </Point>
    </Placemark>
    <Placemark>
        <name>Sion, Carrefour Ouest</name>
        <description>C.Ouest_1</description>
        <Point>
            <coordinates>7.346816666666669,46.2284883333333,0</coordinates>
        </Point>
    </Placemark>

chaque "Placemark" est une entrée dans la table, dont les champs sont:
- Name
- Description
- Point

d'avance merci pour votre aide.
skippy86

[pier.antoine]

Bonjour

Je ne peux pas répondre, mais avez vous jeté un oeil sur le tutoriel suivant :

Repousser les limites d'Access - récupérer un fil RSS


Je pense qu'il peut vous aider.

Pierre

[skippy86]

Bonjour,

voici comment j'ai résolu partiellement mon souci.

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
49
50
51
52
53
54
55
56
57
58
59
60
 
Private Sub Commande110_Click()
    fnFieldSplit "Point", "coordinates", "x", "y", "z", ","
End Sub
 
Function fnFieldSplit(sTable As String, _
                      sFieldToSplit As String, _
                      sNewField1 As String, _
                      sNewField2 As String, _
                      sNewField3 As String, _
                      sSeparator As String)
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Dim sC1 As String, sC2 As String, sC3 As String
    Dim Pos As Long
    Dim Pos2 As Long
 
    Set DB = CurrentDb
    'Set sTable = Point
    'Set sFieldToSplit = coordinates
    'Set sNewField1 = x
    'Set sNewField2 = y
    'Set sSeparator = ","
 
 
    'ajout des trois champs
    CurrentDb.Execute "ALTER TABLE [" & sTable & "] " _
                      & "ADD COLUMN [" & sNewField1 & "] TEXT;"
    CurrentDb.Execute "ALTER TABLE [" & sTable & "] " _
                      & "ADD COLUMN [" & sNewField2 & "] TEXT;"
    'CurrentDb.Execute "ALTER TABLE [" & sTable & "] "
                      '& "ADD COLUMN [" & sNewField3 & "] TEXT;"
    Set RS = DB.OpenRecordset(sTable)
 
    'boucle sur les enregistrements
    Do Until RS.EOF
        Pos = InStr(RS(sFieldToSplit), sSeparator)
        sC1 = Trim(Left(RS(sFieldToSplit), Pos - 1))
        sC2 = Trim(Mid(RS(sFieldToSplit), Pos + 1))
        'sC3 = Trim(Right(RS(sFieldToSplit), Pos + 1))
 
        RS.Edit
        RS(sNewField1) = sC1
        RS(sNewField2) = sC2
 
        RS.Update
        RS.MoveNext
    Loop
 
 
 
    'libérer
    RS.Close
    DB.Close
    Set RS = Nothing
    Set DB = Nothing
    MsgBox "vorgang abgeschlossen"
    Exit Function
 
End Function

Juste une question, je travail avec Trim(Left) et Trim(Mid) pour trier la chaine. Or dans la Trim(Mid) j'ai 46.xxxxxxxxxx,0 comment je peux virer ce ,0 ?

Merci pour votre aide.