Voilà , je découvre la base de données sous VB et j'aimerai effectué une requête mais je comprends pas elle passe pas donc si vous pouvez m'éclairer car je vois pas vraiment comment faire.
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 Private Sub Label1_Click(Index As Integer) Dim nb_quest, Num_creat As Integer With rstCreat .ActiveConnection = cnx .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open "Createur" .AddNew !Nom_creat = N_creat !Pnom_creat = P_creat .Update .Close End With With rstCreat .ActiveConnection = cnx .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open "SELECT * from Createur Where nom_creat=" & N_creat And Pnom_creat = " & P_creat" MsgBox (!Id_creat) 'Num_creat = !id_creat .Close '.Open "Quizz" '.AddNew '!id_creat = Num_creat '!Nom_quizz = NomQuizz '.Update '.Close End With nb_quest = Label1(Index).Caption Unload Create_quizz Load Create_pages End Sub
Partager