以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  连接别的系统数据库  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172708)

--  作者:outcat
--  发布时间:2021/10/27 11:17:00
--  连接别的系统数据库
老师,我这现在有个需求,要连接地磅系统的数据库,实现一下要求,咱们这个能实现吗

1、连接地磅系统的数据库,这个我现在自己的电脑上已经连接上了
2、要实时的监控地磅系统,地磅系统里有个表,要实时发现这个表 毛重大于50,把这条数据记录导出,然后把地磅系统的该条记录删除

用狐表能做出来吗


--  作者:有点蓝
--  发布时间:2021/10/27 12:08:00
--  
既然都已经连接数据库了,定时查询一下数据库的数据进行处理即可
--  作者:outcat
--  发布时间:2021/10/27 15:38:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt




老师,请帮忙一下,我这现在每次导入把人家现有的数据库重新导入一遍,时间判断这段不会写了,这块怎么判断呀。

--  作者:有点蓝
--  发布时间:2021/10/27 16:05:00
--  
d1.CommandText = "select * from 进货单 "
改为下面即可
d1.CommandText = "select * from 进货单  WHERE 吨位 > 50 "


--  作者:outcat
--  发布时间:2021/10/27 16:26:00
--  
老师,这样是可以把超重的单子提取过来,然后删除了。之前客户是这么个需求,后来又想让在我这个系统里给他弄一份完整的数据,所以关于时间的判断还的麻烦老师给指点一下。
--  作者:有点蓝
--  发布时间:2021/10/27 16:35:00
--  
那需要每次执行都记录一个最后查询时间,可以把这个时间保存到一个表格里。

dim d as date = tables("某表").rows(0)("最后查询时间")
dim n as date = date.now
d1.CommandText = "select * from 进货单  WHERE 时间列 > #“& d & ”# and 时间列 <=#“& n & ”#"
dt = d1.ExecuteReader()
tables("某表").rows(0)("最后查询时间") = n
……其它处理

--  作者:outcat
--  发布时间:2021/10/28 14:52:00
--  
老师,这个过磅系统 里,日期和时间是两个字段,这个能把这连个列合并 然后和时间现在查询的时间比较吗,这个怎么弄
--  作者:有点蓝
--  发布时间:2021/10/28 15:03:00
--  
什么数据库?SqlServer?日期和时间两个字段是什么类型的列?数据是怎么样的?
--  作者:outcat
--  发布时间:2021/10/28 15:27:00
--  
access 数据库, 毛重日期、毛重时间   这两个字段都是日期/时间 类型

毛重日期  2021/10/25
毛重时间  8:01:30

我是在狐表了 添加一张表   最后一列  提取时间 ,计划管理里设置每1分钟取一次数据



--  作者:outcat
--  发布时间:2021/10/28 15:29:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:111.txt