Discussion :

[TieumB]

Bonjour à tous,

Je souhaite faire une form qui contiendra tous les champs d'une table, pour consultation.
Je voudrais, en haut de cette form, mettre un combo box permettant de choisir dans une liste de valeurs crées à partir des valeurs d'une table.
Exemple. J'ai une form où je remplis des infos sur une personne. Nom, prenom, adresse.
Je veux que dans une autre form, je puisse avoir d'affiché en premier, une combo avec la liste des noms presents dans la table. En selectionnant le nom, les autres champs se remplissent en fonction.
Je précise qu'au niveau du code, je sais remplir une combo avec la liste des noms (en prenant champs après champ la valeur du nom)
Mais ceci est très lent sur de gros fichiers.
Une idée ?
Merci !:

[shwin]

Salut, moi jutilise un dbLookUpComboBox!!
voici comment je le rempli

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
 
void Vente::AfficheCompteClient(TFrmMain *FrmMain)
{
//Création d'un TQuery dynamiquement
TQuery *qryCompteClient;
qryCompteClient = new TQuery(NULL);
qryCompteClient->DatabaseName = "Elphi";  //Elphi = Alias
 
//########### REQUETE ############
AnsiString req = "SELECT tblClient.NoClient, tblClient.NomClient, tblClient.PrenomClient, tblClient.NomClient & ', ' & tblClient.PrenomClient AS NomComplet FROM tblClient INNER JOIN tblFacture ON tblClient.NoClient = tblFacture.NoClient WHERE (((tblFacture.HrsFermetureFacture) Is Null))";  //Requête SQL
qryCompteClient->SQL->Clear();  // Efface le contenu de la requête du composant
qryCompteClient->SQL->Add(req);  // Affecte la requete voulue dans le composant
qryCompteClient->Open();  //Effectue la requete -> Resultat envoyé dans le datasourc
 
//Création d'un datasource dynamiquement
TDataSource *dtsCompteClient;
dtsCompteClient = new TDataSource(NULL);
dtsCompteClient->DataSet = qryCompteClient;  //Lie le Tquery avec le dataset
dtsCompteClient->Enabled = true;  //Active le DataSource
 
FrmMain->dbLkCboVenteCompteClientCompte->ListSource = dtsCompteClient;
FrmMain->dbLkCboVenteCompteClientCompte->ListField = "NomComplet";
FrmMain->dbLkCboVenteCompteClientCompte->KeyField = "NoClient";
}

[TieumB]

Uhmmm, j'ai envie de dire ... Parfait ?
Merci bien !

[bakaneko]

Avec des ComboBox classiques:

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
TADOQuery* QueryCB = new TADOQuery(Application);
 QueryCB->ConnectionString = Module->CONNECTSTR;
 
 //Remplissage ComboBox
 QueryCB->Close();
 QueryCB->SQL->Clear();
 QueryCB->SQL->Add("SELECT DISTINCT LIEU_NOM FROM LIEU;");
 QueryCB->Open();
 
 for (int i = 0;i < QueryCB->RecordCount ;i++)
 {
  CB_LieuL->Items->Add(QueryCB->FieldByName("LIEU_NOM")->Text);
  QueryCB->Next();
 }
 delete QueryCB;

[TieumB]

Une petite pour la route :
dans le premier exemple, comment faire en sorte que la combo soit remplie avec la valeur courante de la table ? (le nom)
dans mon cas, le texte affiché dans le combo est vide, il faut selectionner une valeur à l'interieur du combo pour qu'effectivement le texte se mette à la bonne valeur.
En fait, lors du lancement de la form, j'aimerai que le texte du combo soit la valeur courante de la table (par exemple qd on vient de rentrer un nouveau contact dans la table, qu'automatiquement la valeur du dbcombo nom soit le nom enregistré ?

[shwin]

si tu veux sélectionner automatiquement un item dans le dblookupcombox, faut utiliser ceci

Code :

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

1
2
 
dbLkCboProduitChoisir->KeyValue = "Choco123";

"Choco123" est un item (keyfield) dans ma list!!
bref, c'est chocolat qui est visible mais pour la sélection, ca se fait avec le keyvalue!!

[TieumB]

Celà ne fonctionne pas, rien ne se passe (et ma combo n'est pas en readonly)

[TieumB]

En fait, pour etre plus précis, le record de ma table est bien selectionné (j'ai des DBEdit qui se mettent à la bonne valeur) mais ma combo n'a toujours pas de texte dedans.

[shwin]

montre le code que tu as mit et la facon dont tu la rempli!!

[TieumB]

AnsiString clientName;

DataModule1->Table_Clients->First(); // Déplace le curseur sur le premier enregistrement
clientName = DataModule1->Table_Clients->FieldByName("NOM")->Text;

DBLookupComboBox_Client->KeyValue = clientName;

J'ai un enregistrement avec le nom "TOTO" et si je fais :
DBLookupComboBox_Client->KeyValue = "TOTO";
l'enregistrement est bien selectionné, mais la combo n'affiche pas "TOTO"
Tu vois ?

[shwin]

a place de ->Text utilise AsString
et le keyField de ton combobox est bien lier sur le champ "Nom" de ta BD ?
montre la facon que tu assigne le keyfield et listfield (listfield est facultatif alors tu la pe etre pas mit)

[TieumB]

>a place de ->Text utilise AsString

Ok.

>et le keyField de ton combobox est bien lier sur le champ "Nom" de ta
>BD ?

Oui.

>montre la facon que tu assigne le keyfield et listfield (listfield est
>facultatif alors tu la pe etre pas mit)

Je fais tous dans l'Object Inspector :
KeyField est à NOM
ListField est laissé vide
ListFielIndex est à 0
ListSource est mis à DataModule1->Clients

Le reste, je n'ai rien changé.

[shwin]

ta bien "TOTO" dans ta liste déroulante ?

[TieumB]

Oui, absolument.
J'ai TOTO et tous les autres noms des enregistrements de ma table (donc, TUTU, TATA, TITI :-) )
Ca, ca fonctionne. Et quand je selectionne TOTO, les DBEdit sont bien remplis avec les bonnes valeurs (j'ai des DBEdit pour le prenom, l'adresse etc)
Le seul prob donc, c'est que le texte de la combo est vide et n'est pas initialisé à TOTO (ca ne s'affiche pas) sauf bien evidemment si je le selectionne manuellement avec la combo box.

[shwin]

alors ca je sait pas, car chez moi ca va #1
essaye de mettre la listfield a "NOM"

sinon je ne sait pas!