: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]