Discussion :

[krfa1]

Bonjour,

J'ai un petit soucis. Lorsque je fais une requete select sur une base de données access, tout fonctionne. Et dès que j'insère un like dans ma requete, il me fait une erreur comme quoi il ne retourne pas d'enregistrement. Or, j'ai controler ma requete dans access et tout fonctionne, il m'affiche correctement le résultat. Alors je vous vraiment pas ce que je pourrait faire.

Voici le code que j'utilise.

Code :

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

1
2
3
4
resultat = requete_base("SELECT Sum(rel_personne_periode.solde_personne_periode) AS somme FROM tbl_plan_roulement INNER JOIN (tbl_categorie_temps INNER JOIN (tbl_periode INNER JOIN rel_personne_periode ON tbl_periode.id_periode = rel_personne_periode.id_periode) ON tbl_categorie_temps.id_categorie_temps = rel_personne_periode.id_categorie_temps) ON tbl_plan_roulement.id_plan_roulement = rel_personne_periode.id_plan_roulement WHERE (tbl_periode.description_periode='" & periode & "') AND (tbl_categorie_temps.description_categorie_temps='SOLHORAI') AND (tbl_plan_roulement.description_plan_roulement LIKE ('A*'))")
Return resultat.Tables(0).Rows(0).Item(0)

Fonction requete_base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PublicFunction requete_base(ByVal requete AsString) As DataSet
Dim MyAdapter AsNew OleDbDataAdapter
Dim MyDataSet AsNew DataSet
Dim commande As OleDbCommand
Try
commande = New OleDbCommand(requete, connexion)
MyAdapter.SelectCommand = commande
MyDataSet.Clear()
MyAdapter.Fill(MyDataSet)
Return MyDataSet
Catch ex As Exception
MessageBox.Show("La réception des données de la base de données à échoué." & vbCrLf & vbCrLf & "Erreur : " & ex.Message)
ReturnNew DataSet
EndTry
EndFunction

Merci d'avance pour votre aide

[bossun]

à première vue, ça a l'air correct.. c'est bizarre...

controle bien si ta variable contient bien une donnée...

et essaie d'enlever les paranthèses... à

Code :

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

('A*')

[Biloutor]

Le code VB a l'air correct, d'autant plus si il marche sans "LIKE".
Je pense en revanche qu'il doit falloir enlever les parenthèses autour du 'A*' pour voir si ta requete passe.

[krfa1]

Ah ben c'est bon, je viens de trouver la solution. Vraiment trop spécial...

Alors il faut mettre un % à la place du *

Voilà, en espérant que ça pourra aider a qqlqu'un d'autre

Merci quand même pour votre aide.

Bye

[choas]

J'ai exactement le meme problème que toi, exepter que moi dans mon LIKE j'utilise des '?' (LIKE '??1?'). J'ai essayer de remplacer les '?' par des '#' et sous c# ca ne marche toujours pas, aucun résultat n'est trouvé.

Alors que sous access les '?' ou les '#' marche correctement tout les deux, et me trouve des enregistrements.

Qqun a une idée ?

[hemipsy]

Merci de l'info ça m'a épargné quelques efforts.