1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
// Description
SI HDécritConnexion("MaConnexion","scott","tiger","XE","","OraOLEDB.Oracle")=Faux ALORS
Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
Info("Description OK")
FIN
// Ouvrir la nouvelle connexion
SI HOuvreConnexion("MaConnexion")=Faux ALORS
Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
Info("Connexion OK")
FIN
HChangeConnexion(Clients,"MaConnexion")
HCréationSiInexistant(Clients)
Clients.IDClients = 1
Clients.NomClient = "LECOESTER"
Clients.DateCreation = DateSys()
HAjoute(Clients)
Clients.IDClients = 2
Clients.NomClient = "HEGROS"
Clients.DateCreation = DateSys()
HAjoute(Clients)
HLitPremier(Clients,IDClients)
Info(Clients.NomClient) |
Partager