info de l'aide

Question

Bonjour à toutes et à tous

je recherche de l'aide pour un petit projet je suis débutant.
voila mon projet, j'explique.
je voulez avoir une fénetre de texte pour saise des référence et la saisi qui va sur un listbox ou combobox avec des bouton de commante comme (Ajoute, Efface, Suprime,)
j'ai VB6 pour le faire si possible. merci d'avance à toutes et à tous

cordialement

Ps: On peur me contacte sur msn ou skype pour voir comme faire

Sébastien

lolokun · Answer

Bonjour,

Oui tu auras de l'aide ici , mais sur un sujet précis de programmation..
Qu'as-tu déjà essayé de faire?boutons de commande ajout, efface donc utilisation d'une BDD ? Access, SQL ??

As-tu téléchargé une des nombreuses sources présentes sur le site pour t'en inspirer?


L'expérience, c'est une connerie par jour, mais jamais la même..

seb81000 · Answer

Bonsoir, à toi Lolokun

merci de mon reponse à mon projet j'ai par trouve des source pour m'inspire,/URL/img
Voila mon projet en image

merci encore

cordialement

sébastien

seb81000 · Answer

Bonsoir, à toi Lolokun 

merci de mon reponse à mon projet j'ai par trouve des source pour m'inspire,
Voila mon projet en image 

merci encore 

cordialement 

sébastien

lolokun · Answer

Heuuu niveau interface graphique aucun intérêt de poster ça ^^
Quel code as-tu fait?
Quelle type de BDD veux tu?
Pas trouvé de sources avec base de données'étrange il y en a des tas...

L'expérience, c'est une connerie par jour, mais jamais la même..

ehjoe · Answer

Bonsoir seb n°81000,

C'est trop compliqué, tu ne vas pas arriver à programmaer ça, car il faut mettre en fichier, donner un format au texte pour le retrouver (ou une BDD), puis ensuite à l'aide d'autre objets et code, il faut gérer le fichier, le sauvegarder, le lire, le modifier, voire l'imprimer.

Je ne crois pas que tu puisses commencer par faire un programme de saisie avec gestion de fichiers, là preuve, ton interface ne péfigure même pas ce qui est nécessaire...

Faut commencer par faire des choses inutiles mais qui permettent de manipuler les objets et le code, ensuite on passe aux fichiers...

Cordialement, Joe.

seb81000 · Answer

Bonsoir, EhJoe et Lolokun

merci à vous deux de mon reponse, voila les codes que j'ai trouve sa.



Private Sub CmdAjouter_Click()
'Verifier les champs oligatoires
If Trim(TextRéf.Text) = "" Then
    MsgBox "Veuillez saisir le code du produit!", vbInformation + vbOKOnly, "Erreur"
    TextRéf.SetFocus
Else
'Verification
'Call Connect
Sql = "select * from ARTICLE where id_Réf='" & TextRéf.Text & "'"
    Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
    If (Rs.RecordCount > 0) Then
        MsgBox "Le Code existe  deja veuiller entrer un nouveau code!", vbInformation, "Erreur"
        TextRéf.Text = ""
        TextRéf.SetFocus
       'Call deconnect
    Else
  'Call deconnect

'Call Connect
'enregistrement
    Rs.Open "[ARTICLE]", Db, adOpenKeyset, adLockOptimistic
    Rs.AddNew
    
    Rs.Fields("id_Réf") = TextRéf.Text

    Rs.Update
'Call deconnect
'Effacer les champs
CmdEffacer_Click
'Rafrechissment de la liste des ARTICLEs
    'Call Refreche
End If
End If
End Sub


Private Sub CmdEffacer_Click()
    TextRéf.Text = ""
    CmdAjouter.Enabled = True
    CmdModifier.Enabled = False
    CmdSupprimer.Enabled = False
    TextRéf.Enabled = True
End Sub

Private Sub CmdQuitter_Click()
End
End Sub

Private Sub Form_Load()

'Rafrechissment de la liste des ARTICLEs
    
    CmdModifier.Enabled = False
    CmdSupprimer.Enabled = False
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim X As Long
Dim i As Long
i = 80
For X = Me.Height To 300 Step -i
    DoEvents
    Me.Move Me.Left, Me.Top + (i \ 2), Me.Width, X
Next X
For X = Me.Width To 1000 Step -i
    DoEvents
    Me.Move Me.Left + (i \ 2), Me.Top, X, Me.Height
Next X
End Sub

Private Sub ListC_Click()
Dim i As Integer
On Error GoTo err
i = ListC.SelectedItem.Index
    TextRéf.Text = ListC.ListItems(i).Text

    TextRéf.Enabled = False
    CmdAjouter.Enabled = False
    CmdSupprimer.Enabled = True
    CmdModifier.Enabled = True
err:
End Sub

Private Sub CmdModifier_Click()
If (Textmatricule.Text = "") Then
MsgBox "Selectionnez le ARTICLE dont vous voulez modifier les informations dans la liste ci-dessous", vbInformation, "Modification"
Else
'Modifier
Call Connect
Sql = "select * from ARTICLE where id_Réf='" & TextRéf.Text & "'"
    Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
    If (Rs.RecordCount > 0) Then
        Rs.UpdateBatch
        Rs.Fields("id_Réf") = TextRéf.Text

    Rs.Update
    
    End If
Call deconnect
Effacer_Click
'Rafrechissment de la liste des ARTICLEs
    Call Refreche
End If
CmdModifier.Enabled = False
CmdAjouter.Enabled = True
CmdSupprimer.Enabled = False
TextRéf.Enabled = True
End Sub


Private Sub CmdSupprimer_Click()
On Error GoTo err
If (MsgBox("Confirmez la Suppression de l'ARTICLE [" & ListC.ListItems(ListC.SelectedItem.Index).Text & "]?", vbYesNo + vbQuestion, "Suppression") = vbYes) Then
    'Suppression dans la base
    Call Connect
    Sql = "Delete from ARTICLE where id_Réf='" & ListC.ListItems(ListC.SelectedItem.Index).Text & "'"
    Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
    Call deconnect
    ListC.ListItems.Remove (ListC.SelectedItem.Index)
End If
GoTo fin
err:
    MsgBox "Vous ne pouvez pas supprimer le ARTICLE, car il est utilisé", vbInformation, "Erreur de Suppression"
fin:
CmdModifier.Enabled = False
CmdAjouter.Enabled = True
CmdSupprimer.Enabled = False
TextRéf.Enabled = True
End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Private Sub TextRéf_LostFocus()
TextRéf.Text = UCase(TextRéf.Text)
End Sub

merci encore à vous deux

Cordialement

sébastien

ehjoe · Answer

Bonjour Seb,

Ben alors, ton code ne te va pas, celui que tu as trouvé ?

Tu veux un programme en VB6 ? As-tu vb6 ?

Je peux te faire ton programme en vb6 si c'est ça que tu veux, faut le dire, mais passe par message privé ou via mon site, écris, car il va falloir poser des questions hors sujet de ce forum...

Mais je maintiens, sauf miracle si tu trouves un code qui aille, tout seul, sans savoir programmer tu ne te sortiras pas de ce type de gestion avec fichier... Déjà c'est moyennement compliqué, mais en plus il y a trop d'élements à mettre en oeuve que tu ignores...

Cordialement, Joe.

seb81000 · Answer

Bonjour, Ehjoe

Merci de m'aide pour mon projet je suis d'accord pour que je t'explique les choses que je veux
si tu veux en peu par msn ou skype ou par ton site comme tu veux et encore merci d'avance

cordialement
Sébastien

ehjoe · Answer

Sébastien,

As-tu vb6 ? (c'est une question)

Ben alos tu clique sur ma gueule, puis tu fais écrire un message personnel et tu me laisse ton email.

Le code pourra ensuite être déposé ici une fois fini.

Au plaisir, cordialement

Joe.

seb81000 · Answer

Bonsoir à tous


 EHJoe

j'ai trouvé deux codes pour moi Bouton Ajouter et Supprimer

Private Sub cmd_ajoute_Click()
cb_lavelinge.AddItem (Tb_Réf.Text)
End Sub

Private Sub cmd_Supprimer_Click()
cb_lavelinge.Items.Clear (cb_lavelinge.SelectedItem)
End Sub

je continue à rechercher quelques codes pour bien comprendre les fonctions

merci encore

Cordialement
Sébastien

Info de l'aide

10 réponses

Votre réponse

Discussions similaires