Créer un Codeunit puis ajouter les variables suivantes :

ADOConn : Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Connection 
ADOrs : Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Recordset 
ConnStr : Text 200

Nom : Text  200
Prenom : Text  200
i : Integer  

 

 

Ajouter le code suivant :

//Connexion ADO
CREATE(ADOConn);
ConnStr :=
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AdventureWorks;' +
'Data Source=NAVISION\SQL2005';

ADOConn.Open(ConnStr);
CREATE(ADOrs);

//Requete SELECT
ADOrs.Open('SELECT [FirstName],[LastName] FROM [AdventureWorks].[Person].[Contact]',ADOConn,2,3);
ADOrs.MoveFirst;

FOR i:= 1 TO 5 DO BEGIN
  Nom := ADOrs.Fields.Item('FirstName').Value;
  Prenom := ADOrs.Fields.Item('LastName').Value;
  MESSAGE('Nom %1 - Prénom %2', Nom, Prenom);
ADOrs.MoveNext;
END;


ADOrs.Close;
ADOConn.Close;
CLEAR(ADOrs);
CLEAR(ADOConn);