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 30 31 32 33
| //===================================================déclaration des variables============================================
listetable est une chaîne
connexion est une Connexion
sfichier est une chaîne
//=======================================emplacement de la base access 2000================================
SI OuiNon(1,"Voulez vous lancer l'importation des données ?") ALORS
sfichier = fSélecteur("C:\","","","")
SI Droite(sfichier,3) <> "mdb" ALORS
Erreur("fichier non valide")
RETOUR
FIN
SINON
RETOUR
FIN
//===================================Ouverture de la base accesss===============================================================
HDécritConnexion("connexion","","",sfichier,"",hOledbAccess2000,hOLecture )
SI PAS (HOuvreConnexion("connexion")) ALORS
Erreur("Erreur HyperFileSQL : " + HErreurInfo())
FIN
//===================================Lecture des données===============================================================
HChangeConnexion("Chantier", "connexion")
HLit(Chantier, 1)
Trace(Chantier.Champ1) |