Combobox et requête sql

Version imprimable

Bonjour à tous,

J'ai une problème avec une requête sql que voici: J'utilise des Combobox comme critère de recherche dans la base de donnée Oracle.
J'ai saisie les valeurs dans propriété item de la combobox.
Il se trouve qu'il ya un vide comme suit :
Valeur saisie dans le Item 15013.
Quand j'exécute la requête il se présente comme ceci '15013 '. ce vide ne donne aucun résultat dans QReport.
voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 Form2.Query_Edit.sql.Clear; Form2.Query_Edit.sql.Add('Select ABOBT_EXPL#, ABOBT_SECTION, ABOBT_ILOT, ABOBT_PARCELLE, ABOBT_RANG, ABOBT_NUMPOL#, ABOBT_CLEPOL#, ABOBT_NOM, ABOBT_PRENOM, ABOBT_CODSIT, ABOBT_TAR, ABOBT_TYABO from GC_ABONNE'); Form2.Query_Edit.sql.Add('Where ABOBT_TAR = ' + QuotedStr(combobox1.Text)); Form2.Query_Edit.sql.Add('And ABOBT_SECTION = '+ QuotedStr(Combobox2.text)); Form2.Query_Edit.sql.Add('And ABOBT_TYABO = '+ QuotedStr(Combobox3.text)); Form2.Query_Edit.sql.Add('And ABOBT_CODSIT = '+ QuotedStr(Combobox4.text)); Form2.Query_Edit.sql.Add('And ABOBT_EXPL# = '+ QuotedStr(ExplEdit.text)); Showmessage(Form2.Query_Edit.Text); Form2.Query_Edit.Open; Form2.QuickRep1.Preview;
Showmessage(Form2.Query_Edit.Text) affiche :

Code:

Where ABOBT_TAR = '15013 '

Alors ce devait être :

Code:

Where ABOBT_TAR ='15013'

Comment suprimer le vide entre la valeur sélectionnée dans la combobox et le prochaine cote?.
Je pense que je me suis fait comprendre.
Merci pour toutes interventions.

Salut,

Bizarre, je n'ai pas ce soucis.

J'ai fait vite fait ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
Query_Edit.sql.Clear;
Query_Edit.sql.Add('Select ABOBT_EXPL#, ABOBT_SECTION, ABOBT_ILOT, ABOBT_PARCELLE, ABOBT_RANG, ABOBT_NUMPOL#, ABOBT_CLEPOL#, ABOBT_NOM, ABOBT_PRENOM, ABOBT_CODSIT, ABOBT_TAR, ABOBT_TYABO from GC_ABONNE');
Query_Edit.sql.Add('Where ABOBT_TAR = ' + QuotedStr(combobox1.Text));
Query_Edit.sql.Add('And  ABOBT_SECTION = '+ QuotedStr(Combobox2.text));
Query_Edit.sql.Add('And  ABOBT_TYABO = '+ QuotedStr(Combobox3.text));
Query_Edit.sql.Add('And  ABOBT_CODSIT = '+ QuotedStr(Combobox4.text));
Query_Edit.sql.Add('And  ABOBT_EXPL# = '+ QuotedStr(ExplEdit.text));
Showmessage(Query_Edit.Text);
end;

Et Voilà le résultat

Code:

1
2
3
4
5
6
Select ABOBT_EXPL#, ABOBT_SECTION, ABOBT_ILOT, ABOBT_PARCELLE, ABOBT_RANG, ABOBT_NUMPOL#, ABOBT_CLEPOL#, ABOBT_NOM, ABOBT_PRENOM, ABOBT_CODSIT, ABOBT_TAR, ABOBT_TYABO from GC_ABONNE
Where ABOBT_TAR = 'ComboBox1'
And  ABOBT_SECTION = 'ComboBox2'
And  ABOBT_TYABO = 'ComboBox3'
And  ABOBT_CODSIT = 'ComboBox4'
And  ABOBT_EXPL# = 'ExplEdit'

Bizarre ...

pour suprimmer les blanc vous pouvez utilsez la fonction Trim.
Code:

1 2 3 4 5 6 7 8 9 10 Form2.Query_Edit.sql.Clear; Form2.Query_Edit.sql.Add('Select ABOBT_EXPL#, ABOBT_SECTION, ABOBT_ILOT, ABOBT_PARCELLE, ABOBT_RANG, ABOBT_NUMPOL#, ABOBT_CLEPOL#, ABOBT_NOM, ABOBT_PRENOM, ABOBT_CODSIT, ABOBT_TAR, ABOBT_TYABO from GC_ABONNE'); Form2.Query_Edit.sql.Add('Where ABOBT_TAR = ' + QuotedStr(Trim(combobox1.Text))); Form2.Query_Edit.sql.Add('And ABOBT_SECTION = '+ QuotedStr(Trim(Combobox2.text))); Form2.Query_Edit.sql.Add('And ABOBT_TYABO = '+ QuotedStr(Trim(Combobox3.text))); Form2.Query_Edit.sql.Add('And ABOBT_CODSIT = '+ QuotedStr(Trim(Combobox4.text))); Form2.Query_Edit.sql.Add('And ABOBT_EXPL# = '+ QuotedStr(Trim(ExplEdit.text))); Showmessage(Trim(Form2.Query_Edit.Text); Form2.Query_Edit.Open; Form2.QuickRep1.Preview;
ou encore utilisez l'opérateur LIKE a la place du = si votre égalité peut être non littérale.

mais le mieux c'est de placez vos valeurs dans des tables de votre base de données avec des clef que vous utiliserez dans vos requette le choix se fera par des DbLookupCombox1 .

@+ aityahia

10/10/2007, 22h24
ero-sennin

Citation:

Envoyé par sondo

Bonjour à tous,

Showmessage(Form2.Query_Edit.Text) affiche :

Code:

Where ABOBT_TAR = '15013 '

Alors ce devait être :

Code:

Where ABOBT_TAR ='15013'

Comment suprimer le vide entre la valeur sélectionnée dans la combobox et le prochaine cote?.

Ah, pardon!

Autant pour moi, j'ai mal lu la question :aie:

Je pensai qu'il manquai un guillemet :mrgreen:

Pour supprimer les esapces, tu peux utiliser :

- TrimLeft() = Supprimer les espaces superflus en début de chaine
- TrimRight() = Supprimer les espaces superflus en fin de chaine
- Trim() = TrimLeft+TrimRigth() ... tu as deviné je pense :P

Bon courage.
A+

Sur de grosse requete de ce style, le mieux serait d'utiliser les paramètres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
With Form2,Query_Edit do
begin
  sql.Clear;
  sql.Add('Select ABOBT_EXPL#, ABOBT_SECTION, ABOBT_ILOT, ABOBT_PARCELLE, ABOBT_RANG, ABOBT_NUMPOL#, ABOBT_CLEPOL#, ABOBT_NOM, ABOBT_PRENOM, ABOBT_CODSIT, ABOBT_TAR, ABOBT_TYABO from GC_ABONNE');
  sql.Add('Where ABOBT_TAR = :PTAR');
  sql.Add('And  ABOBT_SECTION = :PSECTION');
  sql.Add('And  ABOBT_TYABO = :PTYABO');
  sql.Add('And  ABOBT_CODSIT = :PCODSIT');
  sql.Add('And  ABOBT_EXPL# = :PEXPL');
  ParamCheck := True;
  // Pas besoin des quotedStr avec les paramètres
  ParamByName('PTAR').Value := Trim(combobox1.Text);
  ParamByName('PSECTION').Value := Trim(Combobox2.text);
  ParamByName('PTYABO').Value := Trim(Combobox3.text);
  ParamByName('PCODSIT').Value := Trim(Combobox4.text);
  ParamByName('PEXPL').Value := Trim(ExplEdit.text);
// La seule chose c'est que l'affichage du text du SQL ne sert plus à rien
//  Showmessage(Text);
  Open;
  QuickRep1.Preview;
end;

13/10/2007, 19h40
sondo

Salut,

Merci pour votre aide. J'ai beaucoup appris de tous ce que vous avez dit.
Seulement, après 3 jours, j'ai remarqué que c'est parce que j'ai copié les éléments dans un bloc note, et après j'ai collé dans items de la combobox1. Ce qui provoque ce vide bizarre. (une leçon pour la prochaine fois).
J'ai saisie moi même les éléments dans item de la combobox, et le problème est résolu.
Voilà. Désolé de vous avoir dérangé. Et merci pour vos suggestions combien importantes pour la prochaine fois.
Merci et bye.