[VB] Créer un fichier texte à partir de données contenus dans une base de données

**Ribéry** · 17/05/2006, 20h28

Bonsoir tt le monde,

Voila, je voudrais créer à partir des infos de la base de données deux fichiers textes contenant ces infos. Les informations sont rentrées dans la base de donnée à partir de l'interface en VB. Je suis un peu à la masse en VB donc essayé de m'expliquer calmement...

Merci

A+

**Vesta** · 17/05/2006, 20h33

Désolé mais pourrais tu etre un rien plus clair...

Le programme que tu veux faire est une interface qui lit tes fichiers texte et permet de les modifier c'est ca?

**jmfmarques** · 17/05/2006, 20h34

Commence par les tutos (ils ont clairs et pleins d'enseignement ! Jacma s'est "décarcassé" pour celà ).
Reviens nous voir avoir ton début de code applicatif en nous exposant, au besoin, sur quel point particulier tu rencontres une difficulté. Celà fait partie des règles et de la discipline de ce forum.

**méphistopheles** · 17/05/2006, 20h35

je ne vois vraiment pas l'interet de ce que tu veux faire ribéry

**jmfmarques** · 17/05/2006, 20h36

E x e r c i c e i m p o s é , pardi !

**Ribéry** · 31/05/2006, 16h07

Bonjour tout le monde

J'ai un soucis dans mon application qui écrit dans un fichier texte à partir d'une base de donnees. Je voudrais que le programme écrive les donnees sur une nouvelle ligne mais j arrive pas...Je vous copie/colle mon code qui est appelé par le main lorsque l'on clique sur "compiler":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
'Définition des variables publiques
'**********************************
Public frmStatutCompil      As frmListe
 
'Définition des variables locales
'********************************
Private mTableConvert()     As Integer
 
'***********************************************************************************
'Méthodes publiques
'***********************************************************************************
 
Public Function CreatePass() As Boolean
    Const Nb_Rubrique = 30
 
    Dim Cpte                        As Integer
    Dim mGestFichier                As File
    Dim mGestFichiers               As New FileSystemObject
    Dim PosRub(Nb_Rubrique - 1)     As Variant
 
    CreatePass = False
 
    'Si le fichier compilé existe déjà, on l'efface
    '**********************************************
    On Error GoTo CompileErreur
    If mGestFichiers.FileExists(App.Path + FichierBDD_Projet_pass) Then
        mGestFichiers.DeleteFile App.Path + FichierBDD_Projet_pass, True
    End If
 
    Screen.MousePointer = vbHourglass
 
    'Création et ouverture du fichier compilé
    '****************************************
    Open App.Path + FichierBDD_Projet_pass For Binary As #1
 
 
    Set frmStatutCompil = New frmListe
    frmStatutCompil.Show , fMainForm
    DoEvents
 
    'Compile les utilisateurs
    '************************
    PosRub(1) = CompileUtil
 
    Close #1
 
    Screen.MousePointer = vbNormal
    frmStatutCompil.Fin IDCompilOK
 
    CreatePass = True
    Exit Function
 
CompileErreur:
    Dim Description As String
 
    Description = Err.Description
    Close #1
    frmStatutCompil.Fin IDCompilNOK, True
 
    Screen.MousePointer = vbNormal
    MsgBox Description, vbCritical, LoadRessourceString(IDTitre)
End Function
 
'***********************************************************************************
'Méthodes privée
'***********************************************************************************
 
Private Function EcritByte(ByVal Valeur As Long, _
                           Optional Position As Long = 0) As Long
    'Ecrit un octet à une position donnée ou à la position courante
    '**************************************************************
    If Position Then
        Put #1, Position, CByte(Valeur Mod 256)
    Else
        Put #1, , CByte(Valeur Mod 256)
    End If
    EcritByte = PositionCourante
End Function
*****************************
Private Function PositionCourante() As Long
    'Renvoi la position courante dans le fichier - 1 (on démarre à 0 au lieu de 1)
    '*****************************************************************************
    PositionCourante = Seek(1)
End Function
 
Private Sub CompileTexte(ByVal Texte As String, Optional NomFichier As Boolean = False)
    Dim Cpte    As Integer
 
    For Cpte = 1 To Len(Texte)
        'Compile un caractère de la chaine de texte
        '******************************************
        If Not NomFichier Then
            EcritByte Asc(Mid(Texte, Cpte, 1))
        End If
    Next Cpte
End Sub
 
Private Function CompileUtil() As Long
    Dim mListeCodes         As New clsListeObjet
    Dim mTamponCodes()      As Variant
    Dim Cpte                As Integer
    Dim Count               As Integer
 
    'Création de la liste des Codes
    '******************************
    mListeCodes.Populate mUTIL
 
    Count = mListeCodes.Count
 
        'Création d'une table de vecteurs dont le premier
        'élément est le nombre de codes
        '************************************************
        ReDim mTamponCodes(Count) As Variant
        mTamponCodes(0) = Count
 
        frmStatutCompil.InitRubrique IDCode, Count
 
        'Les éléments suivants sont les vecteurs vers les Codes compilés
        '***************************************************************
        For Cpte = 1 To mListeCodes.Count
            frmStatutCompil.MAJRubrique Cpte
            mTamponCodes(Cpte) = CompileUnUtil(mListeCodes.Item(Cpte))
        Next Cpte
 
        frmStatutCompil.MAJRubrique Count, "OK"
 
End Function
 
Private Function CompileUnUtil(Code As clsUtil) As Long
    Dim Cpte                As Integer
    Dim mElément            As clsEléments
    'Renvoi l'adresse de début de compilation du code
    '************************************************
    CompileUnUtil = 1
 
    With Code
 
        CompileTexte .Nom + "|"
        CompileTexte .MotPasse + "|"
        CompileTexte (.Groupe / 2)
 
    End With
 
End Function

Voila ce serait vraiment cool si qqun pouvait trouver une solution. Merci.

A+

**jmfmarques** · 31/05/2006, 16h11

http://www.developpez.net/forums/sho...d.php?t=149237

**AlainTech** · 31/05/2006, 16h19

Je deviens le fusionneur furieux...

**Ribéry** · 31/05/2006, 16h31

Laissez tomber j y suis arrivé

Merci qd meme

**Theocourant** · 31/05/2006, 16h37

Envoyé par Ribéry

Laissez tomber j y suis arrivé

Merci qd meme

Ce serait bien de dire comment pour le cas où d'autres se retrouvent bloqués dans la même situation que toi.

De plus, il serait sympa de marquer le sujet comme résolu avec un clic sur le bouton

en bas

Merci d'avance

Théo

**Ribéry** · 31/05/2006, 16h52

Si tu veux tout savoir, j'ai écris ca dans la derniere fonction (CompileUnUtil):

CompileTexte .Nom + "|"
CompileTexte .MotPasse + "|"
CompileTexte (.Groupe / 2)
CompileTexte Chr$(13) + Chr$(10)

**AlainTech** · 31/05/2006, 17h19

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CompileTexte Chr$(13) + Chr$(10)

Peut, avantageusement, être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CompileTexte vbCrLf

**Ribéry** · 31/05/2006, 17h28

C'est pas faux. Bien vu

**Ribéry** · 01/06/2006, 11h24

Bonsoir,

Bon cette fois je voudrais afficher le résultat d'un calcul de puissance : 2^(Varaible - 1), mais je sais pas quelle fonction utiliser. J'ai essayé avec la fonction Math.pow mais ca fonctionne pas parce que j crois que c'est parce que j suis en VB6.Regardez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CompileTexte Math.pow(2, .Ordre_GestionDroits - 1)

De toute facon VB me propose meme pas la fonction pow quand j'ecris "Math.".

Si quelqu'un a une solution...

Merci

**Vesta** · 01/06/2006, 11h26

En VB ca marche tres bien ^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

p= 2^(var-1)

**Theocourant** · 01/06/2006, 11h30

Envoyé par Ribéry

Bonsoir,

Bon cette fois je voudrais afficher le résultat d'un calcul de puissance : 2^(Varaible - 1), mais je sais pas quelle fonction utiliser. J'ai essayé avec la fonction Math.pow mais ca fonctionne pas parce que j crois que c'est parce que j suis en VB6.Regardez :

CompileTexte Math.pow(2, .Ordre_GestionDroits - 1)

De toute facon VB me propose meme pas la fonction pow quand j'ecris "Math.".

Si quelqu'un a une solution...

Merci

Bonjour,

As-tu essaiyé le calcul direct ?

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim monCalcul as Double
...
 
monCalcul = 2^(.Ordre_GestionDroits - 1)
 
CompileTexte monCalcul
'ou CompileTexte Cstr(monCalcul)

Tu peux même te passer de la variable monCalcul ...

+

Théo

**Ribéry** · 01/06/2006, 11h34

Super !

Merci les gars ca marche tranquille

**Ribéry** · 01/06/2006, 14h02

Pendant qu'on y est...Pour récupérer créer une liste de fichiers contenus sur une cible et les afficher dans une TextBox, ca se passe comment???!!!!

**Ribéry** · 01/06/2006, 14h48

Personne n'a d'idées???
J'vous explique plus clairement le truc:
Mon ordi est connecté à la cible. Dans mon appli, j'ai un menu qui me permet me connecter à la cible. Une fois connecté, j'aimerais pouvoir en sortir la liste des fichiers présents pour pouvoir l'utiliser ensuite dans le programme...

Allez, Help me

**Ribéry** · 02/06/2006, 13h38

Nouveau problème:

Est ce qu'on peut ouvrir un fichier texte et en afficher les données dans une application qui enregistre les donnees en format BDD????

Question subsidiaire : COMMENT?!!!!

[VB] Créer un fichier texte à partir de données contenus dans une base de données

VB 6 et antérieur

Discussions similaires

Partager

Partager