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

Messages postés
5
Date d'inscription
dimanche 20 mai 2007
Dernière intervention
17 juin 2012
- 17 juin 2012 à 04:01 - Dernière réponse :
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
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 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
- 17 juin 2012 à 07:19
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

Merci ucfoutu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
5
Date d'inscription
dimanche 20 mai 2007
Dernière intervention
17 juin 2012
- 17 juin 2012 à 10:01
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
Contributeur
Dernière intervention
11 avril 2018
- 17 juin 2012 à 10:09
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.