Discussion :

[Marc_27]

Bonjour,

voilà un morceau de code que me permets de remplir une table Access avec des donnés provenant d'une base IBM AS400:

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
Set Cmd400.ActiveConnection = Con400
Cmd400.CommandText = UCase(Trim(textSQL))
Set Rs400 = Nothing
Set Rs400 = Cmd400.Execute()
 
While Not Rs400.EOF
    For colCount = 0 To Rs400.Fields.Count - 1
        If Rs400.Fields(colCount).ActualSize = -1 Then
            text400 = Null
        Else
            val400 = Rs400.Fields(colCount).Value
            text400 = val400
        End If
        If colCount = 0 Then
            Set rs = New ADODB.Recordset
            rs.ActiveConnection = CurrentProject.Connection
            rs.Source = "SELECT * FROM [telephones_bis]"
            rs.CursorType = adOpenDynamic
            rs.LockType = adLockOptimistic
            rs.Open
            rs.AddNew
            rs.Fields(colCount).Value = text400
            rs.Update
            rs.Close
            If Not IsNull(text400) Then
                tit = CLng(text400)
            Else
                tit = 0
            End If
        Else
            Set rs = New ADODB.Recordset
            rs.ActiveConnection = CurrentProject.Connection
            rs.Source = "SELECT * FROM [telephones_bis] WHERE CLIENTE=" & tit
            rs.CursorType = adOpenDynamic
            rs.LockType = adLockOptimistic
            rs.Open
            If Not rs.EOF Then
                rs.MoveLast
                rs.Fields(colCount).Value = text400
                rs.Update
            End If
            rs.Close
        End If
    Next colCount
    Rs400.MoveNext
Wend
 
Set Rs400 = Nothing
Con400.Close

Mon problème est-ce qu'il prend trop de temps pour être exécuté (environ 30mn).

La même requête, si au lieu de remplir la table Access, j'utilise pour remplir un tableau Excel, est faite en environ 1mn.

Je crois qui ça doit avoir un rapport avec la connexion ADO qui j'utilise pour remplir la table Access.

Est-ce que quelqu'un connaît une façon un peu plus légére de remplir ma table Access?
Merci d'avance pour toute aide...

[Marc_27]

J'ai essayé

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
61
62
63
64
65
Set Cmd400.ActiveConnection = Con400
Cmd400.CommandText = UCase(Trim(textSQL))
Set Rs400 = Nothing
Set Rs400 = Cmd400.Execute()
 
While Not Rs400.EOF
    For colCount = 0 To Rs400.Fields.Count - 1
        If Rs400.Fields(colCount).ActualSize = -1 Then
            text400 = Null
        Else
            val400 = Rs400.Fields(colCount).Value
            text400 = val400
        End If
        Select Case colCount
            Case 0
                If Not IsNull(text400) Then
                    tit = CLng(text400)
                Else
                    tit = 0
                End If
            Case 1
                If Not IsNull(text400) Then
                    t1 = text400
                Else
                    t1 = ""
                End If
            Case 2
                If Not IsNull(text400) Then
                    t2 = text400
                Else
                    t2 = ""
                End If
            Case 3
                If Not IsNull(text400) Then
                    autre = text400
                Else
                    autre = ""
                End If
            Case 4
                If Not IsNull(text400) Then
                    fax = text400
                Else
                    fax = ""
                End If
        End Select
    Next colCount
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = CurrentProject.Connection
    rs.Source = "SELECT * FROM [telephones_bis] WHERE CLIENTE=" & tit
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Open
    rs.AddNew
    rs.Fields(0).Value = tit
    rs.Fields(1).Value = t1
    rs.Fields(2).Value = t2
    rs.Fields(3).Value = autre
    rs.Fields(4).Value = fax
    rs.Update
    rs.Close
    Rs400.MoveNext
Wend
 
Set Rs400 = Nothing
Con400.Close

Ici j'ai fait une variable pour chaque champ de ma requête, pour les enregistrer tous ensemble après...

et il marche un peu plus vite (15mn), mais je crois que c'est possible de le faire meilleur...

[Access Newbie]

Bonjour,

Avez-vous essayé de faire une requete sql direct ? (par l'interface access)

Vous insérez ensuite vos données dans une table access.

Ne serait-ce pas plus simple ?

D'autre part vous pouvez aussi modifier les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                If Not IsNull(text400) Then
                    t1 = text400
                Else
                    t1 = ""
                End If

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
                    t1 = nz(text400,"")

[Marc_27]

Merci et bonjour Access Newbie.

Avez-vous essayé de faire une requete sql direct ? (par l'interface access)

Tu veux dire Requêtes/Nouvelle Rêquete?
Le probleme c'est que je n'ai pas la table AS400 lié dans ma base Access. Il faut que je passe par une chaine de connexion, etc...

[Access Newbie]

En passant par une requete sql direct ca devrait le faire.

Un ptetit coup d'oeil par ici sera le bienvenu
http://access.developpez.com/faq/?pa...etes#ReqOracle

[Marc_27]

Merci beaucoup!


Il a marché nikel!!!