Discussion :

[soror]

Bonjour à tous;

j'utilise un DBLookupComboBox avec une table toute la connexion avec celle -ci est faite mais quand je compile le DBLookupComboBox est desactivé sachant que sa proprieté enabled est à true?????

j'espere que quelqun peut me resoudre ce probleme.
merci

[ShaiLeTroll]

C'est dans le forum DB normalement ça !

Soit parce que ListSource n'est pas Open,
Soit le DataSet associé au DataSource est en lecture seule ...

[soror]

je comprend pas listsource ???
mais pour datasource j'ai verifié readonly est à false

[ShaiLeTroll]

Tu ne comprends pas ListSource avec un DBLookupComboBox ? comment comptes-tu mettre des valeurs dans la Combo ... c'est la BASE de ce composant !

[soror]

a oui excuse moi je viens de la voir je suis débutant;
sur ListSource j'ai le nom de mon datasource est ce que cela est juste???
merci

[soror]

A l'aide Mr ShaiLeTroll

[ShaiLeTroll]

Il te faut 2 Tables !
L'une pour les Données, avec la colonne qui contiendra une valeur de la liste ... c'est DataSource
L'aute pour les Items de la Combo, c'est dans ListSource,

Maintenant, tu devrais voir si le TDBComboBox ne te suffirait pas ?
Tu as toujours DataSource mais les Items, sont dans une TStrings que tu peux remplir directement dans Delphi, c'est très utile si tu as une liste qui ne changera toute seule d'élément ...

EDIT : j'ai vu ton autre sujet ... tu as 1700 lignes de données ? ou 1700 items dans la Combo ??? je pleins les utilsateurs qui devront faire défiler la liste ...

[soror]

mais est ce que c'est possible de mettre 1700 itemes dans un combo car c'est ça qu'onn me demande.????

[ShaiLeTroll]

Tout à fait possible, c'est juste que celui qui te demande cela, ben c'est pas lui qui devra défiler la liste ... mais c'est possible ...

tient à la Barbare, ça donne ça

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
ALookupCombo.DataSource := TDataSource.Create(ALookupCombo);
ALookupCombo.DataSource.DataSet := TQuery.Create(ALookupCombo);
with TQuery(ALookupCombo.DataSource.DataSet) do
begin
  SQL.Text := 'Select Bidule From TableMachin';
  Open();
end;
ALookupCombo.ListSource.DataField := 'Bidule';
 
ALookupCombo.ListSource := TDataSource.Create(ALookupCombo);
ALookupCombo.ListSource.DataSet := TQuery.Create(ALookupCombo);
with TQuery(ALookupCombo.ListSource .DataSet) do
begin
  SQL.Text := 'Select CodeBidule, LabelBidule From TableListePossibleDeValeur';
  Open();
end;
ALookupCombo.ListSource.KeyField := 'CodeBidule';  
ALookupCombo.ListSource.ListField := 'LabelBidule';

[soror]

excuse moi est ce que le code que tu viens de me donner je lemet dans ALookupComboClick???

[ShaiLeTroll]

Non plutôt dans le Create de la Form, mais c'est un exemple, j'ai tapé cela à la volée, il doit manquer des trucs ... mais déjà comme par cela ...

ta DB c'est quoi Paradox ? si oui, autant avoir un DataModule avec plein de TTable et de TDataSource, je sais c'est lourd, parfois risqué mais ça fonctionne ...

[soror]

non ma base c'est SQL server 2005

[ShaiLeTroll]

Donc des TADOQuery je suppose à la place des TQuery

mais avec les bonnes requêtes et les bonnes colonnes, le code que j'ai proposé devrait fonctionné, a ceci près comme cela (tu peux remplacer le ADOConnection par une ConnectionString)

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
20
21
22
23
24
 
procedure RemplirLookup(AConnection:TADOConnection; ALookupCombo: TDBLookupComboBox; const DataSQL, ListSQL, DataField, KeyField, ListField: string; T);
begin
  ALookupCombo.DataSource := TDataSource.Create(ALookupCombo);
  ALookupCombo.DataSource.DataSet := TADOQuery.Create(ALookupCombo);
  with TADOQuery(ALookupCombo.DataSource.DataSet) do
  begin
    Connection := AConnection;
    SQL.Text := DataSQL;
    Open();
  end;
  ALookupCombo.DataField := DataField;
 
  ALookupCombo.ListSource := TDataSource.Create(ALookupCombo);
  ALookupCombo.ListSource.DataSet := TADOQuery.Create(ALookupCombo);
  with TADOQuery(ALookupCombo.ListSource .DataSet) do
  begin
    Connection := AConnection;
    SQL.Text := ListSQL;
    Open();
  end;
  ALookupCombo.KeyField := KeyField;  
  ALookupCombo.ListField := ListField;
end;