تعلم كيف تدخل ملف مهما كان نوعه في قاعدة بيانات Sql Server , ليس لينك انما الملف نفسه

"USE myDataBaseName
   GO
    CREATE TABLE myTable(FileName nvarchar(60), 
    FileType nvarchar(60), Document varbinary(max))
   GO"

	   
		 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
			' لفتح صندوق حوار
					 Dim sFile As  String = OpenFileDialog1.FileName
		 'تعريف فايل ستريم ووضع ملفك داخله على شكل باينري
					 Dim fil As  New FileStream(sFile, FileMode.OpenOrCreate)
					 Dim  aBuff(fil.Length) As Byte
					 Dim l As  Long = fil.Length
					  fil.Read(aBuff, 0, l)
		 'كود التخزين عادي لا يحتاج الى شرح
					 Dim conn As  New SqlConnection()
					 conn.ConnectionString  = " Data Source=ABDULLAH-3A52C7\ASSAF;Initial  Catalog=myDataBaseName;Trusted_Connection=True"

					 Dim cmd As  New SqlClient.SqlCommand("  INSERT INTO myTable(FileName, FileType,  Document)  SELECT '" + Path.GetFileName(sFile) + "' AS FileName,  '" + Path.GetExtension(sFile) + "' AS FileType,@Bin  AS  Document", conn)

					 '* FROM  OPENROWSET(BULK N'" + sFile + "', SINGLE_BLOB)
					  cmd.CommandText = "  INSERT INTO myTable(FileName, FileType,  Document)  SELECT '" + Path.GetFileName(sFile) + "' AS FileName,  '" + Path.GetExtension(sFile) + "' AS FileType,@Bin  AS  Document"
					  cmd.Parameters.Clear()
					  cmd.Parameters.Add("@Bin", aBuff)
					 conn.Open()
					  cmd.ExecuteNonQuery()
					 conn.Close()
		 'اعمل جاربج كلكشن اي عمل اعادة رسم للفورم
					 GC.Collect()
		 'اعادة تحميل النموذج
					  Form1_Load(Nothing, Nothing)
				 End If
			 End Sub

	   
		 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load
		 'كود عادي لا داعي للشرح
				 Dim ds As New DataSet
				 Dim conn As New SqlConnection()
				 conn.ConnectionString = " Data  Source=ABDULLAH-3A52C7\ASSAF;Initial  Catalog=myDataBaseName;Trusted_Connection=True"
				 Dim da As New  SqlClient.SqlDataAdapter("Select FileName From myTable ", conn)
				 da.Fill(ds)
				 ComboBox1.Items.Clear()
				 For Each dr As DataRow In  ds.Tables(0).Rows
					 ComboBox1.Items.Add(dr("FileName").ToString)
				 Next
			 End Sub

  Private Sub btnGetFileFromDb_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles btnGetFileFromDb.Click
		   Dim conn As New SqlConnection()
		   conn.ConnectionString = " Data  Source=ABDULLAH-3A52C7\ASSAF;Initial  Catalog=myDataBaseName;Trusted_Connection=True"
  Dim da As New SqlClient.SqlDataAdapter("Select * From myTable Where FileName='" + (ComboBox1.SelectedItem.ToString.Trim).Trim + "'", conn)
		   Dim ds As New DataSet
		   da.Fill(ds)
   'تحميل الملف في بفر ووضعه على فايل ستريم تمهيدا  لتخزينه
		   Dim aBuff() As Byte =  ds.Tables(0).Rows(0)("Document")
		   Dim sFile As String =  ds.Tables(0).Rows(0)("FileName")
		   If FolderBrowserDialog1.ShowDialog =  Windows.Forms.DialogResult.OK Then
			   sFile =  FolderBrowserDialog1.SelectedPath + "\" + sFile
			   Dim fil As  New FileStream(sFile, FileMode.OpenOrCreate)
			   Dim l As  Long = aBuff.Length
				fil.Write(aBuff, 0, l)
			   fil.Flush()
			   fil.Close()
				fil.Dispose()
			   GC.Collect()
		   End If
	   End Sub

SaveFileInDB.rar