[VB]Problème avec une requête SQL

Version imprimable

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:

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

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:

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:

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 ;)

13/03/2006, 19h34
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:

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 !?
13/03/2006, 19h46
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:

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.

Citation:

Envoyé par Tyrael62

Tu vois ou le problème se pose !?

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

Citation:

Envoyé par sovo

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

Ben c'est ça :
Code:

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
Citation:
Envoyé par sovo
essai ce code il devrais marche.
Code:

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 ;)

16/03/2006, 16h02
Tyrael62
Code:

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.

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

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:

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:

!Id_creat

il faut avoir le NomDuRecorset!Id_creat

bonne chance[/code]

18/03/2006, 17h47
Tyrael62

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