[SQL] sous [VB] :fou:

:fou: [SQL] sous [VB] - Programmation

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]

Reply

Marsh Posté le 16-12-2001 à 12:41:57   

Reply

Marsh Posté le 16-12-2001 à 15:28:16    

t1 vous êtes lenttttttttttttttttttt :sleep:
enfin j'ai trouvé ce qui allait pas :benetton:
bande de mauvais :gun:  
 :D

Reply

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 ??


---------------
Tout à commencé par un rêve...
Reply

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) :jap:

 

[edtdd]--Message édité par Liquid--[/edtdd]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed