:fou: [SQL] sous [VB] - Programmation
Marsh Posté le 16-12-2001 à 15:28:16
t1 vous êtes lenttttttttttttttttttt  
 
enfin j'ai trouvé ce qui allait pas  
 
bande de mauvais  
  
  
 
Marsh Posté le 17-12-2001 à 09:54:10
moi j'aurais dit de faire 
Private Sub Code_Change()  
   SQLString$ = "SELECT Nom FROM Acteurs " & _  
   "WHERE (CodeActeur='" & Code.Text & "' "
"  
   test2 = MsgBox(SQLString$, vbOKOnly, "test2" )  
   Data2.RecordSource = SQLString$  
   Data2.Refresh  
   If Data2.Recordset.EOF Then  
       Noentry = MsgBox("Aucun acteur ne correspond à ce numéro.", vbExclamation, "Note" )  
   Else  
   End If  
End Sub  
 
non ?? 
Marsh Posté le 17-12-2001 à 12:13:15
Oui oui  
 
le probléme se trouvait dans la syntaxe de ma requéte sql sous VB, d'ailleur si tu as, ou quelqu'un as un site qui explique bien le sql sous VB ou en core des conseils, je suis prenneur (je connais deja le sql)  
 
[edtdd]--Message édité par Liquid--[/edtdd]
Marsh Posté le 16-12-2001 à 12:41:57
si quelqu'un voudrait bien m'aidez
 "
" 
je décrit le processus
on rentre une valeur dans une zone de texte (Code.text) un code désignant un acteur et dans deux label je doit avoir affiché le Nom et le Prénom corréspondant au code (ces deux label sont reliés à Data2).
Voila ce qu j'ai écrit et qui marche pas du tout
Private Sub Code_Change()
SQLString$ = "SELECT Nom FROM Acteurs " & _
"WHERE (CodeActeur='" & Code.Text & "'
test2 = MsgBox(SQLString$, vbOKOnly, "test2" )
Data2.RecordSource = SQLString$
If Data2.Recordset.EOF Then
Noentry = MsgBox("Aucun acteur ne correspond à ce numéro.", vbExclamation, "Note" )
Else
Data2.Refresh
End If
End Sub
Help please, ça me gave trop et sur le net on trouve que quelque site sur le sql dans vb mais apparement ça marche pas
[edtdd]--Message édité par Liquid--[/edtdd]