Ajout donnée dans une base Access

Question

Bonjour, 
je suis entrain de finaliser mon projet sous vb6.0 avec connexion ADO et je coince avec un problème  dont j'en ai aucune idée.
voila j ai une listbox rempli avec les nom des employés avec une  sélection multiple .J 'aimerai si c'est possible  qu'en sélectionnant  des employés dans la listbox  on puisse ajouter des données



exemple : 

lisbox:

employé 01
employé 02
employé 03
employé 04
employé 05

  une textbox1   avec une valeur = 30
  une textbox2    avec une valeur = 2021/2022

 si par exemple je sélectionne :
 employé 01 + employé 02 + employé 04  j'aurai comme résultat dans ma base Access:

ligne 01 =     employé 01              30                  2021/2022
ligne 02 =     employé 02              30                  2021/2022
ligne 03 =     employé 04              30                  2021/2022



voila j’espère que j'ai pu  passer ma requête. merci d'avance.

JeuDuTaquin · Answer

Salut,

Private Sub Command1_Click()
Text3 = ""
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
  If (List1.Selected(i) = True) Then
    Text3 = Text3 & vbCrLf & List1.List(i) & " " & Text1 & " " & Text2
  End If
  Next
End Sub

Private Sub Form_Load()

Dim a As Integer
    For a = 1 To 10
    List1.AddItem "Employé " & IIf(a < 10, "0", "") & a
    Next
End Sub


Et tu configures le lien de ta base de donnée Access dans le TextBox3 et le control DATA...

Ajout donnée dans une base Access

1 réponse

Votre réponse

Discussions similaires