Discussion :

[yanba]

Je remplis un DBLookupComboBox avec la requete suivante :

Code :

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

1
2
3
4
5
6
7
8
With DM.ADOQueryNumComptes do
begin
         Close;
         DM.ADOQueryNumComptes.SQL.Clear;
         DM.ADOQueryNumComptes.SQL.Add('SELECT NumCompte, NomCompte FROM Comptes');
         DM.ADOQueryNumComptes.SQL.Add('WHERE Pseudo="'+Pseudo+'"');
         DM.ADOQueryNumComptes.Open;
end;

Puis, je veux que le DBLookupComboBox affiche la 1° valeur par défaut (récupéré le code dans la FAQ) :

Code :

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

1
2
3
4
5
With DBLookupComboBoxComptes Do
Begin
          ListSource.DataSet.First ;
          Field.Value := ListSource.DataSet.FieldByName(KeyField).Value;
  End;

La 1° partie marche, la 2°, j'ai le message suivant : "Violation d'acces" Pourquoi ?
Je précise que j'ai dans l'inspecteur d'objet : KeyField=NumCompte

Je pense que c'est du au fait, que j'utilise une requete ... Il ne peut recuperer une valeur differente de ma requete ...
Si c'est le cas, comment afficher la 1° valeur ?

Merci

[delphi5user]

Bonjour ,

Il faut que tu utilises la propriété KeyValue de ton DBLookUpComboBox:

Code :

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

1
2
ListSource.DataSet.First;
      KeyValue := ListSource.DataSet.FieldByName(KeyField).Value;

Ca devrait marcher.

[yanba]

Cool, merci delphi5user.

Si tu permets une 2° question :
J'ai en code :

Code :

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

1
2
DM.ADOQueryNumComptes.SQL.Add('SELECT NumCompte, NomCompte FROM Comptes');
DM.ADOQueryNumComptes.SQL.Add('WHERE Pseudo="'+Pseudo+'"');

Je voudrais le mettre dans dans l'inspecteur d'objet, partie SQL de mon "ADOQueryNumComptes". Je mets :

Code :

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

SELECT NumCompte, NomCompte FROM Comptes WHERE Pseudo="'+Pseudo+'"

Et ca marche pas !!!

[delphi5user]

Normalement,
au niveau de l'inspecteur d'objet, tu dois créer un paramètre (parameters) : Pseudo
Ensuite au niveau de ton sql,tu écris :

Code :

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

1
2
 
SELECT NumCompte, NomCompte FROM Comptes WHERE Pseudo=:Pseudo

(les 2 points signifie un paramètre).

Puis dans to code :

Code :

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

1
2
 
parameters.parambyname('Pseudo').AsString := tavaleur

Ca devrait marcher



[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir

[yanba]

Je vais tester. Merci