以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SQL Query查询结果导出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51261)
--  作者：阆子天涯
--  发布时间：2014/5/22 21:53:00
--  SQL Query查询结果导出

各位，如何将SQL Query查询结果导出，具体语法如何写？

一般Tables我知道如下，但SQL Query如何写，或者是否可以将下面的代码改写下也可以，盼指教，谢谢！

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮  
    Dim ex As New Exporter
    ex.SourceTableName = "库存报表" \'指定导出表
    ex.Format = "Excel"
    ex.Filter = Tables("库存报表").Filter
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Export() \'开始导出
    Tables("库存报表").SaveExcel(dlg.FileName,"库存报表")
End If
--  作者：有点甜
--  发布时间：2014/5/22 21:55:00
--  

 看完这一章

 

http://www.foxtable.com/help/topics/1906.htm

 
--  作者：阆子天涯
--  发布时间：2014/5/22 21:58:00
--  
具体附件如下，库存报表窗口的导出按钮单击事件！密码是1234
--  作者：阆子天涯
--  发布时间：2014/5/22 21:59:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
--  作者：有点甜
--  发布时间：2014/5/22 22:00:00
--  
 好好看2楼的帮助，看副本表是怎么引用的。
--  作者：有点甜
--  发布时间：2014/5/22 22:01:00
--  
 这样用，Tables("窗口名字_Table控件名字")
--  作者：有点甜
--  发布时间：2014/5/22 22:03:00
--  

自己改一下。

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮  
    Tables("窗口名_Table名").SaveExcel(dlg.FileName,"库存报表")
End If
--  作者：阆子天涯
--  发布时间：2014/5/22 22:23:00
--  

真没想到可以这样用，搞定了，谢谢！