Discussion :

[Tyrael62]

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

[Xo]

Salut,

As-tu tracé ta requête ? L'as-tu essayé directement sous ton SGBD ? Ca ne devrait pas fonctionner non plus, puisque tu as omis les quotes autour des valeurs alphanumériques.

De tête, voici une fonction bien utile pour les requêtes SQL avec des chaînes :

Code :

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

1
2
3
4
5
Public Function fza(Byval chaine as String) As String
'Format Zone Alpha
'encadre la chaîne par des quotes ET dédouble les quotes incluses :
   fza = "'" & StrReplace(chaine, "'", "''") & "'"
End Function

Code :

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

1
2
3
4
5
Dim maRequete As String
...
maRequete = "SELECT * from Createur Where nom_creat=" & fza(N_creat) & " And Pnom_creat = " & fza(_creat)
.Open maRequete 
...

Ca devrait marcher mieux

[Tyrael62]

merci , ton aide m'as bien aidé mais j'ai un hic pour faire passer la 2ème condition de la requête!Il semble qu'il est un problème avec le "And" qui n'est pas pris dans la chaine de caractère.

Code :

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

1
2
3
 
Open "SELECT * from Createur 
Where nom_creat=" & fza(N_creat) And Pnom_creat = " & fza(P_creat)"

Tu vois ou le problème se pose !?

[sovo]

justement je me disais aussi.

Tout dabord je ne sais pas ce que c'est que la fonction fza (rassure toi le probleme ne viens pa de la).

essai ce code il devrais marche.

Code :

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

1
2
3
 
Open "SELECT * from Createur 
Where nom_creat='" & fza(N_creat) & "' And Pnom_creat =' " & fza(P_creat) &"'"

ceci devrais marche. J'ai supposer que les champs "N_creat" et "P_creat" sont de type string.

[Xo]

Tu vois ou le problème se pose !?

Oui, désolé, j'ai édité ma solution ci-dessus, je ne m'étais pas relu

Tout dabord je ne sais pas ce que c'est que la fonction fza

Ben c'est ça :

Code :

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

1
2
3
4
5
Public Function fza(Byval chaine as String) As String
'Format Zone Alpha
'encadre la chaîne par des quotes ET dédouble les quotes incluses :
   fza = "'" & StrReplace(chaine, "'", "''") & "'"
End Function

essai ce code il devrais marche.

Code :

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

1
2
3
 
Open "SELECT * from Createur 
Where nom_creat='" & fza(N_creat) & "' And Pnom_creat =' " & fza(P_creat) &"'"

Non, mon "fza" encadre déjà par des quotes, pas besoin d'en remettre d'autres

[Tyrael62]

Code :

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

1
2
3
4
 
   .Open "SELECT Id_creat from Createur Where nom_creat=" & fza(N_creat) & "' pnom_creat ='" & fza(P_creat)
   Num_creat = !Id_creat
   MsgBox (Num_creat)

Finalement j'ai passé mon code de cette manière mais j'ai encore un hic, il déconne quand il prend le prénom et au niveau de ma ligne Num_creat=!Id_creat il m'affiche un erreur de type Run-time '3021' :
BOF ou EOF est égal à True ou l'actuel enregistrement a été supprimé.
L'opération demandée nécessite un enregistrement actuel.
Donc j'ai dans un premier temps éxécuter ma requete sous access en prenom et un nom de ma table donc là il passe impeccable donc sûr qu'il n'existe pas plusieurs lignes!Ensuite , vu que çà fonctionnait toujours pas j'ai essayé de passer ma requête sans prendre le prénom , et là miracle il m'affiche l'information souhaité , mais le hic c'est que j'ai besoin du nom et du prénom dans ma requête, vu que c'est pour une PTI , je peux pas m'amuser à faire les choses à moitié !Donc si vous voyez comment je peux m'en sortir , sa serai sympa de m'aider.

[medbouh]

ce que t'as la est incorecte au niveau syntaxe sql:

Code :

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

1
2
3
4
 
.Open "SELECT Id_creat from Createur Where nom_creat=" & fza(N_creat) & "' pnom_creat ='" & fza(P_creat) 
   Num_creat = !Id_creat 
   MsgBox (Num_creat)

il faut ecrire en prennant en consideration que FZa retoune le simple cote:

Code :

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

1
2
3
4
 
.Open "SELECT Id_creat from Createur Where nom_creat=" & fza(N_creat) & " and  pnom_creat =" & fza(P_creat) & " and Num_creat =" & !Id_creat
 
MsgBox (Num_creat)

en faite tu as ecrit :

Code :

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

 !Id_creat

il faut avoir le NomDuRecorset!Id_creat


bonne chance[/code]

[Tyrael62]

Merci c'est enfin passer comme y faut!Le sql c'est comme plsu simple en PHP, le VB complique les choses à rien!