写一个文本文件

Question

我正在使用VB.NET和SQL Server 2005,我想从数据库中编写一个文本文件.

打开文本文件,从数据库中读取数据,然后写入文本文件.

码.

cmd = New SqlCommand("SELECT ID, Name, Dept from table", con)
dr = cmd.ExecuteReader

While dr.Read()

    Dim data As String
    data = File.ReadAllText(dr.Item("PersonID"))
    File.WriteAllText("D:\test.txt", data)
End While

上面的代码显示错误,如何编写文本文件

VB.NET代码帮助

Answer 1

在您的代码中,您实际上并没有从数据库中读取数据.试试这个:

Using writer = New StreamWriter("d:\test.txt")
    While dr.Read()
        Dim id = dr.GetInt32(0)
        Dim name = dr.GetString(1)
        Dim dept = dr.GetString(2)

        writer.WriteLine(String.Format("{0} {1} {2}", id, name, dept))
    End While
End Using