1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Access->Connect();
Access->set_Visible(true);
Access->OpenCurrentDatabase(StringToOleStr("C:\\calculpaie\\paie.mdb"),false);
// set tagvariant to char*
tagVARIANT tv ;
tv.vt = VT_I1;
tv.pcVal ="Declar_cimr Spécification d'exportation"; //forme u fichier d'exportation
tagVARIANT twv ;
twv.vt = VT_I1;
twv.pcVal ="declar_cimr"; // table à exporter
tagVARIANT tzv ;
tzv.vt = VT_I1;
tzv.pcVal ="C:\\declar_cimr.txt"; //fichier text resultat
Access->DoCmd->TransferText(acExportFixed,tv,twv,tzv, EmptyParam); //???? |
Partager