Extraction d'un objet ole depuis access
bonjour,
j'ai un gros problème que je doit résoudre d'ici la fin du weekend voila je vous explique .
j'utilise une base de donner access sur la quelle j'ai stocker des CV comme objets OLE sous format .doc
j'ai trouver un code qui me permet de récupérer les CV
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
44
45
46
47
48
49
50
51
52
53
| Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\database.mdb;Persist Security Info=False")
Dim logoCMD As New OleDbCommand("SELECT cnd_id, CV FROM condidats", conn)
Dim fs As IO.FileStream
Dim bw As IO.BinaryWriter ' Streams the binary data to the FileStream object.
Dim bufferSize As Integer = 100 ' The size of the BLOB buffer.
Dim outbyte(bufferSize - 1) As Byte ' The BLOB byte() buffer to be filled by GetBytes.
Dim retval As Long ' The bytes returned from GetBytes.
Dim startIndex As Long = 0 ' The starting position in the BLOB output.
Dim cnd_id As String = "" ' The publisher id to use in the file name.
' Open the connection and read data into the DataReader.
conn.Open()
Dim myReader As OleDbDataReader = logoCMD.ExecuteReader(Data.CommandBehavior.SequentialAccess)
Do While myReader.Read()
' Get the publisher id, which must occur before getting the logo.
cnd_id = myReader.GetString(0)
' Create a file to hold the output.
fs = New IO.FileStream("cv" & cnd_id & ".doc", IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
bw = New IO.BinaryWriter(fs)
' Reset the starting byte for a new BLOB.
startIndex = 0
' Read bytes into outbyte() and retain the number of bytes returned.
retval = myReader.GetBytes(1, startIndex, outbyte, 0, bufferSize)
' Continue reading and writing while there are bytes beyond the size of the buffer.
Do While retval = bufferSize
bw.Write(outbyte)
bw.Flush()
' Reposition the start index to the end of the last buffer and fill the buffer.
startIndex += bufferSize
retval = myReader.GetBytes(1, startIndex, outbyte, 0, bufferSize)
Loop
' Write the remaining buffer.
bw.Write(outbyte, 0, retval - 1)
bw.Flush()
' Close the output file.
bw.Close()
fs.Close()
Loop
' Close the reader and the connection.
myReader.Close()
pubsConn.Close() |
mais lorsque j'ouvre l'un des documents ,MS Word me demande de choisir le format d'encodage voir ci-dessous image
http://img224.imageshack.us/img224/4466/erreurdoc.jpg
si vous avez des conseilles ou des idées a me proposer n'hésiter par ce que je suis vraiment bloquer la
merci d'avance
