[SQL] sous [VB] :fou:

Recherche :

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]

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

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Liquid

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