用vb开发数据库软件下载

Dim connectionString As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"
Dim connection As New SqlConnection(connectionString)
Try
    connection.Open()
    Console.WriteLine("数据库连接成功")
Catch ex As Exception
    Console.WriteLine("数据库连接失败: " & ex.Message)
Finally
    connection.Close()
End Try

Dim query As String = "SELECT * FROM Customers WHERE CustomerID = @CustomerID"
Dim command As New SqlCommand(query, connection)
command.Parameters.AddWithValue("@CustomerID", "ALFKI")

Dim reader As SqlDataReader = command.ExecuteReader()
If reader.HasRows Then
    While reader.Read()
        Console.WriteLine(reader("CompanyName"))
    End While
Else
    Console.WriteLine("没有找到数据")
End If
reader.Close()