1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| IdFichier est un entier
Reslecture est une chaîne
requete est une chaîne
// Indication du chemin d'ouverture d'un fichier externe
SQLConnecte("MAILLING_CLIENTS","xx","xxxxx")
IdFichier = fOuvre("M:\EchangeWindev\MAILING\RECH\MAILLING_RECH_CA.txt",foLectureEcriture)
//IdFichier = fOuvre("C:\TESTDA\Clients_APO\MAILLING_RECH_CA.txt",foLectureEcriture)
SI IdFichier <> -1 ALORS
// Lecture d'une ligne dans ce fichier
Reslecture = fLitLigne(IdFichier)
TANTQUE Reslecture <> EOT
//Requête d'insertion dans al table de la base de données
requete="INSERT INTO MAILLING (MAIL_LIBRE1,MAIL_MAG_CODE,MAIL_CLIE_CODE,MAIL_CLIE_NOM,MAIL_CLIE_PRENOM,MAIL_CLIE_ADR1,MAIL_CLIE_ADR2,MAIL_CLIE_VILLE,MAIL_CLIE_CP,MAIL_CLIE_PAYS,MAIL_CLIE_PHONE,MAIL_CLIE_CA) VALUES "+...
"('"+ExtraitChaîne(Reslecture,1,TAB)+"', '"+ExtraitChaîne(Reslecture,2,TAB)+"', '"+ExtraitChaîne(Reslecture,3,TAB)+"', '"+ExtraitChaîne(Reslecture,4,TAB)+"', '"+ExtraitChaîne(Reslecture,5,TAB)+"', '"+ExtraitChaîne(Reslecture,6,TAB)+"', '"+ExtraitChaîne(Reslecture,7,TAB)+"', '"+ExtraitChaîne(Reslecture,8,TAB)+"', '"+ExtraitChaîne(Reslecture,9,TAB)+"', '"+ExtraitChaîne(Reslecture,10,TAB)+"', '"+ExtraitChaîne(Reslecture,11,TAB)+"', '"+ExtraitChaîne(Reslecture,12,TAB)+"') "
//exécution de la requête
SQLExec(requete,"REQ1")
//Connexion à la base de données
Reslecture = fLitLigne(IdFichier)
FIN
FIN |
Partager