Имяфайла2="FF_02020.DBF"; //ADO_DBF = СоздатьОбъект("ADODB.Connection"); //ADO_DBF.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB="+ИмяКаталога+ИмяФайла+";Exclusive=No; NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO;"; //ADO_DBF.Open(); ТексЗапрос_FF_02020= "SELECT "+ "STR(a.OPDNR,12,0) as OPDNR1," + "STR(a.KORTPER,12,2) as KORTPER1," + "STR(a.KORTING,12,2) as KORTING1," + "STR(a.AANTAL,12,2) as AANTAL1," + "STR(a.TARIEF,12,2) as TARIEF1," + "STR(a.BEDRAGR,12,2) as BEDRAGR1," + "STR(a.BEDRAG,12,2) as BEDRAG1," + "STR(a.MECAN1,12,0) as MECAN11," + "STR(a.MECAN2,12,0) as MECAN21," + "STR(a.MECAN3,12,0) as MECAN31," + "STR(a.GEREK1,12,2) as GEREK11," + "STR(a.GEREK2,12,2) as GEREK21," + "STR(a.GEREK3,12,2) as GEREK31," + "STR(a.STAN,12,2) as STAN1," + "STR(a.BTWC,12,0) as BTWC1," + "STR(a.BEDRAGRSC,12,2) as BEDRAGRSC1," + "a.*" + "FROM autoplus.dbc!"+СокрЛП(Лев(Имяфайла2,СтрДлина(Имяфайла2)-4))+" a ";
|