Discussion :

[EoWinn]

Bonjour a tous.
Je suis confronté a un problème et ceci depuis plusieurs jour et après recherche est sans succès je me tourne enfin vers vous.

Sous Access en VBA je me connecte a une table DB2 de type Biblio/table.
ceci sans aucun problème j'ai bien accès a mes données

mon souci est de créer une table avec ces données dans mon Access pour pouvoir ensuite en faire un État.
Il me faut donc une table avec ces données dans Access et je n'y arrive pas.

j'ai un Recordset bien chargé de mes données DB2 je Movnext dessus sans problème mais toujours pas de table disponible dans Access qui me permettrais de générer le sus dit état.

Merci d'avance de vos avis et réponses.

[Invité]

Bonjour

Il serait bon que tu donnes le code que tu utilises, sinon

Philippe

[EoWinn]

le code est des plus simple
je commence avec les chaines de connexions a L'as400 rien de bien complexe et
je fini avec un

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
xxx
xxx
 
Set Comd.ActiveConnection = Conec
Comd.CommandText = sqltxt
Set Record = Nothing
On Error Resume Next
Set Record = Comd.Execute()
Do While Not Record.EOF
For x = 0 To Record.Fields.Count - 1
Mavar(x) = Record.Fields(x).Value
Next x
Record.MoveNext
Loop
Conec.Close

voila la fin du prog pour le moment et jusque la tout va bien, comment avec tout ça je crée une table Access pour pouvoir ensuite en faire un état ?

[ffdream62]

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
Set MaTable as DAO.Recordset 
 
Set Comd.ActiveConnection = Conec
Comd.CommandText = sqltxt
Set Record = Nothing
On Error Resume Next
Set Record = Comd.Execute()
 
'Charge ta table locale dans un RST
Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM MaTable;")
 
Do While Not Record.EOF
     For x = 0 To Record.Fields.Count - 1
          Mavar(x) = Record.Fields(x).Value
 
          '************************
          'Créé une nouvelle ligne pour chaque nouvelle valeur
          MaTable.addnew
          MaTable!Champ1 = Record.Fields(x).Value
          MaTable.update
          '************************
 
     Next x
     Record.MoveNext
Loop
 
matable.Close
Conec.Close

[EoWinn]

Merci beaucoup pour ce bout de code je met ça en application dans la journée et je reviens vers vous après.
Cdlt.

[EoWinn]

Merci beaucoup.
Voila le résultat ou je voulais arriver :

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
Set Comd.ActiveConnection = Conec
Comd.CommandText = sqltxt
Set Record = Nothing
On Error Resume Next
Set Record = Comd.Execute()
' Crée table
E = "Resultat"
strSQL = "CREATE TABLE " & E & " "
Call DoCmd.RunSQL(strSQL)
Set db = CurrentDb()
db.TableDefs.Refresh
Set tdf = db.TableDefs(E)
' Ajoute les champs de la table
' Crée champ
For X = 0 To Record.Fields.Count - 1
    nomchamp = Record.Fields(X).Name
    longchamp = Record.Fields(X).DefinedSize
    Set fld = tdf.CreateField(nomchamp, dbText, longchamp)
    ' Ajoute le champ
    tdf.Fields.Append fld
Next X
'Charge ta table locale dans un RST
Dim MaTable As DAO.Recordset
Set MaTable = CurrentDb.OpenRecordset(E)
Do While Not Record.EOF
    MaTable.AddNew
    For X = 0 To Record.Fields.Count - 1
        MaTable.Fields(X).Value = Record.Fields(X).Value
    Next X
    MaTable.Update
    Record.MoveNext
Loop
MaTable.Close
Conec.Close

Vraiment Merci a tous