Discussion :

[Rserge]

Bonjour

J'ai un souci avec une DBComboBox a la sortie d'un champ CODE POSTAL je la rempli et lorsque l'on selectionne une valeur dans la liste la box se referme et cette valeur n'apparait pas dans le champ.
Voila la procédure.

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
18
19
procedure TFormAjoutEleve.AcodePosteExit(Sender: TObject);
Var
  i : byte;
  MonSql : WideString;
begin
  FormMenuGen.ADOTableCP.TableName := 'Code_Postal';
  FormMenuGen.ADOTableCP.Active := true;
  DBComboBoxVille.Visible := true;    //ouvre Combobox Ville
  FormMenuGen.ADOQueryCP.SQL.Clear;
  MonSql := '';
  MonSql := 'SELECT Ville FROM Code_Postal WHERE Code_Post = ' + AcodePoste.Text + '';
  FormMenuGen.ADOQueryCP.SQL.Add(MonSql);
  FormMenuGen.ADOQueryCP.Active := True;
  For i := 0 to FormMenuGen.ADOQueryCP.RecordCount  Do
    Begin
      DBComboBoxVille.Items.Add(FormMenuGen.ADOQueryCP.FieldValues['Ville']);
      FormMenuGen.ADOQueryCP.Next;    //ajoute les Ville
    End;
end;

Merci d'avance

[popo]

J'ai vraiment survolé ton post et pourquoi j'ai du le relire 3 fois pour essayer de comprendre quelque chose dans ton charabia.

J'ai juste remarqué une chose qui m'a sauté au yeux à la ligne suivante.

Code :

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

MonSQL := 'SELECT Ville FROM Code_Postal WHERE Code_Post = ' + AcodePoste.Text + '';

Généralement, on gère le code postal sous forme de chaîne pour éviter par exemple que le code de Privas ("07000") se tranforme en 7000 dans la BDD.

Si tu as géré le code via une chaîne, alors ta requête SQL n'est pas bonne. Essaie ceci pour voir si ça s'améliore.

Code :

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

MonSQL := 'SELECT Ville FROM Code_Postal WHERE Code_Post = "' + AcodePoste.Text + '"';

[Rserge]

Salut

Dans mon charabia comme tu dit le problème ne vient pas de la requete qui elle se déroule normalement et remplit bien la dbcombobox, mais c'est quand on selectionne une ville elle ne s'affiche pas en haut du dbcombobox et dbcombobox.text est vide.
J'espère être un peu plus clair.
a +++

[Cl@udius]

Salut

Les propriétés DataSource et DataField du DBComboBox sont-elles correctement remplies ?

@+ Claudius

[Rserge]

Salut

Merci le datafield n'etait pas renseigne il apparait maintenant la derniere ville de la liste dans le dbcombobox mais apres selection d'une autre ville c 'est la derniere de la liste qui est prise en compte
a +++++