Access via SQL

Question

QQN peut il m'aider ?

Je programme un petit utilitaire permetant de g&#233;rer mes clients, chaque client peut avoir plusieurs contacts. Comment r&#233;diger une commande sql qui permet de s&#233;lectionner tous les contacts de ma table contact, qui ont un num&#233;ro correspondant &#224; un client ;  s&#233;lectionner auparavant dans ma table client.

Merci.

relax62 · Answer

pour selectionner tous les contacts de ta table contact, tu dois taper:
dans ta requete

"SELECT * FROM Contacts WHERE NumeroClient = xxxx" 

voili voila

n'hesites pas a demander si tu as besoin de plus de detail :-)

cs_guigui28 · Answer

Quand  j'utilise Requery derri&#232;re, il me met "Type de donn&#233;es incompatible dans l'expression du crit&#232;re" ????

relax62 · Answer

Requery??? je ne connais pas :-(

Peux tu m'en dire plus?

si c'est le nom de ta variable fait:

"SELECT * FROM Contacts WHERE NumeroClient = '" & Requery & "'"

cs_guigui28 · Answer

Ma proc&#233;dure de chargement de ma liste de contact suite &#224; un choix dans ma liste client :
Private sub ListeRechercheContact_Charge()


Dim ListeItemR&#233;sultat as listItem

'Mise &#224; jour de la listview :
ListRechercheContact.ListItems.Clear

'Pr&#233;paration de ma commande Recherche des contacts en fonction du client Choisi :
CmdADOContact.CommandText="SELECT * From CONTACT where NumClient = " & RsltADOClient!NumClient &"

'Ex&#233;cution de la commande :
RlstADOContact.Requery

'Chargement de la listeviewContact :
While (not RsltADOContact.EOF)
If (RsltADOContact.Recordcount <>0) then 
      Set ListItemResultat=ListeRechercheContact.ListItems.Add(, , CStr(RsltADOContact!NomContact))
End If

RsltADOContact.MoveNext
Wend
End Sub

relax62 · Answer

dans cette ligne:
CmdADOContact.CommandText="SELECT * From CONTACT where NumClient = " & RsltADOClient!NumClient &"

le &" ne serait il pas superflu?

Moi j'ai plus l'habitude d'utiliser sans controle ADO (je ne sais pas si c'est mieux ou pas???)

dim bds as database
dim requete as string
dim rscontact as recordset

Set bds = OpenDatabase(GlobalEmplacementBaseDonnees) 'Connexion sur la base accessRequete "SELECT * FROM Contact WHERE NumClient" & rsltadoclient!numclient
Set rsContact = bds.OpenRecordset(Requete, dbOpenSnapshot, dbReadOnly) 'requete pour les contacts
Do Until rsContact.EOF 'jusqu'&#224; la fin du recordset, si il est vide passe &#224; la suite
         rsContact.MoveLast 'va &#224; la fin du recordset
         rsContact.MoveNext 'va &#224; eof
Loop
If rsContact.RecordCount > 0 Then rsContact.MoveFirst

'Chargement de la listeviewContact :

Do Until rsContact.EOF 'jusqu'&#224; la fin du recordset, si il est vide passe &#224; la suite
      Set ListItemResultat=ListeRechercheContact.ListItems.Add(, , CStr(RsContact!NomContact))
         rsCategories.MoveNext 'va &#224; eof
Loop

essaie ca si tu veux

cs_CanisLupus · Answer

Salut,

- Ton champ NumClient est en string ? en long ? ..... ?
- Tu utilises un coup RlstADOContact et un autre RsltADOContact, lequel est le bon ?
- CmdADOContact.CommandText="SELECT * From CONTACT where NumClient = " & RsltADOClient!NumClient &" ??? :  le &" de fin est superflu.
- perso, je n'utilise pas requery mais plut&#244;t rst.open requete,connexion

Loup Gris

cs_guigui28 · Answer

T'aurais pas un exemple d'utilisation, de "rst.open" ?

cs_guigui28 · Answer

Relax62 => J'ai exactement le m&#234;me message avec ton code soit "Type de donn&#233;es incompatible dans l'expression du crit&#232;re"

relax62 · Answer

Dans ce cas ca doit etre RsltADOClient!NumClient qui n'est pas d&#233;clar&#233; en long ou en integer.

Verifie dans access, quel type de donn&#233;e est d&#233;clar&#233; pour NumClient.

-soit tu le change dans access, si ca ne change pas trop de code VB
-soit tu converti ton champ dans VB

Si ce champ est declar&#233; en string, tu peux faire avec des apostrophes:

"SELECT * FROM Contacts WHERE NumeroClient = '" & RsltADOClient!NumClient & "'"

cs_CanisLupus · Answer

Pour rst.open :

au lieu de :
CmdADOContact.CommandText="SELECT * From CONTACT where NumClient = " & RsltADOClient!NumClient &"

'Ex&#233;cution de la commande :
RlstADOContact.Requery

je met directement :
RlstADOContact.Open "SELECT * From CONTACT where NumClient = " & RsltADOClient!NumClient , NomDeTaConnexionBdd

Mais, finalement le prob n'est pas l&#224;, mais plut&#244;t comme le dit Relax62. V&#233;rifie si le type des champs NumClient de tes tables contact et client est identique ou non.

Loup Gris

cs_guigui28 · Answer

Ca marche, c'&#233;tait bien le type de donn&#233;e qu'il fallait changer dans la base Access.

Merci  Je commen&#231;ais &#224; d&#233;sesp&#233;rer. A+.

Access via SQL

11 réponses

Discussions similaires