[Some non-English text removed by Administrator]
NavAdoConnection (Automation) 'Microsoft ActiveX Data Objects 2.8 Library'.Connection
OConnection (Text ) 250
OSql (Text) 250
NavRec (Automation ) 'Microsoft ActiveX Data Objects 2.8 Library'.Recordset
Puis voici le code à utiliser :
// Connexion à la base de données.
OConnection:='PROVIDER=SQLOLEDB;SERVER=SERVEURSQLSERVER;DATABASE=Nombasededonnées;UID=Utilisateur;PWD=Motdepasse';
// Création de l'objet automation
if isclear(NavAdoConnection) then
CREATE(NavAdoConnection);
// Ouverture de la connexion.
NavAdoConnection.ConnectionString(OConnection);
NavAdoConnection.Open;
// Ouverture recordset
// OSql = requête que vous souhaitez réaliser.
OSql:='Select [No_] as no, name from [CRONUS France S_A_$Customer] order by name';
// Création de l'objet automation
if isclear(NavRec) then
CREATE(NavRec);
NavRec:=NavAdoConnection.Execute(OSql,OReturnNbRecord);
// On se positionne sur le premier enregistrement.
NavRec.MoveFirst;
REPEAT
// On se déplace sur l'enregistrement suivant.
NavRec.MoveNext;
// Jusqu'à la fin de fichier.
UNTIL NavRec.EOF;
// Fermeture de la connexion.
NavAdoConnection.Close;
// Libération des objets automation.
CLEAR(NavAdoConnection);
CLEAR(NavRec);
I found these codes on the net. But this is no more applicable on NAV 2013.
Can you please guide as to how i write sql commands on NAV to read data from an SQL db.
Thanks.
0
Comments