Delphi et ADO

Version imprimable

Delphi et ADO

Bonjour,

Je développe une appli sous Delphi7 avec SQLServer2000.

J'utilise un composant ADO COMMAND : ADOComRechUnCavalier.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure LireInfosCavalier( var unCavalier : cavalier); var unNomCav, unPrenomCav : ch32; begin unNomCav := unCavalier.NomCav; unPrenomCav := unCavalier.PreNomCav; with DataModCavalier.ADOComRechUnCavalier do begin commandText := 'select * from cavalier where nomCav = :unNomCav and prenomCav = :unPreNomCav'; execute; unCavalier.NoCav := FieldValues['noCavalier']; unCavalier.DateNaissCav := FieldValues['DateNaissCav']; end; end;
Comment puis-je récupérer les résultats de l'exécution de ma requête :

Code:

FieldValues['noCavalier'];

ne fonctionne pas !

Merci beaucoup de votre aide !

Monique :cry:

Et si tu essaies :

Code:

1
2
3
4
5
6
7
with DataModCavalier.ADOComRechUnCavalier do 
begin 
    SQL.Text :=  'select * from cavalier where nomCav = :unNomCav and prenomCav = :unPreNomCav'; 
  ParamByName('unNomCav').AsString:=unCavalier.NomCav;
  ParamByName('unPreNomCav').AsString:=unCavalier.PreNomCav;
  Open;
end;

Bonjour,

Ce n'est pas tout à fait ça !
Mais le code suivant fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
with DataModCavalier.ADOComRechUnCavalier do
    begin
      commandText :=  'select * from cavalier where nomCav = :unNomCav and prenomCav = :unPreNomCav';
      commandType :=  cmdText;
      Parameters.ParamByName('unNomCav').value := unCavalier.NomCav;
      Parameters.ParamByName('unPreNomCav').value := unCavalier.PreNomCav;
      DataModCavalier.ADODataSUnCavalier.recordSet := execute;
    end;
    unCavalier.NoCav        := DataModCavalier.ADODataSUnCavalier.recordSet.Fields[0].Value;
    unCavalier.DateNaissCav := DataModCavalier.ADODataSUnCavalier.recordSet.Fields[3].Value;

Merci beaucoup pour ce coup de pouce !

:) Monique