Exportation des données access vers un fichier txt en VB6Résolu

Question

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.

ucfoutu · Accepted Answer

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

curvi · Answer

Bonjour ucfoutu,
Ça marche, merci infiniment.Exactement ce que je cherche.

ucfoutu · Answer

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

Exportation des données access vers un fichier txt en VB6

3 réponses

Votre réponse

Discussions similaires