FORUM WINDEV

Je suis en train de transférer une ancienne application programmée sous DBFast en application Windev 8. Je dois donc récupérer la base de données DBF pour la modifier et la sauvegarder en fichiers FIC.
Pour l'instant j'importe les table 'manuellement' avec l'option importer de Windev...
Existe-til un moyen d'importer les fichiers de la base DBFast par la programmation ?

Merci d'avance

voir cet article
http://windev.tunidev.net/pb-d-importat ... -t376.html

bonjour
svp comment utiliser cette clasee
j'ai creer un fichier dynamique comme suit
TableDesc est une Description de Fichier
ItemDesc est une Description de Rubrique
FACTUR est une Source de Données







// Description du fichier "CLIENT"
TableDesc ..Nom = "FACTUR"
TableDesc ..Type = hFichierNormal
TableDesc ..CryptageFic = hCryptageStandard

// Description de la rubrique "NOM"
ItemDesc ..Nom = "CODEFRN"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 8
//ItemDesc ..TypeClé = hCléUnique
HDécritRubrique ( TableDesc , ItemDesc )

// Description de la rubrique "PRENOM"
ItemDesc ..Nom = "NUMORD"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "NUMFACT"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 12
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "DTARRIV"
ItemDesc ..Type = hRubDate8
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "DTFACT"
ItemDesc ..Type = hRubDate8
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "CREDI"
ItemDesc ..Type = hRubMonétaire
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "DEBI"
ItemDesc ..Type = hRubMonétaire
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "CODBNQ"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 2
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "NUMCHQ"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 11
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "DATECHQ"
ItemDesc ..Type = hRubDate8
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "NPIECE"
ItemDesc ..Type = hRubEntier2
//ItemDesc ..Taille = 5
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "TYP"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 1
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "ETA"
ItemDesc ..Type = hRubBooléen
ItemDesc ..Taille = 1
HDécritRubrique ( TableDesc , ItemDesc )

ItemDesc ..Nom = "OBSERVE"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 50
HDécritRubrique ( TableDesc , ItemDesc )



// Valide la description du fichier
HDécritFichier ( TableDesc )
...

// Création du fichier Client (reconnu car déclaré comme source de données)
HCréation ( FACTUR )

et j'ai creer un fichier txt comme suit

CODEFRN;CODE_FRN,C,8;
NUMORD;NUM_ORD,C,5;
NUMFACT;NUM_FACT,C,12;
DTARRIV;DT_ARRIV,D,8;
DTFACT;DT_FACT,D,8;
CREDI;CREDIT,N,13,2;
DEBI;DEBIT,N,13,2;
CODEBNQ;CODE_BNQ,C,2;
NUMCHQ;NUM_CHQ,C,11;
DATECHQ;DATE_CHQ,D,8;
NPIECE;N_PIECE,N,5;
TYP;TYPE,C,1;
ETA;ETAT,L,1;
OBSERVE;OBSERVER,C,50;

et j'ai attacher le code suivant a un bouton dans une fenetre1

cCheminDBF,cFichierDBF,cFicHF,cFicCNV,cCleHF sont des chaînes
cCheminDBF="C:\four.dbf\"
cFichierDBF="FACTURE.DBF"
cFicHF="C:\Documents and Settings\fay\Bureau\Nouveau dossier\Mon_Projet\Exe\FACTUR.FIC"
cCleHF=""
cFicCNV="C:\Documents and Settings\fay\Bureau\Nouveau dossier\Mon_Projet\CNV1.TXT"


MonExp est un objet dynamique

MonExp = allouer un CDBF(cFicHF,cCleHF,cFichierDBF,cCheminDBF,"","",cFicCNV)
MonExp:import_dbf()
SI MonExp <> Null ALORS libérer MonExp


parmi les message d'errur
Erreur rocédure Fen_jauge.progression inconnue.

Erreur à la ligne 69 du traitement Méthode Import_dbf.
Vous avez appelé la fonction HDécritFichier.
Impossible de décrire le fichier <C:\Documents and Settings\fay\Bureau\Nouveau dossier\Mon_Projet\Exe\FACTUR.FIC>. Aucune rubrique n'est définie.


svp comment faire pour surmonter ces erreurs je travail sur windev9 et merci