以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教如何让狐表自动将日志表合并后供狐表调用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34322)
--  作者：3547830
--  发布时间：2013/6/5 12:39:00
--  请教如何让狐表自动将日志表合并后供狐表调用

请教一个问题，

 

我的SQL数据库中，每天都会生成 A20130605，A20130605。。。这样的日志表，如果一个一个的打开，又相当的麻烦，

有时候要把一个月的日志全部汇总在一个表中进行统计与分析，

在SQL中，

我是用

SELECT * FROM 日志1

union all

SELECT * FROM 日志2

union all

SELECT * FROM 日志3

.

.

.

 

这样的办法来把日志数据汇总的，我不想每次都手工去合并这些日志表

 

想请问一下，在狐表中可不可以做个自动统计，自动将每天的数据合并在一个数据表中，然后供狐表调用。。

 
--  作者：don
--  发布时间：2013/6/5 13:02:00
--  
如日誌文件都在同一文件夾,遍歷文件夾合成即可.
--  作者：3547830
--  发布时间：2013/6/5 17:05:00
--  
数据都是放在SQL的数据库的表中的。每天会生成一个新的日志表，以当天日期为表名称，类似于LOG20130605这样的，而不是放在文件夹中。
--  作者：don
--  发布时间：2013/6/5 17:07:00
--  

列出外部数据源nwnd中的所有表名：

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
Output.Show(nm)
Next
--  作者：3547830
--  发布时间：2013/6/18 9:51:00
--  
请问一下，列出这个表名后，再怎么操作呢？
--  作者：3547830
--  发布时间：2013/6/18 9:53:00
--  
以下是引用don在2013-6-5 17:07:00的发言：

列出外部数据源nwnd中的所有表名：

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
Output.Show(nm)
Next

这个表名列出来之后，怎么样调用呢？

我要做的操作是 select*from 表名

 

但你这个显示出来的表名,怎么跟SQL语句再联用呢？
--  作者：Bin
--  发布时间：2013/6/18 9:54:00
--  
列出表名后你不就可以 循环拼接

SELECT * FROM 日志1

union all

SELECT * FROM 日志2

union all

SELECT * FROM 日志3


这段SQL了吗?
--  作者：3547830
--  发布时间：2013/6/18 9:58:00
--  
以下是引用Bin在2013-6-18 9:54:00的发言：
列出表名后你不就可以 循环拼接

SELECT * FROM 日志1

union all

SELECT * FROM 日志2

union all

SELECT * FROM 日志3


这段SQL了吗?

 

按楼上那位朋友的办法

 

列出外部数据源nwnd中的所有表名：

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
Output.Show(nm)
Next

 

只是显示出了表名，

 

但是，怎么在下面的SQL语句中，把表名一个一个的套上去呢？

 
--  作者：Bin
--  发布时间：2013/6/18 10:08:00
--  
拼接字符串都不会,你应该再去看一遍帮助.

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
dim sql as string
For Each nm As String In lst
sql=sql & "SELECT * FROM  " & nm & union all
Next

messagebox.show(sql.substring(0,sql.length-10))
--  作者：3547830
--  发布时间：2013/6/18 10:22:00
--  
以下是引用Bin在2013-6-18 10:08:00的发言：
拼接字符串都不会,你应该再去看一遍帮助.

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
dim sql as string
For Each nm As String In lst
sql=sql & "SELECT * FROM  " & nm & union all
Next

messagebox.show(sql.substring(0,sql.length-10))

Bin 老师，我是初学，确实有些不太懂。

这个在帮助里面是查哪里有呀？