Agusto Xaverius P Sipahutar

Job:Making some bugs and patch
Moss/Wss,C#,Sql Server,WWF,K2.BlackPearl
Motto : Keep Study and study
See also: Other Geeks@INDC

News




MCP Logo
MCTS Logo

MCP ID# 3542391

My Curiculum Vitae


Agusto Xaverius P S's Facebook profile

Other Article

My Community

My Article/Share Knowledge

Others Moss/Wss Site

My Other Website/Blogs

My Share (Ebook,etc)

Upload File to Database SQL Server 97/2000

Ini bisa di sebut dengan BLOB / Binary Large Object.  Jadi pastilah document ataupun image yang kita punyai akan di konvert ke binary dulu setelah itu simpan ke data base kita dengan type binary juga.

Contoh bisa di lihat di MSDN cari dengan keyword BLOB, di sini juga saya berikan contoh nya :


Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public Class TestBLOB

  Public Shared Sub Main()
    AddBLOBtoDatabase()
  End Sub
  Public Shared Sub AddBLOBtoDatabase()
    Dim byFile() as Byte = GetPhoto(“C:\test.txt“)
 

SqlConnection conn = new SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=TESTDATABASE;");

SqlCommand cmd = new SqlCommand("INSERT INTO DOCS ([Document]) " +
"Values(@File)", Conn);

cmd .Parameters.Add(“@File", SqlDbType.Image, photo.Length).Value = byFile;

conn.Open(); // Open Connection

cmd.ExecuteNonQuery(); //Execute Query

conn.Close(); //Close Connection

  End Sub
  Public Shared Function GetFile(sFilePath as string) as byte()
    Dim fs As FileStream = new FileStream(sFilePath, FileMode.Open, FileAccess.Read) //read File
Dim br As BinaryReader = new BinaryReader(fs)

Dim byFile() As Byte = br.ReadBytes(fs.Length)

br.Close()
fs.Close()

Return byFile
  End Function
 
End Class
Share this post: | | | |

Comments

No Comments