j'ai besoin de votre aide dans une chose importante dans foxpro

Question

je suis programmeur de vb et je ne connait rien dans le foxpro mais dans la soci&#233;t&#233; ou je travail se trouve un programme de la paie avec fox pro. et je voudrait transf&#233;r&#233; tous les donn&#233;es qui y sont dans un fichier *.txt ou dans un fichier *.xls . mais je ne sait pas comment acc&#233;d&#233; aux donn&#233;es et les copier ( comme par exemple dans access tu entre dans la table et tu copie les donn&#233;es que tu veut)

et pourquoi pas je voudrait faire une relation entre fox pro et visual basic et access.
bref je veut extraire les donn&#233;es qui sont dans le programme et les mettre dans un fichier excel ou txt. ou bien faire une relation avec visual basic

Merci encore de vos reponse j'esp&#232;re que j'aurait une reponse c'est tres urgent.

FredArmoni · Answer

VFPOLEDB


http://www.microsoft.com/downloads/details.aspx?FamilyId=E1A87D8F-2D58-491F-A0FA-95A3289C5FD4&displaylang=en

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

jbenzakour · Answer

Merci bcp pour votre aide
je vait essay&#233; de faire la relatione entre le vb et le fox pro et je vait te tenir au corant 
et merci encore.

jbenzakour · Answer

bonjour j'ai essayer de faire la relation entre vb et FP mais quand il entre dans la table il me dit que les table sont vide
je ne sait pas pq
je ve que tu m'aide en me donnant un code pour acceder a une table FP via ADo
et Merci

FredArmoni · Answer

vb6 ou .net ?

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

FredArmoni · Answer

Je ne suis pas d&#233;veloppeur VB mais en fox &#231;a donnerait quelque chose comme &#231;a (en utilisant ado)


cnn = CreateObject("ADODB.Connection")


connectString="driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=C:\ANCIEN\E\PREVIWIN.DEP\DATA"


cnn.Open(connectString)


strSQL = "SELECT * FROM ANPRDET" && anprdet est un dbf du dossier ci dessus


recordset = cnn.Execute(strSQL)


? recordset.Fields.Count && nombre de champs


? recordset.Fields(1).Name && retourne le nom du premier champ (an_exer0)


fld1 = recordset.Fields("an_exer0")


? fld1.Value


recordset.MoveNext


? fld1.Value


tu peux boucler sur  not recordset.EOF

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

FredArmoni · Answer

j'oubliais, ce code a &#233;t&#233; fait sur des tables fox2.5 

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

jbenzakour · Answer

je vait essayer ca 
en faite j'utilise vb 6.0
et Merci encore

J'ai besoin de votre aide dans une chose importante dans foxpro

7 réponses

Votre réponse

Discussions similaires