以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问：下列代码导出数据为什么数据库中的表为空？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25707)
--  作者：lyfxybc
--  发布时间：2012/11/15 9:50:00
--  请问：下列代码导出数据为什么数据库中的表为空？

请问：下列代码导出数据为什么数据库中的表为空，无记录，只是表结构？

 

Dim ex As New Exporter
ex.SourceTableName = "坯布信息" \'指定导出表
ex.filepath = "C:\\毛织生产管理系统\\Reports\\坯布.mdb" \'指定目标文件
ex.Filter = "日期 = #" & Date.Today & "#" 
If FileSys.FileExists(ex.FilePath) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
ex.Export()

 

 其中：ex.Filter = "日期 = #" & Date.Today & "#"  ，时间为2012-11-10形式或 设置成2012-11-10 00:00:00的结构都不行

 

 

 

而下列代码就能导出数据，这是为什么？

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "坯布信息" \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Export() \'开始导出
End If

[此贴子已经被作者于2012-11-15 10:02:33编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/11/15 10:08:00
--  

说明条件不符，也就是没有今天的数据。

另外看看“坯布.mdb”这个文件是不是设置成只读了，或者设置了密码。
--  作者：lyfxybc
--  发布时间：2012/11/15 10:24:00
--  
坯布.mdb”这个文件是现导出生成的文件。原先不存在这个文件。
--  作者：lin_hailun
--  发布时间：2012/11/15 10:29:00
--  
 我测试可以，日期可以。应该是你的数据，或者你的筛选条件弄错了。

 是否你的日期是字符类型？
--  作者：lyfxybc
--  发布时间：2012/11/15 10:40:00
--  

问题出在列属性设置成date就可以，即使出现00:00:00也能导出，设置成DateLongTime就不行，就倒不出，00:00:00变成具体时间了.

 

列属性设置把date改成DateLongTime后，如何写代码？

[此贴子已经被作者于2012-11-15 10:44:30编辑过]
--  作者：lin_hailun
--  发布时间：2012/11/15 10:49:00
--  
 正常，那就是你设置的条件的问题了。如果你要导出今天的数据，可以这样写条件。

 ex.Filter = "日期 >= #" & date.Today & "# And 日期 < #" & date.Today.AddDays(1) & "#"
--  作者：lyfxybc
--  发布时间：2012/11/15 12:28:00
--  

谢谢，用您写的代码就可以了。再次谢谢

 

ex.Filter = "日期 = #" & Date.Today & "#" 

换成

ex.Filter = "日期 >= #" & date.Today & "# And 日期 < #" & date.Today.AddDays(1) & "#"