BLOB, SQL Server et... grosse galère !

Bonjours à tous,

Voilà, je suis confronté à un (gros) problème : je dois extraire des images d'une base SQL server (6.5 en + !)

La structure de la table qui contient les images est la suivante :
image_data1 : image (16)
image_data2 : varbinary (255)
image_data3 : varbinary (255)
image_data4 : varbinary (255)
image_data5 : varbinary (255)
image_data6 : varbinary (255)
image_data7 : varbinary (255)
image_data8 : varbinary (255)

La valeur d'image_data1 est parfois à null (??)

C'est tout ce que j'ai comme info, on m'a refilé le bébé "brut de fonderie..."

Quelqu'un sait comment extraire les données de ce type de structure avec VB ??
Je n'y arrive pas :(

Merci.

Voilà j'espere ke ca pourra t'aider.

Const BLOCK_SIZE = 16384

Public Sub BlobToFile(ByRef Fld As ADODB.Field, _
ByVal FName As String, _
Optional FieldSize As Long = -1, _
Optional Threshold As Long = 1048576)
Dim F As Long
Dim bData() As Byte
Dim sData As String

' Assumes file does not exist
' Data cannot exceed approx. 2Gb in size

F = FreeFile
Open FName For Binary As #F
Select Case Fld.Type
Case adLongVarBinary
If FieldSize = -1 Then ' blob field is of unknown size
WriteFromUnsizedBinary F, Fld
Else ' blob field is of known size
If FieldSize > Threshold Then ' very large actual data
WriteFromBinary F, Fld, FieldSize
Else ' smallish actual data
bData = Fld.Value
Put #F, , bData ' PUT tacks on overhead if use fld.Value
End If
End If
Case adLongVarChar, adLongVarWChar
If FieldSize = -1 Then
WriteFromUnsizedText F, Fld
Else
If FieldSize > Threshold Then
WriteFromText F, Fld, FieldSize
Else
sData = Fld.Value
Put #F, , sData ' PUT tacks on overhead if use fld.Value
End If
End If
End Select
Close #F
End Sub

Private Sub WriteFromBinary(ByVal F As Long, _
ByRef Fld As ADODB.Field, _
ByVal FieldSize As Long)
Dim Data() As Byte
Dim BytesRead As Long

Do While FieldSize <> BytesRead
If FieldSize - BytesRead < BLOCK_SIZE Then
Data = Fld.GetChunk(FieldSize - BLOCK_SIZE)
BytesRead = FieldSize
Else
Data = Fld.GetChunk(BLOCK_SIZE)
BytesRead = BytesRead + BLOCK_SIZE
End If
Put #F, , Data
Loop
End Sub

Private Sub WriteFromUnsizedBinary(ByVal F As Long, _
ByRef Fld As ADODB.Field)
Dim Data() As Byte
Dim Temp As Variant

Do
Temp = Fld.GetChunk(BLOCK_SIZE)
If IsNull(Temp) Then Exit Do
Data = Temp
Put #F, , Data
Loop While LenB(Temp) = BLOCK_SIZE
End Sub

Private Sub WriteFromText(ByVal F As Long, _
ByRef Fld As ADODB.Field, _
ByVal FieldSize As Long)
Dim Data As String
Dim CharsRead As Long

Do While FieldSize <> CharsRead
If FieldSize - CharsRead < BLOCK_SIZE Then
Data = Fld.GetChunk(FieldSize - BLOCK_SIZE)
CharsRead = FieldSize
Else
Data = Fld.GetChunk(BLOCK_SIZE)
CharsRead = CharsRead + BLOCK_SIZE
End If
Put #F, , Data
Loop
End Sub

Private Sub WriteFromUnsizedText(ByVal F As Long, _
ByRef Fld As ADODB.Field)
Dim Data As String
Dim Temp As Variant

Do
Temp = Fld.GetChunk(BLOCK_SIZE)
If IsNull(Temp) Then Exit Do
Data = Temp
Put #F, , Data
Loop While Len(Temp) = BLOCK_SIZE
End Sub

' Assumes file exists
' Assumes calling routine does the UPDATE
' File cannot exceed approx. 2Gb in size
Public Sub FileToBlob(ByVal FName As String, _
ByRef Fld As ADODB.Field, _
Optional Threshold As Long = 1048576)
Dim F As Long
Dim Data() As Byte
Dim FileSize As Long

F = FreeFile
Open FName For Binary As #F
FileSize = LOF(F)
Select Case Fld.Type
Case adLongVarBinary
If FileSize > Threshold Then
ReadToBinary F, Fld, FileSize
Else
Data = InputB(FileSize, F)
Fld.Value = Data
End If
Case adLongVarChar, adLongVarWChar
If FileSize > Threshold Then
ReadToText F, Fld, FileSize
Else
Fld.Value = Input(FileSize, F)
End If
End Select
Close #F
End Sub

Private Sub ReadToBinary(ByVal F As Long, _
ByRef Fld As ADODB.Field, _
ByVal FileSize As Long)
Dim Data() As Byte
Dim BytesRead As Long

Do While FileSize <> BytesRead
If FileSize - BytesRead < BLOCK_SIZE Then
Data = InputB(FileSize - BytesRead, F)
BytesRead = FileSize
Else
Data = InputB(BLOCK_SIZE, F)
BytesRead = BytesRead + BLOCK_SIZE
End If
Fld.AppendChunk Data
Loop
End Sub

Private Sub ReadToText(ByVal F As Long, _
ByRef Fld As ADODB.Field, _
ByVal FileSize As Long)
Dim Data As String
Dim CharsRead As Long

Do While FileSize <> CharsRead
If FileSize - CharsRead < BLOCK_SIZE Then
Data = Input(FileSize - CharsRead, F)
CharsRead = FileSize
Else
Data = Input(BLOCK_SIZE, F)
CharsRead = CharsRead + BLOCK_SIZE
End If
Fld.AppendChunk Data
Loop
End Sub

Merci beaucoup mais...
Ce code ne prend en compte que le longvarbinary (type 205) et mes champs sont de type varbinary (type 204).

Il ne passe donc pas dans le select case fld.type... Et ne traite donc rien.

Quelqu'un aurait-il déjà extrait du varbinary d'une base SQL Server ?

Salut !
J'ais actuellement le meme probleme que toi concernant le traitement de jpg dans une base sql server. Je souhaite stocker des jpg en varbinary ds ma base, si tu as un petit bout de code.....je suis preneur.
Thks.