vb导出数据库

Imports System.Data.SqlClient
Imports System.IO

Module Module1
    Sub Main()
        Dim connectionString As String = "YourConnectionStringHere"
        Dim query As String = "SELECT * FROM YourTable"
        
        Using connection As New SqlConnection(connectionString)
            connection.Open()
            
            Using command As New SqlCommand(query, connection)
                Using reader As SqlDataReader = command.ExecuteReader()
                    Dim filePath As String = "C:\path\to\your\exported_file.csv"
                    
                    Using fileStream As New FileStream(filePath, FileMode.Create, FileAccess.Write)
                        Using streamWriter As New StreamWriter(fileStream)
                            Dim columnNames As String() = GetColumnNames(reader)
                            
                            ' Write column names to CSV file
                            streamWriter.WriteLine(String.Join(",", columnNames))
                            
                            ' Write data rows to CSV file
                            While reader.Read()
                                Dim row As String() = New String(reader.FieldCount - 1) {}
                                For i As Integer = 0 To reader.FieldCount - 1
                                    row(i) = reader.GetValue(i).ToString().Replace(",", ";")
                                Next
                                streamWriter.WriteLine(String.Join(",", row))
                            End While
                        End Using
                    End Using
                End Using
            End Using
        End Using
    End Sub
    
    Private Function GetColumnNames(reader As SqlDataReader) As String()
        Dim columnNames As New List(Of String)()
        For i As Integer = 0 To reader.FieldCount - 1
            columnNames.Add(reader.GetName(i))
        Next
        Return columnNames.ToArray()
    End Function
End Module