Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
5483 connectés 

 


Dernière réponse
Sujet : [SQL] sous [VB] :fou:
Liquid 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]


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Liquid 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]

stef_dobermann 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 ??
Liquid t1 vous êtes lenttttttttttttttttttt :sleep:
enfin j'ai trouvé ce qui allait pas :benetton:
bande de mauvais :gun:  
 :D
Liquid 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]


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)