Blob

Imports System.Data.SqlClient
Imports System.IO

Public Class Form1



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'imposto la connessione al DB

Dim con As New SqlConnection("Server=maarja;database=pubs;Integrated Security=True ;")
Dim da As New SqlDataAdapter("Select * From pub_info", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()

da.MissingSchemaAction = MissingSchemaAction.AddWithKey
con.Open()
da.Fill(ds, "Pub_info")

'leggo dati da un file

'************************************************

Dim fs As New FileStream _
("C:\biblio.pdf", FileMode.OpenOrCreate, _
FileAccess.Read)

'prelevo i dati binari dal file e li utilizzo

'per riempire un array di byte

Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()
'*****************************************************


'faccio un update nella tabella

ds.Tables("Pub_info").Rows(0)("logo") = MyData
da.Update(ds, "Pub_info")

'ripulisco la memoria

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing

MessageBox.Show("File salvato sul database")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim con As New SqlConnection("Server=maarja;database=pubs;Integrated Security=True;")
Dim da As New SqlDataAdapter("Select * From pub_info", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()

con.Open()
da.Fill(ds, "Pub_info")
Dim myRow As DataRow
myRow = ds.Tables("Pub_info").Rows(0)

Dim MyData() As Byte
MyData = myRow("logo")

Dim fs As New FileStream _
("C:\prova.pdf", FileMode.OpenOrCreate, _
FileAccess.Write)

fs.Write(MyData, 0, MyData.Length)

fs.Close()

Process.Start("C:\Programmi\Adobe\Acrobat 6.0\Acrobat\Acrobat.exe", "C:\prova.pdf")
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing







End Sub
End Class