0

我想从访问数据库中生成前 5 名或前 10 名（降序）汽车匹配的列表。目前，这为我提供了一个最佳匹配。我正在使用分析层次过程 (AHP) 模型。我的输出由基于用户偏好（来自 UserForm）的标准和子标准矩阵的一系列计算权重确定。我提供了一张专辑来展示我的程序的概述。如果我需要提供更多信息，请告诉我。

http://imgur.com/a/dB16i

StrSQL = "Select * from carInfo where " & Worksheets("AHP Code").Range("Q3")
    & " = '" & Worksheets("AHP Code").Range("S3") & "'"

strConnect = "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & ThisWorkbook.Path
    & "/CarInfo.accdb;"
Dim rs As New Recordset

rs.Open StrSQL, strConnect, adOpenStatic

Do Until rs.EOF
    Worksheets("final car").Range("C2") = rs("Make")
    Worksheets("final car").Range("C4") = rs("Model")
    Worksheets("final car").Range("C6") = rs("Year")
    Worksheets("final car").Range("C8") = rs("Price")
    Worksheets("final car").Range("C10") = rs("Age")
    Worksheets("final car").Range("C12") = rs("Mileage")
    Worksheets("final car").Range("C14") = rs("MPG Highway")
    Worksheets("final car").Range("C16") = rs("ColorExterior")
    Worksheets("final car").Range("C18") = rs("NumberofSeats")
    Worksheets("final car").Range("C20") = rs("Gas/Hybrid/Electric")
    Worksheets("final car").Range("C22") = rs("DriveType")
    Worksheets("final car").Range("C24") = rs("Type")
    rs.MoveNext
Loop
rs.Close

ActiveWorkbook.Worksheets("final car").Activate
Unload Me
4

0 回答 0