activation de la requette SQL

Version imprimable

14/06/2006, 14h46
colombe

activation de la requette SQL

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
14/06/2006, 15h02
Bejaia-In

Des détails sur cette requette seraient les bienvenus.;)
14/06/2006, 15h03
colombe

merci
Code:

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
14/06/2006, 15h07
Bejaia-In

Utilse l'Explorateur SQL fournit avec Delphi pour faire des essais avec cette requette en éliminant le paramètre.
14/06/2006, 15h13
colombe

merci

mais comment expliquer que hier ca a marche et se matin rien je ne comprend rien du tout
aidez moi svp.
merci
14/06/2006, 15h17
qi130

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

notamment :tagcode:

D'autre part :

Citation:

dir c'est un parametre

Comment est-il alimenté ?

Citation:

si je l'active

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

Citation:

erreur

Quelle erreur ?

:merci:
14/06/2006, 15h19
Bejaia-In

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.
14/06/2006, 15h22
Rayek

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

merci

voici le code d'allimentation du parametre dir:

Code:

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;

14/06/2006, 15h41
qi130
Code:

1 2 Query3.ExecSQL; Query3.open;
Ca, c'est pas bon.....

Soit ExecSQL pour la mise à jour de la base, soit Open pour la lecture, mais pas les 2 à la suite !

Rappel:
:tagcode:

=> Utilises le bouton # au dessus de la fenêtre d'édition.