VB.NET 如何从 SQL 查询中获取文本结果

Question

有了这张表：

CREATE TABLE #TEMP(
ID INT,
NAME VARCHAR(30)
)
INSERT INTO #TEMP VALUES(1,'a')
INSERT INTO #TEMP VALUES(2,'b')
INSERT INTO #TEMP VALUES(3,'c')
INSERT INTO #TEMP VALUES(4,'d')
INSERT INTO #TEMP VALUES(5,'e')

还有这个查询：

print '-----------------------'
select * from #TEMP
print '******************************************'

我需要得到如下文本的结果：

-----------------------
ID          NAME
----------- ------------------------------
1           a
2           b
3           c
4           d
5           e

******************************************

当我选择“文本结果”或“文件结果”时，我可以使用 SQL Server Management Studio 获取它。 我怎样才能通过 VB.Net 得到这个结果？

las 查询只是一个示例。这是我真正的需要：

......

我在 MS Server 2000 上。 感谢您的帮助！

Answer 1

您可以使用ADO.NET 和StreamWriter：

Using stream = New StreamWriter(path)
    stream.WriteLine("----------------")
    stream.WriteLine("ID          NAME")
    stream.WriteLine("----------------")
    Using con = New SqlConnection(YourConnectionString)
        Using cmd = New SqlCommand("select * from #TEMP", con)
            Using reader = cmd.ExecuteReader()
                While reader.Read()
                    stream.WriteLine(String.Format("{0} {1}", reader.GetString(0), reader.GetString(1)))
                End While
            End Using
        End Using
    End Using
    stream.WriteLine("******************************************")
End Using

How to: Write Text to a File

请注意，Using 语句可确保即使在发生异常时也会释放对象。