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

魂断蓝桥

ym21ht 发表于 2020-2-25 17:27
大神，现在有个问题，一个EXCEL文件里面有多个工作表，工作表格式相同，我想把不同表的同一位置的内容提 ...

循环工作表，提取-粘贴。

ym21ht

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

大神 排序的时候 出现错误 这个怎么解决？

魂断蓝桥

ym21ht 发表于 2020-3-24 11:01
大神 排序的时候 出现错误这个怎么解决？

位数不一致的原因。

比如把 2020/3/24 8:38:00 修正为 2020/03/24 08:38:00
需要知道你得数据格式

ym21ht

魂断蓝桥 发表于 2020-3-24 13:12
位数不一致的原因。

比如把 2020/3/24 8:38:00 修正为 2020/03/24 08:38:00

我在EXCEL录入表格的时候设置格式了自定义  yyyy/m/d  hh/mm/ss  但是显示还是这样  是不是数据库里也要设置？

魂断蓝桥

ym21ht 发表于 2020-3-25 13:38
我在EXCEL录入表格的时候设置格式了自定义  yyyy/m/d  hh/mm/ss  但是显示还是这样  是不是数据库里也要 ...

什么数据库。

如果是SQLITE 录入的时候用FORMAT 都转换成 yyyy-mm-dd hh:mm:ss
或者查询的时候用FORMAT 转换。

ym21ht

魂断蓝桥 发表于 2020-3-25 13:40
什么数据库。

如果是SQLITE 录入的时候用FORMAT 都转换成 yyyy-mm-dd hh:mm:ss

access数据库文件的字段设置如下 那么 图表显示会变成 ，即使在显示的表格格式设置成yyyy/d/m hh:mm:ss  重新读取数据后 又恢复成只显示日期了   

ym21ht

查询的时候用FORMAT 转换。 麻烦问下 这个语句怎么写

ym21ht

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

ym21ht

魂断蓝桥 发表于 2020-3-25 13:40
什么数据库。

如果是SQLITE 录入的时候用FORMAT 都转换成 yyyy-mm-dd hh:mm:ss

我把代码贴出来了 麻烦你看下在哪里修改下

ym21ht

[f17:f23].NumberFormatLocal = "yyyy/m/d hh:mm:ss"  是这样修改吗