vb做数据库软件

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=your_server_address;Database=your_database_name;User Id=your_username;Password=your_password;"
        Dim connection As New SqlConnection(connectionString)
        
        Try
            connection.Open()
            Console.WriteLine("数据库连接成功！")
            
            Dim query As String = "SELECT * FROM your_table_name"
            Dim command As New SqlCommand(query, connection)
            Dim reader As SqlDataReader = command.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine(reader("column_name"))
            End While
            
            reader.Close()
        Catch ex As Exception
            Console.WriteLine("数据库连接失败：" & ex.Message)
        Finally
            connection.Close()
        End Try
        
        Console.ReadLine()
    End Sub
End Module