Bonjour,

Je suis actuellement entrain de développer une gestion de base de données avec ODAC (oracle 9i / Delphi 7).

Je voudrais faire un select qui rend les données d'un enregistrement dans différents edits.

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
 
procedure TForm1.Button2Click(Sender: TObject);
var s : string;
begin
 s := 'select devis_id, personnel_id, no_cli, devis_objet, devis_date, devis_montant, avancement from devis where devis_id = ''05001'';';
 OraQuery1.SQL.Text := s;
 OraQuery1.Active;
 EditIdDevis2.Text := OraQuery1.Fields.Fields[0].AsString;
 ComboBoxCADevis2.Text := OraQuery1.Fields.Fields[1].AsString;
 EditClientDevis2.Text := OraQuery1.Fields.Fields[2].AsString;
 EditObjetDevis2.Text := OraQuery1.Fields.Fields[3].AsString;
 EditDateDevis2.Text := OraQuery1.Fields.Fields[4].AsString;
 EditMontantDevis2.Text := OraQuery1.Fields.Fields[5].AsString;
 ComboBoxCADevis2.Text := OraQuery1.Fields.Fields[6].AsString
end;
Mais quand je clique sur le bouton correspondant, delphi me retourne l'erreur "Indice hors limite(0)" .

Je ne comprends du tout pourquoi car je n'utilise pas de TList.

Merci d'avance.

PS : J'utilise des combobox pour ce bouton, mais j'ai la même erreur pour des edits.