Utilisation d'ADO - Mise à jour de l'image d'un élément à partir d'un fichier

sConnectionString = 'Provider=MSDASQL.1;Password=masterkey;Persist Security Info=True;User ID=SYSDBA;Data Source=GIDB;'

sConnectionTimeout = 15

sCommandTimeout = 30

adTypeBinary = 1

adSaveCreateOverWrite = 2

BinaryStream = CreateObject('ADODB.Stream')

BinaryStream.Type = adTypeBinary

BinaryStream.Open

BinaryStream.LoadFromFile('C:\cletus.jpg')

Set oApplicationDS = CreateObject('ADODB.Connection')

oApplicationDS.ConnectionTimeout = sConnectionTimeout

oApplicationDS.CommandTimeout = sCommandTimeout

oApplicationDS.Open(sConnectionString)

oSearchSQL = CreateObject('ADODB.Command')

Set oSearchRS = CreateObject('ADODB.Recordset')

oSearchRS.CursorType = 3

oSearchRS.LockType = 3

oSearchSql.CommandText = 'SELECT COMPANY, IMAGE_NAME, SAVED_IMAGE FROM IMAGES WHERE COMPANY = 'ABC COMPANY' AND IMAGE_NAME = 'BCD102';'

oSearchSql.CommandType = 1

Set oSearchSql.ActiveConnection = oApplicationDS

oSearchRS.Open(oSearchSql)

Si ce n'est pas oSearchRS.EOF et ce n'est pas osearchRS.BOF, alors

osearchRS.BOF

oSearchRS.Fields('SAVED_IMAGE').Value = BinaryStream.Read

oSearchRS.Update

Fin Si

oSearchRS.Close

Set oSearchRS = Nothing

Set oSearchSQL = Nothing

Set oApplicationDS = Nothing |