ذخیره و بازیابی فایل صدا

[mina_at2000]

من می خواهم یک فایل صدا را درون بانک اطلاعاتی ذخیره کنم و هر وقت لازم بود آن را بازیابی کنم لطفا اگر راه حلی دارید بگید ؟

[مهدی نان شکری]

برای ذخیره :


Dim fdb As New OpenFileDialog

If fdb.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim Path As String
Path = fdb.FileName
Dim File_byte() As Byte = IO.File.ReadAllBytes(Path)
Dim cmd As New SqlClient.SqlCommand("Insert into test values(@File)", New SqlClient.SqlConnection(cs))
cmd.Parameters.Add("File", SqlDbType.VarBinary, File_byte.Length).Value = File_byte
cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()


و بازیابی:


Dim Path As String = "D:\a.mp3"
Dim da As New SqlClient.SqlDataAdapter
Dim cmd As New SqlClient.SqlCommand("Select * from test", New SqlClient.SqlConnection(cs))
da.SelectCommand = cmd
Dim dt As New DataTable
da.Fill(dt)
(Dim d() As Byte = dt.Rows(0)(0)
System.IO.File.WriteAllBytes(Path, d)


استفاده کنید