Imports System.IO Imports System.Data Imports System.Data.SqlClient ' SQL Script For Database 'if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SaveDoc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) 'drop procedure [dbo].[SaveDoc] 'GO 'if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[WordFile]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 'drop table [dbo].[WordFile] 'GO 'CREATE TABLE [dbo].[WordFile] ( ' [WordID] [int] IDENTITY (1, 1) NOT NULL , ' [WordName] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL , ' [WordDoc] [binary] (50) NOT NULL ') ON [PRIMARY] 'GO 'SET QUOTED_IDENTIFIER ON 'GO 'SET ANSI_NULLS OFF 'GO 'CREATE PROC SaveDoc (@WordName NVARCHAR (50),@WordFile BINARY) 'AS ' INSERT INTO ' WordFile ' (WordName,WordDoc) ' VALUES ' (@WordName,@WordFile) 'GO 'SET QUOTED_IDENTIFIER OFF 'GO 'SET ANSI_NULLS ON 'GO

Public Class Form1 Dim con As SqlClient.SqlConnection Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click con = New SqlClient.SqlConnection("ConnectionString") con.Open() Dim fstream As New FileStream(TextBox2.Text, FileMode.Open, FileAccess.Read) Dim buf(fstream.Length) As Byte fstream.Read(buf, 0, fstream.Length) fstream.Flush() fstream.Dispose() Dim com As New SqlClient.SqlCommand() With com .Connection = con .CommandType = CommandType.StoredProcedure .CommandText = "SaveDoc" .Parameters.Add("@WordName", SqlDbType.NVarChar, 50).Value = TextBox1.Text .Parameters.Add("@WordFile", SqlDbType.Binary).Value = buf .ExecuteNonQuery() End With com.Parameters.Clear() com.Dispose() con.Dispose() MessageBox.Show("Save Successfully", "Doc", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub End Class