Discussion :

[mmm]

Bonjour,

Je développe une appli sous Delphi7 avec SQLServer2000.

J'utilise un composant ADO COMMAND : ADOComRechUnCavalier.

Voici le code :

Code :

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

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 :

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

FieldValues['noCavalier'];

ne fonctionne pas !


Merci beaucoup de votre aide !

Monique

[Giovanny Temgoua]

Et si tu essaies :

Code :

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

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;

[mmm]

Bonjour,

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

Code :

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

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