如何在 SQL Server 2008 中返回新行

Question

我正在运行以下查询 -

SELECT 'SELECT * 
FROM LIFE'

我希望预期输出为 -

SELECT *
FROM LIFE

但是，当我在新窗口中复制结果集时，它是

SELECT * FROM LIFE

根据下面的答案，当我使用以下

SELECT 'SELECT * ' + char(13) + char(10) + 'FROM LIFE'

输出仍然在一行中返回，空格很宽，如下所示 -

SELECT *   FROM LIFE

我不能在结果集中换行吗？抱歉，如果我错过了什么，但我没有很强的SQL技能。

Answer 1

您可以添加回车符 （ASCII 13） 和换行符 （ASCII 10），如下所示：

SELECT 'SELECT * ' + char(13) + char(10) + 'FROM LIFE'

Answer 2

我建议这是有效的，但是当您从结果集中复制回车时，SSMS 会替换回车符。

我只是针对SQL Server 2008 R2运行了下面的excel-vba代码，并将文本打印到Excel工作表中。要进行测试，请打开 excel 并将 test（） 例程粘贴到 VBA 编辑器 （alt + f11） 中的工作表模块中，然后插入一个新模块（命名为 dbMngr），然后将下面的 dbMngr 代码粘贴到该模块中。

编辑：您还需要在 dbMngr 模块的顶部包含一个连接字符串常量。

集成安全性：

Private Const S_CON As String = "Provider=SQLOLEDB;Data Source=MyServerName;Initial Catalog=MyDB;Integrated Security=SSPI"

SQL Server Auth：

Private Const S_CON As String = "Provider=SQLOLEDB;Data Source=MyServerName;Initial Catalog=MyDB;UID=MyUserName;PWD=MyPassword"

测试代码：

Sub test()
Dim sSQL As String
sSQL = "SELECT 'LINE A' + Char(10) + Char(13) + 'LINE B'"
Me.Range("A1").Value = sSQL

dbMngr.PasteToRange sSQL, Me.Range("A4")
End Sub

dbMngr 代码：

Public Function GetRS(sSQL As String) As ADODB.Recordset
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo errCatch:
With cn
    .ConnectionString = S_CON
    .CursorLocation = adUseClient
    .Mode = adModeRead
    .Open
End With
With rs
    .CursorLocation = adUseClient
    .CursorType = adOpenForwardOnly
    .ActiveConnection = cn
    .Open sSQL
End With
Set rs.ActiveConnection = Nothing
Set GetRS = rs
errCatch:
If Err.Number <> 0 Then
    MsgBox "Error in GetRS function"
    Debug.Print Err.Number & " " & Err.Description
    Stop
    Err.Clear
End If
If cn.State = adStateOpen Then
    cn.Close
End If
Set rs = Nothing
Set cn = Nothing
End Function
Public Sub PasteToRange(sSQL As String, rngDest As Range)
Dim rs As ADODB.Recordset, x As Integer, orng As Range
rngDest.CurrentRegion.Value = ""
Set rs = GetRS(sSQL)
For x = 0 To rs.Fields.Count - 1
    rngDest.Offset(0, x).Value = rs.Fields(x).Name
Next x
rngDest.Offset(1, 0).CopyFromRecordset rs
rngDest.CurrentRegion.Interior.Color = RGB(255, 255, 255)
rngDest.CurrentRegion.Font.Size = 8
rngDest.WrapText = False
If rs.State = adStateOpen Then
    rs.Close
End If
Set rs = Nothing
End Sub