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