Transfert d'une table Access vers un fichier , sous VB6Résolu

Question

bonjour.

je travail sur une base de donn&#233;e o&#249; je modifie des tables.chaque mois, ce sont des nouvelles tables qui doivent etres mis &#224; la place, donc je dois transferer mes tables vers un fichier text ou exel.
je dois lancer cette manip directement de mon application sous VB6.

pourriez-vous me dire comment faire s'il vous plais ?

merci

cs_CanisLupus · Accepted Answer

Oui, effectivement, j'ai du lire en diagonale, il manque un rs.movenext juste avant le loop.

Loup Gris

Marnilla · Answer

Salut;)

Open "C:\Dossier\Nom_fichier" for Output as #1  'ici tu cr&#233;es le fichier en indiquant son chemin d'acc&#232;s et en lui attribuant un nom 

call database  'ouvre ta base de donn&#233;es
rs.open (ta table) 'ouvre ta table
do until rs.EOF  'tant que le fichier n'est pas &#224; la fin

   print #1, rs![nom champ] & ";" & rs![nom champ]..................  'tu inscris les donn&#233;es de la table dans le fichier.

Loop

close (table)  'fermeture de ta table
Close #1  'fermeture du fichier text
ici tu fermes ta base de donn&#233;es

Marnilla

cs_CanisLupus · Answer

Ou alors, en utilisant les fonctions d'export d'access directement :

' Ne pas oublier de cocher la r&#233;f&#233;rence dans Projet
' "Microsoft Access x.x Object Library"
'
'
Private Sub Command1_Click()
Dim obj_Access As Access.Application
Dim Nom_Base_Access As String
Dim Nom_Fichier As String
Dim Nom_Table As String


  Nom_Fichier = "c:	emp\essai.xls" ' ou txt
  Nom_Base_Access = "c:	emp\bd1.mdb"
  Nom_Table = "Table1"


  ' Cr&#233;ation d'un objet Access
  Set obj_Access = New Access.Application
  
  ' Ouverture de la base Access
  obj_Access.OpenCurrentDatabase Nom_Base_Access
  
  ' Si mot de passe
  'SendKeys MotDePasse & "~"
    
  ' Exportation de la table vers un fichier excel
  obj_Access.DoCmd.TransferSpreadsheet acExport, , Nom_Table, Nom_Fichier, True
  ' Exportation de la table vers un fichier texte
  'obj_Access.DoCmd.TransferText acExportDelim, ";", Nom_Table, Nom_Fichier, False
  ' Fermeture de la base
  obj_Access.Quit
  
  ' Lib&#233;ration de la m&#233;moire
  Set obj_Access = Nothing
    
End Sub

Loup Gris

cs_kimou75 · Answer

dim objet_access as Acess.application

c'est un type non d&#233;finie.

cs_CanisLupus · Answer

Tu as du oublier de cocher "Microsoft Access x.x Object Library" dans le menu Projet/r&#233;f&#233;rences

Et ce n'est pas :
dim objet_access as Acess.application
mais
dim objet_access as Access.application
qu'il faut coder.

Loup Gris

cs_kimou75 · Answer

oui c'est exact, mais il y a encor un probleme, une erreur aparait
comme quoi je ne peux pas acc&#233;der &#224; ma base de donn&#233;e car elle est deja
ouverte par un utilisateur exclusif.

comment je peux faire stp ?

cs_CanisLupus · Answer

C'est une base en r&#233;seau ? Et/ou elle est ouverte par un prog ?

Loup Gris

cs_kimou75 · Answer

non ce n'est pas une base en reseau. mais j'ai cr&#233;&#233; une application qui

 fonctionne sur cette base de donn&#233;e access.

cs_CanisLupus · Answer

Alors il faut que tu modifies ta m&#233;thode d'ouverture dans ton appli.
Ou il y a la possibilit&#233; de cr&#233;er un recordset sur la table &#224; transf&#233;rer, comme indiqu&#233; par Marnilla.

Loup Gris

cs_kimou75 · Answer

la methode de Marnilla fonctionne tres bien, le probleme c'est que ca boucle
 &#224; l'infinie.il s'arete de faire des copies de ma table dans le meme fichier!!

cs_kimou75 · Answer

merci baucoup CanisLupus et Marnilla. ca marche du tonerre !!!

Transfert d'une table Access vers un fichier , sous VB6

11 réponses

Discussions similaires