Comment récupérer des informations stockées dans une base de données SQL



 


 


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);

Comments (0)