Exportation des données access vers un fichier txt en VB6 [Résolu]

Messages postés
5
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
17 juin 2012
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 17 juin 2012 à 10:09
Salut à tous,
Je suis débutant.

Voici mon code:

Private Sub CmdExport_Click()
'Private Sub Form_Load()
Dim MaConn As ADODB.Connection, rstTable As ADODB.Recordset
Dim rs As ADODB.Recordset

'création de la connexion
Set MaConn = New ADODB.Connection
MaConn.Provider = "Microsoft.Jet.OLEDB.4.0;"

'Set db = OpenDatabase("D:\cnamflash\cnamdb97.mdb")
MaConn.Open "D:\cnamflash\cnamdb97.mdb"

Set rstTable = New ADODB.Recordset

' Transfert de la table
rstTable.Open "Rlv_mute", MaConn, , , adCmdTable
'MaConn.Open "select * from Rlv_mutl", "D:\cnamflash\cnamdb97.mdb"
Open "C:\Rlv.txt" For Output As #1
While Not rstTable.EOF
Print #1, Format(rstTable.Fields(0), "000000000000000") & "" & rstTable.Fields(5) & """" & rstTable.Fields(4) & """; "
rstTable.MoveNext
Wend
Close #1
rstTable.Close
MsgBox "l'exportation faite avec succés"
End Sub

J'ai un problème pour le champs 5 et 4 (rstTable.Fields(5), rstTable.Fields(4))
c 'est montant et un total
à 3 décimales sur Access97 du genre 35.458
je voudrais les exporter en fichier txt pour avoir le genre de 000000000035458 (15 caractères).
Merci pour votre aide.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
3
Merci
Bonjour,
Si je m'en tiens à ceci (3 décimales à la source et disparition du séparateur dans le résultat)
à 3 décimales sur Access97 du genre 35.458
je voudrais les exporter en fichier txt pour avoir le genre de 000000000035458 (15 caractères)
===>>>
soit toto la variable contenant ce nombre ===>>
Format(toto * 1000, String(15, "0"))

Si, maintenant, tu voulais dire autre chose : dis-le avec précision.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 189 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
5
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
17 juin 2012
0
Merci
Bonjour ucfoutu,
Ça marche, merci infiniment.Exactement ce que je cherche.
Commenter la réponse de curvi
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
Bon.
Clique alors sur le tag "réponse acceptée" pour libérer ce sujet.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu