vb.net - 如何使用 VB.net 从 SQL Server 播放音乐

Question

我目前正在开发一个音乐播放器项目，但我正在尝试使其与 SQL Server 一起使用。

我已经使用查询将我的音乐上传到 SQL Server，但问题是检索它们。文件类型是 varbinary(MAX)。我尝试了另一种方法，我在文本文件中检索二进制文件，然后将文件扩展名转换为 .wav 并通过媒体播放器播放它，而本地文件是临时的。

Private Sub Online_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Try
        Using cn As SqlConnection = New SqlConnection("Server= DESKTOP-8KB6RLJ; Database= TESTdb; Integrated security = true ")
            cn.Open()
            Using cmd As SqlCommand = New SqlCommand()
                cmd.Connection = cn
                Dim qry As String
                qry = String.Format("SELECT FileStreamCol From MUSIC")
                cmd.CommandText = qry
                cmd.CommandTimeout = 0
                Dim oFileStream As System.IO.FileStream
                oFileStream = New System.IO.FileStream("C:\3N3RGY\bytes.mp3", System.IO.FileMode.OpenOrCreate)
                Using myReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                    While (myReader.Read())
                        Dim data As Byte() = myReader(0)
                        oFileStream.Write(data, 0, data.Length)
                    End While
                    oFileStream.Close()
                    Dim myFiles As String()

                    myFiles = IO.Directory.GetFiles("C:\3N3RGY", "*.txt")

                    Dim newFilePath As String

                    For Each filepath As String In myFiles

                        newFilePath = filepath.Replace(".txt", ".mp3")

                        System.IO.File.Move(filepath, newFilePath)
                        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

                    Next
                End Using
            End Using
        End Using


    Catch ex As Exception

    End Try
End Sub

标签： vb.net