Discussion :

[luffy27]

Chèr(e)s VisualBasiens , VisualBasiennes

J'ai un probleme avec une application Vb tt con que je dois créer mais étant noob en la matière je rame comme il faut !! D'ou l'intérêt de mon poste voila j'ai créer un prog. censé gérer des commandes de pizza , dans un premier temps j'aimerais pouvoir afficher les infos relatives aux pizzas mais pas ttes les une a la suite des autres comme cela se passe avec le code que j'ai écrit , j'aimerais pouvoir cliquer sur une .txt ensuite sur une autre qui apparaitrait tout en enlevant le contenu du 1er initialement demander ! De plus j'aimerais pouvoir en tant qu'utilisateur de l'interface modifier le contenu d'un fichier afin de passer une commande personnalisé ... voila si joint le code et l'apercu du programme ,en espérant que vous m'aiderez :$:$ !! merci d'avance

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
Private Sub CmdQuit_Click()
End
End Sub
 
Private Sub Dir1_Change()
On Error GoTo TraitErreur
File1.Path = Dir1.Path
Exit Sub
TraitErreur:
result = MsgBox("Probleme de saisie", vbOKOnly + vbCritical, " Erreur")
End Sub
 
Private Sub Drive1_Change()
On Error GoTo TraitErreur
File1.Path = Dir1.Path
Exit Sub
TraitErreur:
result = MsgBox("Probleme de saisie", vbOKOnly + vbCritical, " Erreur")
 
End Sub
 
Private Sub File1_Click()
Dim ligneenr As String
Dim selectedfile As String
selectedfile = File1.Path & "\" & File1.FileName
Open selectedfile For Input As #1
While Not EOF(1)
    Line Input #1, ligneenr
    Label2.Caption = Label2.Caption & ligneenr & vbCrLf
Wend
Close #1
 
 
 
End Sub

[ucfoutu]

Bonsoir,

A 1ère vue (comme çà...)

Code :

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

1
2
3
4
5
6
7
Open selectedfile For Input As #1
  label2.caption = ""
  While Not EOF(1)
     Line Input #1, ligneenr
     Label2.Caption = Label2.Caption & ligneenr & vbCrLf
  Wend
Close #1

si j'ai bien compris tes explications ...

Ceci étant dit, je ne comprends pas que tu utilises un tel système : un fichier par commande.
Même sans sgbd classique, tu pourrais au moins utiliser un fichier texte en base de données.

[Mat.M]

Oui c'est pas très souple..
vaut mieux prendre un SGBD et des recordsets et puis avec un fichier texte comment vas-tu faire des requêtes de sélection ?
Tu peux gérer un fichier mdb de type Access sans avoir besoin d'Access

[ucfoutu]

Bonsoir Mat.M,

tu as raison dans l'absolu, mais là, vois-tu... il ne s'agit que de gérer des commandes de pizzas (par définition journalières...) et pas plus....

Dans de telles conditions et à moins d'avoir une énorme affaire (avec une énorme quantité de pizzas à livrer chaque jour), les requêtes sont vite vues....... (et Get est là pour assurer ce dont il a besoin) et un fichier texte structuré en base de données fait largement l'affaire et est une économie très sérieuse...

[sovo]

Pour un tel truc j'utiliserais un fichier Ini asser bien structurer pour se passer d'une grosse base de données.

[Mat.M]

Bonsoir Mat.M,

tu as raison dans l'absolu, mais là, vois-tu... il ne s'agit que de gérer des commandes de pizzas (par définition journalières...) et pas plus....

Je déconseille totalement un fichier texte tu vas galérer en plus ce n'est pas intégre ni sur.
Si ton programme plante et ouvre le fichier et qu'il soit corrompu tout ce que tu as écris dans le fichier risque d'être perdu !
Et puis un fichier texte ce n'est vraiment pas souple.
Tu n'as pas du tout besoin d'Access il suffit d'aller dans le gestionnaire ODBC et de créer une connexion sur un fichier vide au format .mdb
Ensuite sous VB6 tu peux prendre un ADO recordset par exemple ou un datagrid.
Sinon il ya MySQL qui est gratuit et suffisant..
Pareil pour gérer MySql il faut créer une connexion ODBC dessus.

Est-ce que c'est à usage professionel ?

[sovo]

Tu n'as pas du tout besoin d'Access

oui tout a fait d'accord

il suffit d'aller dans le gestionnaire ODBC et de créer une connexion sur un fichier vide au format .mdb
Ensuite sous VB6 tu peux prendre un ADO recordset par exemple ou un datagrid.

Pas du tout si le "pilote" (dll et autre) n'est pas installer (car il peut etre installer separement) alors tu ne poura pas le faire.