Insérer les données d'un Recordset dans une ADOX.Table

**-={-_-}=-** · 29/04/2009, 12h14

Bonjour tout le monde,
Je fais appel à votre savoir car le mien est un peu limité sur le sujet.
J'ai créé via ADOX un mdb

Code :

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

1
2
Set Cat = New ADOX.Catalog    
    Cat.create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\USERS\toto.mdb;"

J'ai récupéré des données dans un recordset créé via ADODB qui se connecte à un fichier texte.

Code :

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

1
2
3
4
5
Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;" & _
"extended properties=""Text;CharacterSet=ANSI;HDR=YES;DMT=Delimited;"""
    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT * FROM titi.txt", Cn

Comment je fais pour insérer les données de mon recordset dans une ADOX.Table?

D'avance merci

**Lynx92260** · 29/04/2009, 13h07

bonjour

Il suffit d 'invoquer la méthode addnew

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;" & _
"extended properties=""Text;CharacterSet=ANSI;HDR=YES;DMT=Delimited;"""
    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT * FROM titi.txt", Cn
    rs.Addnew
    rs.flieds(1)="toto"
    .......
    ........
    rs.flieds(n)=5
    rs.update

En principe il faut que les entêtes soient définies elles serviront de champs nommés pour la collection fields.

Voilà pour le principe

Bon développement

**-={-_-}=-** · 29/04/2009, 14h06

Bonjour Lynx92260,

Merci pour ton aide.
Mais je ne souhaites pas ajouter de champs à mon recordset Rs mais de prendre les fields et les items de mon Rs pour implementer une ADOX.table crée au préalable.

**Lynx92260** · 29/04/2009, 17h03

Envoyé par -={-_-}=-

Bonjour Lynx92260,

Merci pour ton aide.
Mais je ne souhaites pas ajouter de champs à mon recordset Rs mais de prendre les fields et les items de mon Rs pour implementer une ADOX.table crée au préalable.

Bon ok

il suffit d'adapter ce code

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
 
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;" & _
"extended properties=""Text;CharacterSet=ANSI;HDR=YES;DMT=Delimited;"""
    Set rsCible = Cn.openrecordet("TableSource")
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM titi.txt", Cn
    While Not rs.EOF()
           rsCible.Addnew
           rsCible.flieds(1) = rs.fields("klklkl")
           '.......
           '.......
           rsCible.flieds(n) = rs.fields("klkldkslklsll")
           rsCible.Update
           rs.movenext
    Wend

Cette approche permet de piloter tout les champs que l on veut

Sinon une commande de SQL pure fera l'affaire INSERT INTO FROM ........

Il existe egalement des commandes d'importation dans l'objet adodb ..........

Bref beaucoup de solutions existent pour inserer des recordsets de fichier texte dans une base de type mdb...

Il suffit de faire le bon choix adapté au contexte du projet

Bonne continuation

Voilà

**-={-_-}=-** · 29/04/2009, 23h44

Je suis désolé d'insister mais justement c lorsque j'essaye de faire communiquer mon Rs et mon ADOX.
Quelques sont les objets ADOX qui me permettent de prendre les valeurs de mon Recordset?
C vraiment la dessus que je bloque.
Merci.

**Lynx92260** · 30/04/2009, 09h02

J 'essaye de t'aider mais l'objet field permet de récupérer les valeurs de ton recordset . Regarde les proprietes de l'objet

Sinon montre un bout de ton fichier ascii et un fichier excel pour mieux comprendre le probleme

Un développeur soucieux d'aider

**-={-_-}=-** · 30/04/2009, 09h52

Bonjour Lynx92260,
Je sais que tu essayes de m'aider et je t'en suis tres reconnaissant.
Tu a mis le doigt sur mon problème pricinpal.
Je sais parcourir mon recordset (je l'utilise dans toutes mes macros) et je sais faire pas mal de choses en ADODB.

Le souci de l'ADODB est que tu ne peux pas faire de requete sql hormis un SELECT. DOnc pas de DELETE, pas de UPDATE, pas de ADD.
Pourquoi? Car en ADODB lorsque tu fais ta connection vers un fichier Text ou un Excel, la réference considére que c'est une LINK TABLE.

Donc pour palier à ce souci de requete SQL, j'ai pensé passer par ADOX.
ADOX.Catalog.Create te permet de créer un fichier MDB.
ADOX.Table te permet de créer une table (Access) dans laquelle tu peux déterminer les différentes colonnes.

Tu peux faire le lien en un objet ADOX et ADODB grace à l'un de ces deux codes:

Code :

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

1
2
3
4
Set Cn       = New ADODB.Connection
  Set Cat      = New ADOX.Catalog
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
  Set Cat.ActiveConnection = Cn

ou

Code :

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

1
2
3
4
Set Cn       = New ADODB.Connection
  Set Cat      = New ADOX.Catalog
  Cat.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
  Set Cn = Cat.ActiveConnection

et je pense qu'avec ca c'est presque gagné.

en gros tu créés une autre connection

Code :

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

1
2
3
4
5
6
Set CnASCII       = New ADODB.Connection
 
  CnASCII.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
 
    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT * FROM titi.txt", CnASCII

donc j'ai ma table de créer (partie zappée) mais vide.
J'ai les données voulues dans un recordset. Aucun changement a faire car je veux importer tout mon ASCII dans une table ADODB.
J'ai des références qui "communiquent".

Le seul souci c'est que je sais pas quels attributs ou méthode ou même object de ADOX utiliser pour récupérer dans une ADOX.Table les informations présentes dans un recordset.

C'est vraiment mon seul point bloquant.
Pour l'instant

**Lynx92260** · 30/04/2009, 11h51

bon je vois le topo

Je cherche a comprendre .

Tu veux piloter une base de donnée format MsAccess sous vba excel ?

Le fichier ascci tu veux insérer tous les données dans une table vide préalablement structure comme pour le fichier ASCII

La Vrai question est que veux tu faire de cette table une fois remplie sous ton application excel ?

J'ai déjà beaucoup d applications sous excel avec des liens de données externes oracle , sql server et fichier CsV etc ........

Je pense pourvoir d'aider en te fournissant un exemple concret dans fichier excel avec ton modele de fichier ascii.......

Dans l'attente de t'aider passe une bonne journée

**-={-_-}=-** · 30/04/2009, 13h22

Envoyé par Lynx92260

La Vrai question est que veux tu faire de cette table une fois remplie sous ton application excel ?

Je fais cette base Access pour pouvoir faire principalement des UPDATE et des DELETE sur mes données ce que je ne peux pas avec ADODB.
De plus lorsque j'ai x fichiers sources (csv, txt ou xls) je peux les centraliser en 1 seule base Access. Cela m'evite d'avoir plein de connection dans tout les sens à gérer et la "communication" entre les tables et bien plus facile.

Quand je fais une macro, je vois toujours la macro comme un outil de pilotage. Donc aucune manip de données n'est faite directement sur le Excel en question, il ne sert qu'à piloter les données et à génerer un reporting final.

Merci

**Lynx92260** · 04/05/2009, 09h00

bonjour,

N affirme pas rapidement l'impossibilite de insert , delete et update est impossible avec une base access sinon ca sert à rien qu à lire des des donnees

Volia un tutoriel complet sur le recorset ado http://vb.developpez.com/bidou/recordset-ado/

Je t" encourage à lire pour parfaire tes connaissances sur ADODB

Bon lecture

**-={-_-}=-** · 04/05/2009, 11h23

Merci Lynx92260,
J'ai bien vu que je pouvais faire des INSERT, des DELETE et des updates dans mes recordset.
J'ai mis ce lien en favori !!!

Par contre, j'aimerais quand même savoir si on peut insérer des données d'un recordset dans ADOX.table.
Je suis assez curieux techniquement et je pense que c'est possible.

Mais en tout cas merci pour ce tutoriel sur les recordset!!

**-={-_-}=-** · 04/05/2009, 15h34

Envoyé par -={-_-}=-

J'ai bien vu que je pouvais faire des INSERT, des DELETE et des updates dans mes recordset.

Ben justement, j'ai essayé et je n'y arrive vraiment pas pour les updates.
Si j'essaye de le faire en suivant ton tuto, il me dit que je suis en read only.
Donc on revient au souci de la link table!!
Toi de ton coté, tu y arrives à updater des champs dans un recordset si tu pointes vers un txt, csv, ou xls??
Merci

**Lynx92260** · 06/05/2009, 09h11

je ne te lâche pas je suis un peu débordé ces derniers temps .......

J'ai compris que tu veux lire un fichier ascii format csv pour insérer les données dans une table titi msaccess toto.mdb.

Mais je t'ai mis sur la piste pourtant tu crées deux connexions

CnCible de type adodb.connexion qui pointe sur la base toto.mdb et via la table titi

CnSource de type adodb.connexion qui pointe sur le fichier asccii

Tu parcours les recordsets du cnsource pour ajouter par la méthode addnew du recordset du cncible

Voilà le principe que j'ai exposé dans mon code exemple ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
    Set rsCible = CnCible.openrecordet("TableSource")
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM titi.txt", CnSource
    While Not rs.EOF()
           rsCible.Addnew
           rsCible.flieds(1) = rs.fields("klklkl")
           '.......
           '.......
           rsCible.flieds(n) = rs.fields("klkldkslklsll")
           rsCible.Update
           rs.movenext
    Wend

Bon courage

**-={-_-}=-** · 07/05/2009, 15h33

Hello mister,
Moi non plus j'ai pas laché l'affaire et j'ai trouvé :
Et tout ce grace à la magie DAO.
Voici comment ca marche :

1° Tu ajoutes la référence DAO
2) Voici un code exemple :

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
Public oDAO As DAO.DBEngine            'Object DAO permettant de piloter Access
Public Base As DAO.Database            'Base de données Access
 
Sub MagieDAO()
 
 
    Dim XLTable As DAO.TableDef
    Dim strSQL As String
 
      'Creation de la base
      Set oDAO = New DAO.DBEngine
      Set Base = oDAO.CreateDatabase("C:\Temp.mdb", ";LANGID=0x0409;CP=1252;COUNTRY=0", 64)
 
      'Création d'une link table vers mon excel
      Set XLTable = Base.CreateTableDef("TempXL")
      XLTable.Connect = "Excel 8.0;DATABASE=P:\p.xls"
      XLTable.SourceTableName = "Sheet1$"
      Base.TableDefs.Append XLTable
 
      'Creation d'une table (une vraie) qui reprend extactement le format de mon excel
      Set oIdx = Base.CreateTableDef("FichierExtract")
With oIdx
    For i = 0 To XLTable.Fields.Count - 1
        If XLTable.Fields(i).Type = dbText Then
            .Fields.Append .CreateField(XLTable.Fields(i).Name, dbText, 255)
        Else
            .Fields.Append .CreateField(XLTable.Fields(i).Name, XLTable.Fields(i).Type)
        End If
    Next i
    .Fields.Append .CreateField("MontantDollar", dbDouble)
End With
 
Base.TableDefs.Append oIdx
 
      'Copie des données de la link table vers ma vrai table
      strSQL = "Insert into FichierExtract Select * FROM TempXL"
 
      Base.Execute strSQL
 
      'Suppresion de la table liée (on en a plus besoin).
      Base.TableDefs.Delete "TempXL"
 
      'ET CA, ENFIN CA MARCHE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      strSQL = "UPDATE FichierExtract Set MontantDollar = Montant*1.34"
      Base.Execute strSQL
 
      Base.Close
 
   End Sub

Ta solution est pas mal mais elle est super longue si le fichier titi.txt est enorme.
Par exemple, il arrive que j'ai des fichiers de + de 300 000 lignes donc la bonjour le temps d'execution!!!!

**Lynx92260** · 07/05/2009, 17h11

Moi aussi je suis passé par le moteur jet de MsAccess DAO mais avec une petite variante en utilisant la lecture directe du fichier (plusieurs méthodes)

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
 
 
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
'Instanciation du FSO
Dim sLig() as variant
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("D:\Essai\monfichier.txt")
Set oTxt = oFl.OpenAsTextStream(ForReading)
With oTxt
    While Not .AtEndOfStream
         ' Creation d'un tableau
         sLig=Split(.Read(1),";")
         rscible.addnew()
         rsCible("Nom")=sLig(0)
         ......
         rsCible("Montant")=sLig(n) 
         rscible.update
         .Skip 1
    Wend
End With