Discussion :

[touhami]

J'ai des difficultés de réaliser un filtre sur une base de donnée Access on utilisant ADO pour la connexion :
Ma base de donnée contient la liste des étudiants:
Voici le morceau de programme que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1. Edit1Change(Sender: TObject);
begin
     begin
      MesEleves.close;  
      MesEleves.SQL.Clear;
      MesEleves.sql.Text := 'SELECT * FROM Eleves WHERE NOMELEVE LIKE  '+ QuotedStr(Edit1.Text+'%');
      MesEleves.Open;
 
     end
 
end;

Pour les noms des étudiants écrits en français mon filtre marche très bien, mais pour le nom des étudiants écrit en arabe mon filtre ne marche plus

[JustMe]

Je pense que tu aura le texte à l'envers si tu veux dire commançant par en arabe tu aura finissant par si dans access exsite :

Code :

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

'SELECT * FROM Eleves WHERE NOMELEVE LIKE  '+ QuotedStr('%'+Edit1.Text)

les nom en arabe vont s'enregister exactement à l'envers de se qu'on va penser.

[touhami]

Bonjour,
Merci pour ta reponse , mais ca marche plus , je ne sais pas pourquoi?

Est ce que le probleme est dans access ???
j'execute la meme requette dans l'environement access ca marche tres bien , mais sous delphi aucun resultat ?!!!
j'utilise Access 2003 + Delphi 7 entreprise sous windows XP pro SP2.

[edam]

j'utilise Access 2003 + Delphi 7 entreprise sous windows XP pro SP2.

windows xp+ arabe saoudi

[touhami]

Bonjour,
Après une longue recherche j'ai pu trouvé la source du problème :
Pour la saisie de mes données j’utilise les composants tntware
et c’est pour ça que j’ai eu des problèmes ,
j’ai essayer d’utiliser les composants d’accès standard au données livrés avec Delphi (TdbEdit, Tdbgrid ) le problème est bien résolu .
Merci a tous.

[touhami]

Et enfin j'ai trouvé la solution

Code :

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

1
2
3
4
5
6
 
      Eleves.close;
      Eleves.SQL.Clear;
      Eleves.sql.add('SELECT * FROM E001 WHERE NOMELEVE LIKE :p ');
      Eleves.Parameters.ParamByName('p').Value :=  Trim(TntEdit1.Text) + '%';
      Eleves.Open;

merci a tous.