USE tablesql EXCLUSIVE ZAP>I am processing 105 tables in a loop to create pipe separated text files to bulk insert to SQL
> >USE tablesql IN 0 EXCLUSIVE >SELECT tablesql >DELETE ALL >PACK >PACK memo > >lcexppath = 'c:\users\public\sql\' > >lcpath=ADDBS(THIS.oparentbizobj.getfield("cpath_to_vfp"))+"convert" >SET DEFAULT TO (lcpath) > >lcsql = "SELECT " > >lcdbc="inmatetrustfund.dbc" > >* ITERATE TABLES > >OPEN DATABASE (lcdbc) EXCLUSIVE > >ntables= ADBOBJECTS(latables,"TABLE") > >FOR i=1 TO ALEN(latables,1) > > lcdbf=latables(i) > lcalias=JUSTSTEM(lcdbf) > > SELECT tablesql > APPEND BLANK > REPLACE tablename WITH lcalias > > WAIT WINDOW lcalias NOWAIT > > IF UPPER(lcalias) <> "SYSSETUP" > USE (lcdbf) IN 0 EXCLU > > SELECT (lcalias) > > =AFIELDS(laflds) > lnflds = ALEN(laflds,1) > mcnt = 1 > >* SCAN FIELDS > > FOR N=1 TO lnflds > > lcfld=ALLTRIM(laflds(N,1)) > lctype=laflds(N,2) > lnsize=laflds(N,3) > llnct=laflds(N,6) > > WAIT WINDOW lcalias + SPACE(10)+lcfld NOWAIT > > SELECT (lcalias) > > DO CASE > > CASE INLIST(lctype,"D","T") > > lcsql = lcsql + " NVL(TTOC("+lcfld+",3),[1800-01-01])" + IIF(N < lnflds,',','')+lf > > CASE (lctype="C" ) > > lcsql = lcsql + " "+lcfld+ IIF(N < lnflds,',','')+ lf > > CASE INLIST(lctype,'I','N','Y') > > lcsql = lcsql + " "+lcfld+IIF(N < lnflds,',','')+lf > > CASE (lctype = "L") > > lcsql = lcsql + " IIF("+lcfld+"=.t.,1,0) "+IIF(N < lnflds,',','')+lf > > CASE (lctype = "M") > > lcsql = lcsql + " IIF(LEN(ALLTRIM("+lcfld+")) < 220, STRTRAN("+lcfld+",CHR(13)+CHR(10),'@@'),'MCOL+"+ALLTRIM(STR(mcnt))+"') "+ IIF(N < lnflds,',','')+lf > > mcnt = mcnt+1 > > ENDCASE > > ENDFOR && field scan > > lcsql = lcsql + " FROM "+ lcalias + " INTO CURSOR C_"+lcalias > > &lcsql > > lcname = "C_"+lcalias > > SELECT (lcname) > > lcexpstr = [ COPY TO ']+lcexppath+lcname+[' DELIMITED WITH "" WITH CHARACTER '|' ] > > &lcexpstr > > SELECT tablesql > LOCATE FOR ALLTRIM(tablename) = lcalias > REPLACE mSQL WITH lcsql > > lcsql = "SELECT " +lf > > ENDIF > >ENDFOR && tablescan > >CLOSE DATABASE && inmatetrustfund > >********************************************************************************************************************** > >SET DEFAULT TO (lcdefa) > >RETURN > >