根据三个已知条件，从数据库中查找对应的最后50条信息显示在下方

ym21ht

魂断蓝桥 发表于 2019-12-17 15:27
Option Explicit
Dim m As Boolean
Sub 开始()

还是提示这个

ym21ht

魂断蓝桥 发表于 2019-12-17 15:27
Option Explicit
Dim m As Boolean
Sub 开始()

NewTime = Now + TimeValue("00:00:03")
Application.OnTime NewTime, "开始"

把这两句代码删除 就不提示了  但是不能刷新了 只能提取一次

魂断蓝桥

ym21ht 发表于 2019-12-17 16:05
还是提示这个

我这里没有问题啊
生产命令单 - 查询.rar (26.5 KB, 下载次数: 13)

2019-12-17 16:21 上传

点击文件名下载附件

ym21ht

魂断蓝桥 发表于 2019-12-17 16:21
我这里没有问题啊

咦  确实是啊  搞不明白了   
筛选出来的数据 能不能自动根据时间这一列进行升序排列呢？现在是降序排列

魂断蓝桥

ym21ht 发表于 2019-12-17 17:20
咦  确实是啊  搞不明白了   
筛选出来的数据 能不能自动根据时间这一列进行升序排列呢？现在是降序排列 ...

Sub 开始()
Dim bt$, CNN, RS, SQL$, TJ$, i%, NewTime
bt = " [WRN#],班次,录入员,生产线,品种,取样时间,吸碘值,吸油值,[325#水洗],[200#水洗],[100#水洗],[35#水洗],[10#粒子],最大颗粒强度,平均颗粒强度,最小颗粒强度,水分,倾注密度,罐号,温度"
If m = True Then m = False: Exit Sub
For i = 2 To 4 Step 2
    TJ = TJ & Cells(1, i - 1) & "='" & Cells(1, i) & "' and "
Next
TJ = Left(TJ, Len(TJ) - 4)
NewTime = Now + TimeValue("00:00:03")
Set CNN = CreateObject("ADODB.Connection")
Set RS = CreateObject("adodb.Recordset")
CNN.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\数据库.accdb"
SQL = "select top " & [f1] & bt & " from 生产命令单 where " & TJ & " order by id desc"
SQL = "select * from (" & SQL & ") order by [WRN#]"
[a5:t999] = ""
Range("A5").CopyFromRecordset CNN.Execute(SQL)
[f5:f999].NumberFormatLocal = "hh:mm:ss"
Set RS = Nothing
Set CNN = Nothing
Application.OnTime NewTime, "开始"
End Sub

ym21ht

魂断蓝桥 发表于 2019-12-18 08:20
Sub 开始()
Dim bt$, CNN, RS, SQL$, TJ$, i%, NewTime
bt = " [WRN#],班次,录入员,生产线,品种,取样时 ...

完美，膜拜大神

ym21ht

魂断蓝桥 发表于 2019-12-18 08:20
Sub 开始()
Dim bt$, CNN, RS, SQL$, TJ$, i%, NewTime
bt = " [WRN#],班次,录入员,生产线,品种,取样时 ...

大神，为什么从数据库引用过来的是文本格式呢 能不能引用过来的是数字格式呢 后续还要参与计算

魂断蓝桥

ym21ht 发表于 2019-12-18 13:33
大神，为什么从数据库引用过来的是文本格式呢 能不能引用过来的是数字格式呢 后续还要参与计算

因为你在数据库中就是用的文本格式的，
自己在数据库中修改字段类型为 双精度。

ym21ht

魂断蓝桥 发表于 2019-12-18 13:48
因为你在数据库中就是用的文本格式的，
自己在数据库中修改字段类型为 双精度。

了解了解大神 我想多学习这个 能拜你为师吗

ym21ht

魂断蓝桥 发表于 2019-12-18 13:48
因为你在数据库中就是用的文本格式的，
自己在数据库中修改字段类型为 双精度。

大神，现在有个问题，一个EXCEL文件里面有多个工作表，工作表格式相同，我想把不同表的同一位置的内容提取出来放在一张表内 怎么操作