主页 / dba / 问题 / 64027
Accepted
Looking_for_guidance
Asked: 2014-04-28 16:22:37 +0800 CST

VBA @ Access 替换大量列表中的值

  • 772

我有一个关于 VBA @ MS Access 的问题（这就是我实际上在这里的原因：P）。

所以，我有一个关于鞋子的庞大数据库（嗯，对我来说它很大，大约 23K+ ID）。它有 5 列：ID、商品编号、尺寸 (mm)、成对（有现货）和 EAC13 代码。它每天更新。每天我都会在 CSV 上获取更新（所有这些 ID 都重新）并创建新表，尽管我只需要更新库存可用性。但是，为了获得报告，我必须更改一列：尺寸。我必须得到 2 份报告，一份是我以毫米为单位的鞋码，另一份是欧洲尺码。例如：245毫米等于35。就这么简单。我有一个 VBA，我认为它可以帮助我替换所有这些值（是的，“大小”列上的所有 23k），就像这样

Public Sub Substitui()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Dim strSQL As String

Set db = CurrentDb()

strSQL = "SELECT * FROM BS_2704"

Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

rst.MoveFirst
Do Until rst.EOF
For Each fld In rst.Fields
If fld.Value = "150" Then
rst.Edit
fld.Value = "24"
rst.Update
End If

If fld.Value = "160" Then
rst.Edit
fld.Value = "25"
rst.Update
End If

(...)

If fld.Value = "325" Then
rst.Edit
fld.Value = "50"
rst.Update
End If


Next fld
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub

无论如何...这只会更改 150 个条目（或多或少）。百万美元的问题是，为了让这个 VBA 更改所有 23k 条目，我在这里是否缺少任何类型的行？

我是这个领域的n00b，所以我会很感激一些n00b therms作为开始。谢谢你的耐心。

ms-access vba

1 个回答

  1. Best Answer

    我想我可以猜到为什么您的 VBA 只更改大约 150 条记录而不是全部，但更重要的是，您需要知道您使用的特定方法——使用 VBA 更改所有字段——可能导致不正确表中的数据。而且，您可以使用 SQL 查询更轻松地完成您想要的事情……甚至是使用查询设计器制作的查询。但现在我将坚持使用纯 SQL。有三种可能性和对应的方法：

    1您只需将有限数量的不同尺寸从毫米更改为欧洲。在这种情况下，请使用该switch功能，例如：

    update BS_2704
set Sizes = switch(
  Sizes = 150, 24
, Sizes = 160, 25
, ...
, Sizes = 325, 50
, true, Sizes
)

    2您可以使用数学公式将您的毫米尺寸转换为您的欧洲尺寸，例如http://en.wikipedia.org/wiki/Shoe_size#Europe：

    update BS_2704
set Sizes = Sizes * 3 / 20

    3您不能使用数学公式，并且您有大量的转换映射，以至于将它们全部放在一个switch函数中是不方便的：在这种情况下，您创建一个新表，例如命名tblSizeMappings，具有 mm 大小和相应的欧洲尺寸：

    SizeMM SizeEuropean
   150           24
   160           25
   325           50

    然后，像上面一样进行更新查询，但使用该tblSizeMappings表来获取欧洲尺寸：

    update BS_2704
inner join tblSizeMappings
on BS_2704.Sizes = tblSizeMappings.SizeMM
set BS_2704.Sizes = tblSizeMappings.SizeEuropean
    • 1

相关问题