[已解决]如何用Access SQL标注最小值？？？

hwc2ycy

danysy 发表于 2013-10-23 21:47
谢谢你，hwc2ycy老师

分批次时，你可以先测试一条需要多少时间。

danysy

hwc2ycy 发表于 2013-10-23 22:41
分批次时，你可以先测试一条需要多少时间。

hwc2ycy老师，
分批次处理，我还真的不知代码怎么写了？

hwc2ycy

你把执行的数据库发上来，要有一万行以上的，我测试下。

danysy

hwc2ycy 发表于 2013-10-25 08:52
你把执行的数据库发上来，要有一万行以上的，我测试下。

hwc2ycy老师，谢谢你了，因为我是与其他过程连在一起的（有导入过程等），如果发上来的话要解释好久了。我现在找到了另一方法（还是用你的代码）只是在导入时依工作表的单元格内容来update: 导入的数据不多，但数据库中还是有一万多条，用循环来update，这样速度会提高很多，还是用你的方法来解决，谢谢你

danysy

hwc2ycy老师，
我的代码如下：

1. Dim i
   
2. Dim ws As Worksheet
   
3. Set ws = ThisWorkbook.Worksheets("导入价格")
   
4. 
   
5. Dim Cnn As New ADODB.Connection
   
6. Dim SQL As String
   
7. 
   
8. Cnn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\HRdatabase.accdb" & ";jet oledb:database password=" & "123456789$HR0*"
   
9. 
   
10. i = 2
    
11. Do While Not IsEmpty(ws.Cells(i, 1))
    
12. 
    
13.      SQL = "update ³§É̼۸ñ set ×îµÍ¼Û¸ñ='min' where ×îм۸ñ='new' and ÎïÁϱàºÅ+'#'+cstr(pricermb) in (select ÎïÁϱàºÅ+'#'+cstr(min(pricermb)) from ³§É̼۸ñ where ÎïÁϱàºÅ='" & ws.Cells(i, 1) & "' and ×îм۸ñ='new' group by ÎïÁϱàºÅ)"
    
14. 
    
15.     Cnn.Execute SQL
    
16.     i = i + 1
    
17. Loop
    
18.         
    
19.     Cnn.Close
    
20.     Set Cnn = Nothing
    
21.     Set ws = Nothing
    

复制代码