activation de la requette SQL

**colombe** · 14/06/2006, 13h46

j'ai une application sous delphi avec des tables dbase
je n'arrive pas a active ma requette SQL pourquoi je ne sais pas
message d'erreur parametre incorrecte
comment faire
alors qu'avant s'a marché bien
se matin sa ne marche pas pourquoi?
merci

**Bejaia-In** · 14/06/2006, 14h02

Des détails sur cette requette seraient les bienvenus.

**colombe** · 14/06/2006, 14h03

Code :

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

1
2
select liborg,divdir,dep,sdiv from tab_org
where divdir=:dir

et dir c'est un parametre si je l'active

erreur du moteur de base de données

**Bejaia-In** · 14/06/2006, 14h07

Utilse l'Explorateur SQL fournit avec Delphi pour faire des essais avec cette requette en éliminant le paramètre.

**colombe** · 14/06/2006, 14h13

mais comment expliquer que hier ca a marche et se matin rien je ne comprend rien du tout
aidez moi svp.
merci

**qi130** · 14/06/2006, 14h17

Merci de lire et de respecter les Règles du Forum

notamment

D'autre part :

dir c'est un parametre

Comment est-il alimenté ?

si je l'active

Comment "l'actives-tu" ?
Quels composants sont utilisés ?

erreur

Quelle erreur ?

**Bejaia-In** · 14/06/2006, 14h19

Encore un fois, essaie d'ouvrir cette requette ou une quelconque table de ta base avec l'Explorateur SQL.
Si tu n'y arrive pas, la cause est surement le BDE.

**Rayek** · 14/06/2006, 14h22

tu n'oublierais pas de renseigner ce paramètre ?

**colombe** · 14/06/2006, 14h34

voici le code d'allimentation du parametre dir:

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
procedure TFormnav.ComboBox10Change(Sender: TObject);
begin
if combobox10.text='Siege    8RA' then edit12.Text:= '8RA';
if combobox10.text='Skikda  9RY'then edit12.Text:='9RY';
if combobox10.text='Arzew   9RD' then edit12.Text:= '9RD';
if combobox10.text='Alger     9RF' then edit12.Text:='9RF';
if combobox10.text='Cadres Supérieurs  8ZZ' then edit12.Text:='8ZZ';
if combobox10.Text='Cadre Dirigeant   8CD' then edit12.Text:='8CD';
 
if edit12.Text='8RA' then
begin
Query3.close;
  Query3.Params[0].AsString :=edit12.text;
   Query3.ExecSQL;
      Query3.open;
     query3.first;
     combobox9.Items.Clear;
 while not  Query3.Eof do
 begin
  ComboBox9.Items.Add(Query3liborg.value);
  query3.next;
 end;
end;