自己编写的sql代码之前的方式是直接在“sql查询分析器”中查询并保存为csv格式，然后在VFP中切csv文档。

看到有一个VFP自带程序，能自动从SQL里面导出数据，看看能不能实现直接用vfp从sql导出数据。最好是可以一次性导出两张表的数据，并保存为对应的表名，谢谢。

可能实现该功能的vfp代码：

   nCon=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.250;Uid=cwnew;pwd=sv;database=AIS20050914072538")
   ndd=SQLEXEC(ncon,"SELECT * FROM T_ITEM",'自定义游标名')
   select * from 自定义游标名 into table po

sql代码：(这里显示两个不同表的获取。第一个表：po，第二个表item。)

Po    采购订单
    select  
    t1.FbillNo as 订单编号,
    t1.fentryid as 订单序号,
    CONVERT(varchar(100), t1.Fdate, 23),
    t1.FsupplyIDName as 供应商,
    t1.FFullNumber as 物料长代码,
    t1.FbaseUnitId as 单位,
    t1.FtaxRate as 税率,
    t1.FbaseQty as 数量,
    t1.famount/t1.fbaseqty as 单价,
    t1.FAmount as 金额,
    t1.fclose as 结案
    from vwICBill_26 t1
   
item    物料表
    select
    t1.FItemID as 物料内码,
    t1.fnumber 物料编码,
    replace(replace(t1.Fname,',',' '),' ','') 物料名称,
    replace(replace(t1.FModel,',',' '),' ','') 规格型号,
    t1.FERPCLSID as 物料属性内码,
    case when t1.FERPCLSID=1 then '外购' when t1.FERPCLSID=2 then '自制'  when t1.FERPCLSID=3 then '委外加工' else '未知' end as  物料属性 ,
    t1.FDefaultLoc as 默认仓库内码,
    t2.FName as 默认仓库,
    t1.F_106 as 是否为结构件内码,
    case when t1.F_106=1 then '是'  when  t1.F_106=0 then '否' else '未知' end as 是否为结构件,
    t3.fcreatedate 创建日期,
    t4.fnumber 存货科目,
    t4.fnumber 收入科目,
    t4.fnumber 成本科目,
    t1.fdeleted 禁用与否,
    t10.fname 物料类型,
    t11.flowestbomcode
    from t_icitem t1 left join t_stock t2 on t1.FDefaultLoc=t2.FItemID
    left join t_baseproperty t3 on t1.fitemid=t3.fitemid
    left join t_account t4 on t1.facctid =t4.faccountid--存货科目
    left join t_account t5 on t1.fsaleacctid=t5.faccountid--收入科目
    left join t_account t6 on t1.fcostacctid=t6.faccountid--成本科目
    left join t_submessage t10 on t1.F_123=t10.FinterID --物料类别
    left join t_lowestbomcode t11 on t1.fitemid =t11.fitemid
    where t3.ftypeid =3 and t1.fnumber<>' '

经过努力思考使用了下面这些代码，请帮忙参考谢谢。
下面代码的想法是通过一个prg的表格（三个字段：prg 备注型，主要用来存储获取资料的sql代码.    name：需要保存的文件名，        cfm：确定是否需要循环。）
来实现之前的要求。

这里的问题在于我已经知道了m.name就是我需要保存的文件名，而且x也是我从sql里面获取之后的临时表

需要报临时表X保存为m.name所规范好的名字。

用宏替换&m.name也还是不行。请帮忙看看，谢谢。

PUBLIC m.name,m.prg
    nCon=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.250;Uid=cwnew;pwd=sv;database=AIS20050914072538")
CLOSE TABLES
USE prg
SCAN FOR cfm ='y'
    m.prg=prg
    m.name=name
    ?m.name
    ?m.prg
    ndd=SQLEXEC(ncon, m.prg,'X')
ENDSCAN

    ?m.name
    ?m.prg
结果是什么？

尽量避免用保留字作变量名！

这两个是我自己检测用的，只是需要知道哪些已经编辑在案的sql代码已经运行。
？m.name 显示的是prg表中name字段，也就是需要保存的文件名。
？m.prg  显示的是prg表中prg字段，也就是需要执行的sql代码。




我换一个名字之后还是不行。

[ 本帖最后由 hyz00001 于 2014-6-30 09:03 编辑 ]

楼主在2楼的程序段应该没有问题。发生问题的地方，像是在 prg 字段中的 sql 语句本身。楼主可以先用几条简单的 sql语句，写在 prg 字段内试试，成功后再写入复杂语句，逐渐检测问题的所在。

prg是备注型字段，这个是经过在sql里面逐渐测试过的，没有问题，而且prg运行所产生的x临时表也没有问题，问题就在于不能将临时表按照我给它定义的名字name进行保存。
在select * from x into table m.name，这个过程中出现错误，直接保存的表名字就是“m.name”而不是m.name在该行所代表的po_a。

楼主:以下是我按照你的思路,所写的一段语句,达到了你的要求:
CREATE CURSOR prg (prg M(8,0),name C(10,0),cfm C(1,0))
INSERT INTO prg(prg,name,cfm) VALUES ("select * from authors","authors","y")
INSERT INTO prg(prg,name,cfm) VALUES ("select * from jobs","jobs","y")
CLEAR
nCon=SQLSTRINGCONNECT("driver=SQL Server;Server=.;Uid=sa;pwd=;database=pubs")
SELECT prg
SCAN FOR cfm ='y'
    m.prg=ALLTRIM(prg)
    m.name=ALLTRIM(name)
    ?m.name
    ?m.prg
    ndd=SQLEXEC(nCon,m.prg,m.name)
ENDSCAN
请你看看,你的做法不成功的最主要原因出在哪里

  我实在猜不出你为什么要这么做?除非特殊需要,一般程序是不能这么写的.再有如非特别需要.尽量不要使用全局变量!
搞不好出了错都找不到原因.

楼主在循环段中，没写出保存临时表名的语句，可能是宏代换弄得不合适吧？既然‘能够’生成临时表，表名本身是个字串，先把它赋给一个参数，保存参数应该是可以的吧。

你好 ，按照 你的 方法 问题迎刃而解，谢谢 。
现在 有 另外 一个 问题 在 获取之后 发现 有些事 备注型字段，显示的是 Memo，如果 让这些值显示为正常的内容 。谢谢 。
此问题我将另外 开 一个 百分英雄帖，请 帮忙过来看看，谢谢 。