ACCESS 排名-求教

wy246072771

sta-wfl 发表于 2012-7-2 17:04
是这意思！但我的基础太差了，这个要怎么实现？

这是我以前做的，截取了一部分，思路是这样

Public Function xxxxx()


Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim accountnumber As New ADODB.Recordset



Set con = CurrentProject.AccessConnection
con.CursorLocation = adUseServer

Dim SQL As String
Dim db As DAO.Database
Dim RQ As Recordset
Dim tb As String

Set db = CurrentDb
tb = "ZG_Rank_Sel"

Set RQ = CurrentDb.OpenRecordset(tb)
RQ.MoveFirst
Do Until RQ.EOF
    zg = RQ("zg_code")
    rank = RQ("New_rank")
    zgname = RQ("zg_name")
    br = RQ("brand_code")
    wk = RQ("weekno")
    zg_c_name = RQ("zg_name_c")
    br_e_name = RQ("brand_e_name")
   
   

    SQL1 = "delete from xxxxx"
    con.Execute (SQL1)
   
    SQL01 = "insert into xxxxx select top 50 * from S2 where brand=" & "'" & br & "'" & "  and zg_code=" & "'" & zg & "'" & " and New_rank=" & "'" & rank & "' order by S2.C_ps desc;"
    con.Execute (SQL01)