Discussion :

[krassi]

Bonjour,

je butte sur pb suivant
j'importe des données d'une table Oracle via une connection odbc par DoCmd.TransferDatabase ...
La table importée est tres lourde (plus de 800000 enregistrements) et je n'ai pas besoin de tous les champs.
J'ai beau chercher, je ne trouve pas comment importer que certains champs de la base.

Merci de votre aide

Krassi

[Invité]

Bonjour

Si tu veux importer certains champs il faut passer par ADO, avec une requête SQL où tu sélectionne tes champs.

Va voir les tutos ADO

Où sinon tu peux liés ta table, et faire une requête pour récupérer les champs que tu veux (ou une requête de création de table)

Starec

[krassi]

Merci,
je suis allé voir vers ADO et ai pondu ce bout de code;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function NORD() 'connection à la base CTCSBDP
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
Dim rst As New ADODB.Recordset
'Définition de la chaîne de connexion
cnx.ConnectionString = "DSN=CTCSDBP;UID= aa ;PWD= bb  ;"
 
'Ouverture de la base de données
cnx.Open
 
rst.Open "SELECT BZID01,RSTI01 FROM PGNCTCSF.CTVSIT", cnx

Voila, maintenant je suis une buse, mais je ne sais comment entrer les données de ce recordset dans une table de ma base

Merci pour votre aide

Krassi

[LedZeppII]

Bonsoir,

un exemple de code pour copier dans un table existante:

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
Function NORD() 'connection à la base CTCSBDP
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cn2 As ADODB.Connection, rs2 As ADODB.Recordset
Dim strTblName As String
 
' Nom table Access cible
strTblName = "tblTEST"
 
Set cnx = New ADODB.Connection
'Définition de la chaîne de connexion
cnx.ConnectionString = "DSN=CTCSDBP;UID=aa;PWD=bb;"
 
'Ouverture de la base de données distante
cnx.Open
 
rst.Open "SELECT BZID01,RSTI01 FROM PGNCTCSF.CTVSIT", cnx
 
' Vider la table locale
CurrentDb.Execute "DELETE FROM " & strTblName
' Ouverture recordset pour table Access locale
Set cn2 = CurrentProject.Connection
Set rs2 = New ADODB.Recordset
rs2.Open "SELECT * FROM " & strTblName, cn2, adOpenKeyset, adLockOptimistic
 
Do While Not rst.EOF
   rs2.AddNew
   rs2("BZID01") = rst("BZID01")
   rs2("RSTI01") = rst("RSTI01")
   rst.MoveNext
Loop
If rs2.EditMode <> adEditNone Then rs2.Update
 
' Fermeture recordset et connexion locales
rs2.Close
Set rs2 = Nothing
Set cn2 = Nothing
 
' Fermeture recordset et connexion distante
rst.Close
Set rst = Nothing
cnx.Close
Set cnx = Nothing
 
End Function

La copie des enregistrements de fait champ par champ
champ cible = champ souce : rs2("BZID01") = rst("BZID01")
ce qui permet d'ailleurs d'avoir des noms de champ différents.

A+

[krassi]

Merci à vous pour votre aide; ça marche du feu de Dieu

Krassi