J'ai écrit le code ci-dessous pour extraire sous forme de fichier jpeg des photos enregistrées dans une base de données SQL Server 2008 et ça marche bien.
Le hic, c'est que ça ne fonctionne pas avec les empreintes digitales.
Pouvez-vous m'aidez à modifier mon code visual basic afin d'y parvenir ?
Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
***************************************************************** 
If CONNECT_AccessBD Then 
AccessRst.Open "select * from IDENTITY2 ", AccessCn, adOpenStatic 
Do While Not AccessRst.EOF 
MAX_PATH = 260 
BLOCK_SIZE = 100000 
Set fso = CreateObject("Scripting.FileSystemObject") 
 
'******************************* 
'*** IMPORTATION DE LA PHOTO *** 
'******************************* 
 
' Get a temporary file name. 
file_name = TemporaryFileName() 
 
' Open the file. 
file_num = FreeFile 
Open file_name For Binary As #file_num 
' Copy the data into the file. 
file_length = AccessRst.Fields("foto").ActualSize 
 
num_blocks = file_length / BLOCK_SIZE 
left_over = file_length Mod BLOCK_SIZE 
 
'get all chunks and write then to a temp file 
For block_num = 1 To num_blocks 
bytes() = AccessRst.Fields("foto").GetChunk(BLOCK_SIZE) 
Put #file_num, , bytes() 
Next block_num 
 
If left_over > 0 Then 
bytes() = AccessRst.Fields("foto").GetChunk(left_over) 
Put #file_num, , bytes() 
End If 
Close #file_num 
PathPhoto = "C:\ImgCRU\Ph\" & AccessRst!ordinal_number & ".jpg" 
fso.CopyFile file_name, PathPhoto 
 
 
MsgBox ("Extraction achevée...") 
End If 
 
****************************************************************
Le champ empreinte est de type: (VARBINARY(8000),NULL)

La valeur du champ empreinte se présente comme suit lors de l'affichage de la table SQL

fp_temp
0x490100000104FEFE0400640108000000099160388133000D01E014076A5AE0040AE6BAC0090DDE06C10508840E4114079146C11A046172810706637EA10909DDA5E1060488EA81140661EE410003E105A209085B1AA20302552262000E0939C2170CCB4A0200126E4A620E0B854EC21A0E105E82170A6261E20207D065A2010B6971C2000D7871E2100CDD76A208055C81E209068DAD22170504B282100BD6E2E2080269F94209028B014318047809E3110FDB1D830505043D03110D8851E31607DD56E30809815A23140B046D63110BD97D630408818AA3140581C6431A08E7C9830B05E1E503040770ED630D027609041406E71D240702E835C40904E069E4010A7982C41504E8AD840703E7FDC40309EE296505088B868B7D96828581837B82817F8E8496818B848A91958281868882848481868584828087847F86808A848F828F968280928288