主题：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

 看完这一章

 

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

 

具体附件如下，库存报表窗口的导出按钮单击事件！密码是1234

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

 好好看2楼的帮助，看副本表是怎么引用的。

 这样用，Tables("窗口名字_Table控件名字")

自己改一下。

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮  
    Tables("窗口名_Table名").SaveExcel(dlg.FileName,"库存报表")
End If

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