Discussion :

[zidane22]

Bonjour
Je veux savoir si je peux faire une recherche d'un nom dans deux table qui ne sont pas liés.
J'ai essayé avec ce code mais il n'a pas fonctioné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'RS.Open "SELECT * FROM tbl1,tbl2 WHERE nom LIKE '%" & Text1.Text & "%'", DB, adOpenStatic, adLockOptimistic

merci

[ProgElecT]

Salut

Cela pourrait ressembler à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim RqSQL As String
RqSQL = "SELECT * FROM tbl1,tbl2 WHERE tbl1.nom LIKE '%" & Text1.Text & "%' And tbl2.nom LIKE '%" & Text1.Text & "'%"
RS.Open RqSQL, DB, adOpenStatic, adLockOptimistic

[zidane22]

merci de votre réponse
J'ai éssayé le code mais il m'envois une érreur de syntax.
(erreur de syntax dans l'expression

tbl1.nom LIKE '%" & Text1.Text & "%' And tbl2.nom LIKE '%" & Text1.Text & "'%"
RS.Open RqSQL, DB, adOpenStatic, adLockOptimistic

merci

[ProgElecT]

merci de votre réponse
J'ai éssayé le code mais il m'envois une érreur de syntax.
(erreur de syntax dans l'expression
merci

les fermetures " ' %", mauvais placement de l'apostrophe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RqSQL = "SELECT * FROM tbl1,tbl2 WHERE tbl1.nom LIKE '%" & Text1.Text & "%' And tbl2.nom LIKE '%" & Text1.Text & "%'"

[zidane22]

Excusez moi du dérangement
cette fois je reçois le run time error suivant:

le champs spécifié "Nom" peut désigner plusieurs tables listées dans la clause from de votre instruction sql

merci

[callo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RqSQL = "SELECT tbl1.nom, tbl2.nom FROM tbl1,tbl2 WHERE tbl1.nom LIKE '%" & Text1.Text & "%' And tbl2.nom LIKE '%" & Text1.Text & "%'"

[zidane22]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RqSQL = "SELECT tbl1.nom, tbl2.nom FROM tbl1,tbl2 WHERE tbl1.nom LIKE '%" & Text1.Text & "%' And tbl2.nom LIKE '%" & Text1.Text & "%'"

merci
Cette fois le code ne donne aucun message d'érreur mais il ne donne aucun resultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Lst As ListItem
 
Do While Not RS.EOF
Set Lst = ListView1.ListItems.Add(, , RS!nom)
Lst.SubItems(1) = RS!Prenom
Lst.SubItems(2) = RS!age
Lst.SubItems(3) = RS!tel
 
RS.MoveNext
Loop

[zidane22]

Désolé j'ai enlevé la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error resume next

et le résultat un message :

impossible de trouver l'objet dans la collection correspondant au nom ou a la référence ordinale demandé

Pourtant je suis certains que dans les deux tables il éxiste des chams: nom, prenom, age et tel
merci

[ProgElecT]

Curieux.
exemple d'une requête utilisée dans une de mes BDs, qui ressemble un peu à la tienne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
RqtSql = "SELECT Plaques.Materiau FROM InfGeneral, Plaques " _
       & "WHERE InfGeneral.NomEnreg LIKE '%" & TextBoxClient.Text & "%' And " _
       & "Plaques.NomEnreg LIKE '%" & TextBoxClient.Text & "%'" _
       & "group by  Plaques.Materiau, InfGeneral.NomEnreg"

Un Debug.print RqtSql donne:

SELECT InfGeneral.NomEnreg, Plaques.Materiau FROM InfGeneral, Plaques WHERE InfGeneral.NomEnreg LIKE '%Botanic%' And Plaques.NomEnreg LIKE '%Botanic%' group by Plaques.Materiau, InfGeneral.NomEnreg

Essais de faire un Debug.Print RqtSql entre la rédaction de la requête et RS.Open RqSQL, DB, adOpenStatic, adLockOptimistic.

La requête affichée dans la fenêtre exécution est elle conforme à ton souhait?

[zidane22]

Merci ProgElecT de votre souci
Malheureusement, en inserant le code

Debug.Print RqtSql

le meme message d'erreur.
Voici un mini projet si vous pouvez m'aider à corriger la requete.
projet
projet

[ProgElecT]

Désolé, je n'ouvre pas les fichier compressés .rar, en règle général j’évite le plus possible de faire des téléchargements sur des sites que je ne connais pas.

Par contre, dans mes contributions sur DVP, je propose un programme VBScript >> HTA en téléchargement qui ne nécessite pas d’installation système, une fois récupéré sur ton DD, il suffit de lancer le fichier : OutilBDsAccess.HTA
BDs ACCESS, rédiger la requête de connexion, la requête d’ouverture de table, visualiser le résultat.
Ce petit outils me permet très souvent de trouver le pourquoi la rédaction d'un requête ne fonctionne pas ou ne donne pas le résultat attendu.

[zidane22]

Merci pour l'outil

j'ai testé l'outil il m'a donné un message d'rreur

microsoft gestionnaire de pilotes odbc source de données intouvable et nom de pilote non specifié
impossible d'ouvrir BDS

Pourtantant j'ai designé la bd via "parcourir"
Autre chose, si je fais ma requete dans une seule table tout se passe tres bien.
Cela veut dire que la connexion s'est établie.
merci ProgElecT

[zidane22]

J"ai fais des recherches sur google et je me suis tombé sur ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 RS.Open "select * from Table1 union select * from table2 where age LIKE '%" & Text1.Text & "%'", DB, adOpenStatic, adLockPessimistic

Le code m'a permis de recuperer les records des deux tables sauf il ne respecte pas ma codition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

age LIKE '%" & Text1.Text

Il me donne tous les noms dans les deux tables
merci

[zidane22]

Merci à tous et en particulier Mr ProgElecT
Probléme résolu
En premier temps j'ai éssayé de contourner le probléme par la creation de deux requétes.
une qui cherche dans table 1 via command1 et l'autre requete qui cherche dans table 2 via text change event.
ça reussi!!!
Puis j'ai continué a chercher jusqu'a ce que j'ai trouvé le bon code et le voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RS.Open "select * from Tbl1 where nom=" & Text1.Text & " union all select * from tbl2 where nom=" & Text1.Text & "", DB, adOpenStatic, adLockPessimistic

merci encore de votre souci