vb数据库操作源码

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server_name;Database=your_database_name;User Id=your_username;Password=your_password;"
        Dim query As String = "SELECT * FROM your_table_name"

        Using connection As New SqlConnection(connectionString)
            Dim command As New SqlCommand(query, connection)
            Try
                connection.Open()
                Dim reader As SqlDataReader = command.ExecuteReader()

                While reader.Read()
                    Console.WriteLine(reader("your_column_name"))
                End While

                reader.Close()
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            Finally
                connection.Close()
            End Try
        End Using
    End Sub
End Module