Insèrer dans une table un recordsetRésolu

Question

Bjr,
Comment remplir une table Access avec le contenu d'un recordset?
J'ai r&#233;ussi avec l'aide d'un pro &#224; faire une connexion ADODB, et de remplir un recordset.
Mon probl&#232;me maintenant est de transf&#233;rer ces info contenu dans le recordset dans une table access?
Merci

cs_jperre · Answer

Pour remplir une table de bases de données, il ne faut pas créer un recordset, mais un objet Command.

Dim oConn As ADODB.Connection, oCmd As ADODB.Command
Set oConn=New ADODB.Connection
oConn.ConnectionString=chaîne de connexion
oConn.Open
Set oCmd=New ADODB.Command
oCmd.ActiveConnection=oConn
oCmd.CommandText="INSERT INTO NomTableCible(rien si tous les champs sont identiques sinon (Champ1Cible, Champ2Cible,...)) [IN 'CheminEtNomBaseCible'] SELECT Champ1Origine, Champ2Origine,...(ou * pour tous les champs) FROM TableOrigine [ WHERE Conditions ] [GROUP BY champs de regroupement] [ORDER BY Champs de classement]"
oCmd.Execute
Set oCmd=Nothing
oConn.Close
Le code SQL entre crochets correspond à des options facultatives. Bien sur, pour écrire le SQL, il est recommandé d'avoir un peu étudié la question, c'est même indispensable.
Bon courage!...

Fiston53 · Answer

merci bien pour ta r&#233;ponse, mais il y a un message d'erreur :

Erreur d'ex&#233;cution '3001':
Les arguments sont de type incorrect, en dehors des limites autoris&#233;es ou en conflit les uns avec les autres.

Voici mon code :

Private Sub Essai()
Dim conBase As ADODB.Connection
Dim rsJeu As ADODB.Recordset
Dim strPath As String
Dim strDSN As String
strPath = "C:\BASE\DBF"
strDSN = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & strPath
    Set conBase = New ADODB.Connection
    conBase.ConnectionString = strDSN
    conBase.Open
    
Set oCmd = New ADODB.Command
oCmd.ActiveConnection = oConn   ' message d'erreur
oCmd.CommandText = "INSERT INTO ARTICLE [IN c:\BASE\DBF\GPARTICL.DBF] SELECT * FROM GPARTICL "
oCmd.Execute
Set oCmd = Nothing
oConn.Close

    conBase.Close
    Set conBase = Nothing
End Sub

cs_jperre · Answer

Dans la chaîne SQL, il y a une erreur :
Il y a :
"INSERT INTO ARTICLE [IN c:\BASE\DBF\GPARTICL.DBF] SELECT * FROM GPARTICL "
Il faut :
"INSERT INTO ARTICLE IN 'c:\BASE\DBF\GPARTICL.DBF' SELECT * FROM GPARTICL"

Fiston53 · Answer

j'obtient le meme message d'erreur,voila le code que j'utilise :

conBase.CommandText = "INSERT INTO ARTICLE IN 'c:\BASE\DBF\GPARTICL.DBF' SELECT * FROM GPARTICL"

cs_jperre · Answer

Dans la chaîne de connexion, il manque le nom de la base de données.

Private Sub Essai()
  Dim conBase As ADODB.Connection
  Dim rsJeu As ADODB.Recordset
  Dim strPath As String
  Dim strDSN As String
  strPath = "C:\BASE\DBF\GPARTICL.DBF"
  strDSN = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & strPath
  Set conBase = New ADODB.Connection
  conBase.ConnectionString = strDSN
  conBase.Open  
  Set oCmd = New ADODB.Command
  oCmd.ActiveConnection = ConBase   ' message d'erreur
  oCmd.CommandText = "INSERT INTO ARTICLE SELECT * FROM GPARTICL"
  oCmd.Execute
  Set oCmd = Nothing
  conBase.Close
  Set conBase = Nothing
End Sub

Fiston53 · Answer

Malheureusement il y a encore un message d'erreur :

N&#176; de l'erreur        :     Erreur d'ex&#233;cution '-2147217900(80040e14)':
Message d'erreur  :       "[Microsoft][ODBC Visual FoxPro Driver]Syntax error.

Au moment de l'exection :   oCmd.Execute

cs_jperre · Answer

Moi, je n'aurais pas mis de { et } dans la chaîne de connexion

strDSN = "Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=" & strPath

Il faudrait essayer. Personnellement, je n'utilise pas FoxPro mais Access et SQL.

Fiston53 · Answer

Malheureusement cela ne marche ttjrs pas, j'ai vue sur un autre forum se genre de chose :


myrecordset.addnew
myrecordset!nomchamp=valeurmyrecordset.update<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


est ce que l&#146;on pourrai adapter se genre de code pour remplacer l&#146;INSER INTO ?

rvblog · Answer

Salut Fiston, salut jperre, bon, allez, t'es en page 4. Il y a un truc à comprendre jperre, c'est que la "Base" source est un fichier dbf, et que la "Base" cible est une base Access. En plus, le code est du VBA sous Access. Donc, déjà, il va falloir une autre connection. En plus, vu de l'intérieur d'Access, ADO ne va pas être pratiquable (le code est dans la base, pas moyen de la ré-ouvrir). Il reste DAO, avec, si la table n'est pas déjà crée, une conversion de ADODB.Recordset en DAO.Recordset (types différents, attributs différents...), mais si la table est déjà crée, il faudra juste un mapping des noms de champs, et cela suffira. toujours preneur? rvblogn^{Je veux ton bien... et je l'aurais}

Fiston53 · Answer

Salut RV, merci d'avoir expliquer plus pr&#233;cis&#233;ment mon probl&#232;me &#224; jpierre, je n'aurai pas peu &#234;tre si pr&#233;cis.(perso je n'est pas tt compris)
En esp&#232;rent que jpierre est une solution qui me permettrai de mettre fin &#224; se probl&#232;me!!
Deux t&#234;te val mieux qu'une !!!

rvblog · Answer

Elle est faite ta table Access? Les noms des champs sont les mêmes dans les 2? les types aussi? rvblogn^{Je veux ton bien... et je l'aurais}

Fiston53 · Answer

Oui la table Access est d&#233;ja cr&#233;&#233;, il y a exactement le meme nombre de champs, et les types doivent etre identique.
Je pense vider la table en VB puis ajouter dedans le nouveau recordset.

rvblog · Answer

Si tu veux, essayes cela. Bon, il faut rajouter une référence à DAO (Microsoft DAO 3.6 Object Library). Ensuite, dans la même procédure que celle où tu récupères le dbf , déclares : Dim dbBaseCible As DAO.Database Dim rsJeuCible As DAO.Recordset Dim fldTempSource As ADODB.Field Après avoir ouvert la connexion ADODB, mais avant le While Not : 'affecte une référence à la base courante Set dbBaseCible = CurrentDb 'ouvre la nouvelle table Access, à adapter Set rsJeuCible = dbBaseCible.OpenRecordset("TableCible") Dans la boucle existante : 'tant qu'il y a des réponses While Not rsJeu.EOF 'ajoute un enregistrement temporaire dans le jeu cible DAO rsJeuCible.AddNew 'pour chaque champ du jeu source ADODB 'il faut impérativement qu'ils aient les mêmes nom, et types For each fldTempSource In rsJeu.Fields 'affecte la valeur du champ source à la valeur du champ cible rsJeuCible.Fields(fldTempSource.Name).Value = fldTempSource .Value 'champ suivant Next fldTempSource 'valide l'enregistrement temporaire rsJeuCible.Update 'avance d'une réponse rsJeu.MoveNext 'continue Wend 'ferme le jeu et libère la référence rsJeuCible.Close Set rsJeuCible = Nothing 'ferme la base et libère la référence dbBaseCible.Close Set dbBaseCible = Nothing Qu'en penses-tu? rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

Ah oui, au fait, + de 65000 lignes, ça peut être long à dérouler! à+ rvblogn^{Je veux ton bien... et je l'aurais}

Fiston53 · Answer

Ca marche &#224; moitier, il me met encore un message d'erreur :
Erreur d'ex&#233;cution '3163':
Le champ est trop petit pour accepter la quantit&#233; de donn&#233;es que vous voulez ajouter. Essayer d'ins&#233;rer ou de coller moins de donn&#233;es.

Il a qd meme commenc&#233; &#224; remplir la table (4500 lignes qd meme), c un peu long (ca se calcul en seconde donc pas encore trop grave, pour 4500 lignes, mais le plus important n'est pas le tps mais la fonctionnabilit&#233;)
Sinon ca commence &#224; sentir tr&#232;s bon cette affaire, merci RV!!!

cs_jperre · Answer

J'ai regardé un peu dans MSDN ce qui concerne le code SQL de Foxpro^. En effet, il est impossible de faire une requête ajout avec "INSERT INTO ... SELECT..., mais par contre, il faudrait essayer avec deux requêtes ajout successives :

 oCmd.CommandText = "SELECT * FROM GPARTICL INTO ARRAY TabTemp"
 oCmd.Execute
 oCmd.CommandText = "INSERT INTO ARTICLE FROM ARRAY TabTemp"
 oCmd.Execute
 Set oCmd = Nothing

A tester, car je n'ai pas installé Visual FoxPro!...

rvblog · Answer

En tout cas, je remarque que jperre ne lache pas l'affaire, et c'est remarquable! Et jperre, ne crois pas que je soit devin à comprendre aussi bien le problème de fiston, mais en fait, on a déjà travaillé ensemble : http://www.vbfrance.com/forum.v2.aspx?ID=695287 Ce qui n'empêche en rien qu'on puisse travailler avec toi, bien au contraire (par contre, pour être sur la même longueur d'onde, regardes le post de 16:41:51, je sais que quand il y en a beaucoup, parfois on en rate, surtout à plusieurs). Bon, fiston, tu sais quand je disais "conversion de ADODB.Recordset en DAO.Recordset (types différents, attributs différents...)" et "'il faut impérativement qu'ils aient les mêmes nom, et types", je pensais vraimment que c'était important. Mais bien sûr, je n'ai pas été assez précis (l'habitude que tu me comprennes) : Les types doivent être les plus proches possibles, et comme je sais que ce ne sont pas les mêmes de chaque côté (ex : Numeric ne rentre pas dans db), il faut les mettre plus grands du côté de DAO, pour l'import, quitte à redimensionner plus finement après. De plus, si tu n'as rien spécifié de précis du côté Access, les doivent être limitées en longueur à 50, par défaut, ce qui est peut-être trop petit. Pour tous les types numériquescôté DAO toujours) des types pouvant recevoir des (par défaut, Access a mis des Entiers Long). Et enfin, s'il y a des DatesDates (mais elles ne seront pas forcément compatibles), soit tu mets des chaînes de caractères (et il faudra rapidement les traiter pour les convertir en dates, les représentations littérales de date, ce n'est jamais viable) Donc, tu l'as dit "et les types doivent etre identique", tu ne croyais pas si bien dire, ils se font un devoir d'être compatibles! :) Bienvenue dans le monde de la conversion de types! PS : évidemment le problème est un petit peu différent si tu souhaites automatiser le traitement de façon à pouvoir l'utiliser plusieurs fois. rvblogn^{Je veux ton bien... et je l'aurais}

Fiston53 · Answer

merci pour ttes c info (mais ou va tu chercher tt &#231;a RV!!!). Je vais donc bosser sur les types (je pensai que &#231;a se r&#233;sumai a num&#233;ric,text,date,....), mais je pense que le plus dure est fait.
Concernant l'automatisation, je compte importer ttjrs la m&#234;me table (m&#234;me type),c juste le contenu qui change.Je vous recontacte demain dans la soir&#233;e, bon week end a ts les deux !!!<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />

rvblog · Answer

bon week-end (c'est quoi déjà un week-end, ah oui, les heures à 200%) rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

oui, toujours, les opérateurs que tu cites sont implémentés dans le SQL FoxPro (d'après la documentation en tout cas). essaies aussi "... MV_DMOU > {^01/01/2006}" En SQL, Between sert à filtrer entre 2 dates. il existe aussi en FoxPro, "... WHERE MV_DMOU Between #01/01/2006# AND #01/01/2012#" ainsi que la fonction BETWEEN(valeur,basse,haute). "... WHERE BETWEEN(MV_DMOU, #01/01/2006#", #01/01/2012#)=True" on va trouver! rvblogn^{Je veux ton bien... et je l'aurais}

Insèrer dans une table un recordset

32 réponses

Discussions similaires