SQL查询如何如何做到起返回标题

titi012

我想在SQL查询中，连标题和查询结果一起返回，该如何修改SQL语句，可以做到呢？
附件不好上，连接的Access文档，只能把代码附上，请大家指教。

1. Sub test()
   
2.     Dim Conn As Object, Rst As Object
   
3.     Dim Sql as String
   
4.     Set Conn = CreateObject("adodb.connection")
   
5.     Set Rst = CreateObject("ADODB.recordset")
   
6.     Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0"
   
7.     Conn.Open "data source=" & ThisWorkbook.Path & "\data.accdb"
   
8.     Sql = "Select * From 用户表 Where 姓名='" & UserName & "'"
   
9.     Set Rst = Conn.Execute(Sql)
   
10.     RstArr = Rst.GetRows
    
11.     Conn.Close
    
12.     Set Rst = Nothing
    
13.     Set Conn = Nothing
    
14. End Sub

复制代码

dy83797465268

SELECT 'Column1' AS Column1, 'Column2' AS Column2
UNION ALL
SELECT Column1, Column2
FROM Table1;
变相自定义表头

limonet

    For j = 0 To Rst.Fields.Count - 1
        Cells(1, j + 1) = Rst.Fields(j).Name
    Next j

hcunicom

dim  字段标题()
for n=1 to rst.fields.count
     redim preserve 字段标题(1 to n)
     字段标题(n)=rst.fields(n-1).name
next n

hcunicom

dy83797465268 发表于 2024-8-13 15:21
SELECT 'Column1' AS Column1, 'Column2' AS Column2
UNION ALL
SELECT Column1, Column2

这个感觉有点问题 如果column1或者column2返回的数据类型是数值型感觉通不过