Images to a ??.jpeg

[shmo]

Let say I have a table with images. How can I export them to a folder c:\images using the {primary key}as the name with the extension .jpg

ex.

id image
1 010101
2 010101
3 010101

as

1.jpg
2.jpg
3.jpg

 

[SemperFiDownUnda]

is the image already in JPG format?
You can do it with some VB code using ADODB pretty easy.

just open a file for write,
read a line and use .GetChunk() method of the recordset to get a byte array and dump it to disk.

 

[shmo]

It is a jpeg.

Can post a sample vb code to do this? I never tried to write vb yet but it is time now!

Thanks!

 

[SemperFiDownUnda]

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

'replace DatabaseName with your database name and ServerName with, guess what, your SQL Server name

conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DatabaseName;Data Source=ServerName"

conn.Open

rs.Open "SELECT ID, Image FROM BLAH", conn

Dim aByte() As Byte
Dim iFile As Integer
Do Until rs.EOF
ReDim aByte(rs.Fields("Image&quot.ActualSize)
aByte = rs.Fields("Image&quot.GetChunk(rs.Fields("Image&quot.ActualSize)
iFile = FreeFile()
Open "C:\images\" & rs.Fields("ID&quot.Value & ".JPEG" For Binary As #iFile
Put #iFile, , aByte
Close #iFile
rs.MoveNext
Loop

 

[shmo]

You rule, aussie! Thank you very much!