engelina33
Messages postés19Date d'inscriptionsamedi 2 décembre 2006StatutMembreDernière intervention16 mars 2012
-
7 mai 2009 à 13:42
engelina33
Messages postés19Date d'inscriptionsamedi 2 décembre 2006StatutMembreDernière intervention16 mars 2012
-
16 mai 2009 à 10:04
Bonjour,
Est ce que il y'a quelqu'un qui peut m'aider pour écrire un code qui permet de remplir une table fox
à partir d'un fichier excel. Merci d'avance
engelina33
Messages postés19Date d'inscriptionsamedi 2 décembre 2006StatutMembreDernière intervention16 mars 2012 8 mai 2009 à 01:10
Bonsoir,
j'utilise FoxPro 9, j'ai essayé d'extraire les données avec le import de foxpro mais la structure de la table n'est pas claire. comment faire pour extraire quelques champs du fichier?? et comment le déclencher à partir d'un événement (clique sur un bouton par exemple)??
michelatoutfox
Messages postés828Date d'inscriptionmardi 5 octobre 2004StatutMembreDernière intervention 7 mai 20131 8 mai 2009 à 09:45
Bonjour,
la syntaxe exacte de l'import de données est dans les rubriques d'aide "APPEND FROM" et "IMPORT FROM"
si tu fais une recherche sur le mot "Excel" dans les contributions du site http://www.atoutfox.org, tu trouveras plusieurs exemples avec des techniques plus élaborées et complètes.
Et pour déclencher à partir d'un évenement, il suffit de coder dans la méthode de cet évenement, ou dans une méthode appelée depuis celle-ci.
engelina33
Messages postés19Date d'inscriptionsamedi 2 décembre 2006StatutMembreDernière intervention16 mars 2012 16 mai 2009 à 10:04
Bonjour,
j'ai utilisé une partie d'un code du site atoutfox, il me donne comme résultat le nombre de ligne dans une feuille Excel, j'ai cherché un moyen pour accéder à une case et récupérer ces données mais j'ai pas trouvé, y'a t'il quelqu'un qui peut m'aider?? merci pour votre aide.
le code :
CLEAR
SET TALK off
LOCAL cDriver as String && nom du driver
LOCAL cFile as String && nom du fichier excel a traiter
LOCAL ic as Integer && id connection sql
LOCAL iNombreOnglets as Integer && nombre d'onglets
LOCAL iSheet as Integer
LOCAL varri
cDriver = "driver={Microsoft Excel Driver (*.xls)}"
cFile = "chemin"
ic = SQLSTRINGCONNECT(cDriver + "; DBQ=" + cFile)
IF m.ic>0
if SQLTABLES(m.ic, "", "CursorListSheets")>0
iNombreOnglets = RECCOUNT()
? "Nombre d'onglets = "+ ALLTRIM(STR(m.iNombreOnglets))
SCAN
? "Nom de l'onglet " + ALLTRIM(STR(RECNO()))+ "=" + ALLTRIM(Table_Name)
SELECT 0
iSheet = SQLEXEC(m.ic, "select * from ["+ALLTRIM(CursorListSheets.Table_Name)+"]")
IF iSheet>0
? " Nombre de lignes dans "+ ALLTRIM(CursorListSheets.Table_Name)+" = "+ALLTRIM(STR(RECCOUNT()))
endif
use
SELECT CursorListSheets
ENDSCAN
use
ENDIF
=SQLDISCONNECT(m.ic)
endif