Problème extraction empreintes digitale d'une base de données SQL Server 2008 avec visual basic 6
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:
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
Citation:
fp_temp
0x490100000104FEFE0400640108000000099160388133000D01E014076A5AE0040AE6BAC0090DDE06C10508840E4114079146C11A046172810706637EA10909DDA5E1060488EA81140661EE410003E105A209085B1AA20302552262000E0939C2170CCB4A0200126E4A620E0B854EC21A0E105E82170A6261E20207D065A2010B6971C2000D7871E2100CDD76A208055C81E209068DAD22170504B282100BD6E2E2080269F94209028B014318047809E3110FDB1D830505043D03110D8851E31607DD56E30809815A23140B046D63110BD97D630408818AA3140581C6431A08E7C9830B05E1E503040770ED630D027609041406E71D240702E835C40904E069E4010A7982C41504E8AD840703E7FDC40309EE296505088B868B7D96828581837B82817F8E8496818B848A91958281868882848481868584828087847F86808A848F828F968280928288
