如何在选择查询中创建新列

Posted 2023-03-11

【中文标题】如何在选择查询中创建新列

【英文标题】：How to create a new column in a select query

【发布时间】：2011-04-15 17:51:28

【问题描述】：

在 MS Access 中，我想在选择查询的返回结果中插入一个新列。新列的每一行都具有相同的值。例如，我的选择返回列 A、B，我希望 C 成为选择查询创建的新列：

A   B   C
----------
a1  b1  c
a2  b2  c
a3  b3  c

【参考方案1】：

select A, B, 'c' as C
from MyTable

【参考方案2】：

这取决于您想对该列做什么，例如这是一个将新列附加到可以在客户端更新的记录集的示例：

Sub MSDataShape_AddNewCol()

  Dim rs As ADODB.Recordset
  Set rs = CreateObject("ADODB.Recordset")
  With rs
    .ActiveConnection = _
    "Provider=MSDataShape;" & _
    "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Tempo\New_Jet_DB.mdb"
    .Source = _
    "SHAPE " & _
    " SELECT ExistingField" & _
    " FROM ExistingTable" & _
    " ORDER BY ExistingField" & _
    " APPEND NEW adNumeric(5, 4) AS NewField"

    .LockType = adLockBatchOptimistic

    .Open

    Dim i As Long
    For i = 0 To .RecordCount - 1
      .Fields("NewField").Value = Round(.Fields("ExistingField").Value, 4)
      .MoveNext
    Next

    rs.Save "C:\rs.xml", adPersistXML

  End With
End Sub

【参考方案3】：

SELECT field1, 
       field2,
       'example' AS newfield
FROM TABLE1

这将在输出中添加一个名为“newfield”的列，其值将始终为“example”。