vb.net reader.read() бесконечный цикл

Question

Использование Хотя reader.read() будет бесконечный цикл

Попытка получить его из бесконечного цикла

Вот полный код

Dim ConnectionString As String 
    ConnectionString = "integrated security=SSPI;data source=SMG-BPCI-DB01;" & 
    "persist security info=False;initial catalog=MOSAIC" 

    Dim con As New SqlConnection(ConnectionString) 
    Try 
     con.Open() 
    Catch ex As SqlException 
     Console.WriteLine("Error: " & ex.ToString()) 
    End Try 
    Dim sql As String = " Select Name, [Description], Type from Tbl; " 

Dim cmd As New SqlCommand(sql, con) 
    Dim sw As StreamWriter = New StreamWriter("C:\Export.csv") 
    Dim reader As SqlDataReader = cmd.ExecuteReader() 

Dim sep As String = "|" 
    Dim builder As New System.Text.StringBuilder 

While reader.Read() 
     'Get data row by row 
     For i = 0 To reader.FieldCount - 1 
      builder.Append(sep).Append(reader(i).ToString) 
     Next 
     sw.WriteLine(builder.ToString()) 
    End While 
    sw.Close() 
    reader.Close() 

Любые мысли!

Answer 1

Ниже приведено описание проблемы.

builder,clear()