Question

access如何在查询设计中自动添加需要的字段，而不用人为手动添加。 请大神帮忙解决，谢谢

我有一个excel表以链接的形式连接到access数据库，在access数据库里我建了一个查询设计，其中有用到那个excel链接表。现在我想问当我在excel表中新增了几列，而这几列也需要出现在查询结果上，我应该如何操作使那个查询结果能够自动添加那几个新增的列名显示出来，而不需要我人为手动去查询设计器里添加那几个新增的字段。

Answer 1

在ACCESS查询里使用*号输出链接表的所有字段就可以了。

例如将下列SQL语句保存为一个叫“查询1”的查询

select * from 您的链接表名;

追问

主要是查询设计中原先添加的列名的名称要重新命名一下，不能用原来excel链接表的列名，所以就不好直接查询全部了

追答

那就得应用ACCESS VBA编写动态SQL语句了。

追问

那该怎么写呢，求大神指教

追答

这个方案实现起来相当复杂，下面的示例方案已经测试通过，希望您能看得明白，以便根据实际情况修改相关的代码。

首先创建一个窗体，窗体里添加一个命令按钮，编写下列命令按钮单击事件过程：

Private Sub Command0_Click()
Dim strSql As String
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
strSql = "drop procedure Query1"
CurrentProject.Connection.Execute strSql
strSql = "select * from t1 where false"
rs.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
strSql = "create procedure Query1 as select "
'后续代码已经超字符限制数了，请继续追问以便补上

追问

谢谢解答，请帮忙将剩余的代码附上，十分感谢

追答

'接续代码
For i = 0 To rs.Fields.Count - 1
    strSql = strSql & rs(i).Name
    '前5个字段使用自定的表别名，后面的字段使用源表字段
    Select Case i
        Case 0
            strSql = strSql & " as 字段别名1" '这里可更改为自己想要的别名
        Case 1
            strSql = strSql & " as 字段别名2"
        Case 2
            strSql = strSql & " as 字段别名3"
        Case 3
            strSql = strSql & " as 字段别名4"
        Case 4
            strSql = strSql & " as 字段别名5"
    End Select
    If i < (rs.Fields.Count - 1) Then
        strSql = strSql & ","
    End If
Next i
strSql = strSql & " from t1"
CurrentProject.Connection.Execute strSql '更新查询以便能显示新增加的字段
DoCmd.OpenQuery "Query1"  '打开新修改的查询，查看最新情况
End Sub

链接表发生修改后，若查询“Query1”已经打开，请先将它关闭（不关闭会报错），然后单击上述命令按钮即可更新原有的查询设计，显示最新的全部字段。