sqlexec(vconn,mysql)  **这个语句第二次循环是没有执行到位，仍然用上一次的数。

整个思路是先连接SQL,然后通过vfp调用.sql文件来执行查询（可以很多个查询）并保存至本地。

  public vodbc,vuser,vpwd,vconn
    vodbc='a'       &&连接SQL SERVER数据库ODBC数据源名称
    vuser='sa'                     &&访问SQL SERVER数据库的登录用户名，sa为系统用户
    vpwd='1234'          &&用户登录密码，为sa系统用户设置的密码
    vconn=SQLCONNECT(vodbc, vuser,vpwd)
    if vconn>0
    messagebox('连接成功！',64,'ODBC数据源')
    else
    messagebox('连接失败！',64,'ODBC数据源')
    endif


CLOSE TABLES ALL 
USE file 
go top 
FOR x =1 TO reccount()
    IF ALLTRIM(扩展名)='SQL' THEN 
    PRG =LOWER(f)
    
    mysql =Filetostr('d:\' + ALLTRIM(prg) + '.sql')
    ?prg
    sqlexec(vconn,mysql)  **这个语句第二次循环是没有执行到位，仍然用上一次的数。
    COPY TO 'd:\' + ALLTRIM(prg)+''
    ENDIF
skip
ENDFOR

[此贴子已经被作者于2017-3-31 11:11编辑过]

go top
SCAN
     IF ALLTRIM(扩展名)='SQL'
        PRG =LOWER(f)
        mysql =Filetostr('d:\' + ALLTRIM(prg) + '.sql')
        ?mysql && 看看语句变化了没
        if sqlexec(vconn,mysql) >0  &&执行成功了才复制
           brow            
           COPY TO 'd:\' + ALLTRIM(prg)+''
        endif
     ENDIF
 ENDSCAN

收到的鲜花

• hyz00001 于 2017-03-31 15:10 送鲜花  5朵   附言：好文章

感谢您的答复，但我的目的是希望让这个语句能成功执行。我自己添加了一个循环，语句却一直未执行。

CLOSE TABLES ALL 
USE file 
go top 
SCAN
     IF ALLTRIM(扩展名)='SQL'
        PRG =LOWER(f)
        mysql =Filetostr('d:\' + ALLTRIM(prg) + '.sql')
        ?mysql && 看看语句变化了没
    FOR x =1 TO 5000    ***我在这里循环5000次都未能执行该查询。
        n = sqlexec(vconn,mysql)
        IF n>0 THEN 
           brow            
           COPY TO 'd:\' + ALLTRIM(prg)+''
            exit for         
        ENDIF
    NEXT x  
     ENDIF

 ENDSCAN

以下是循环过程中执行的第一段sql代码，也是目前唯一一段sql查询。

select top 500
cast(fsubsystem as varchar(8)) fsubsystem,
cast(ftableid as varchar(8)) ftableid,
cast(ftablename as varchar(8)) ftablename,
cast(fdescription as varchar(8)) name
from t_tabledescription

[此贴子已经被作者于2017-3-31 14:20编辑过]

是我自己的sql代码错误，找到方法了，继续测试。

所以要判断，
if sqlexec(vconn,mysql) >0  &&执行成功了才复制

有创新精神，加油！