Bonsoir.
Option Explicit
Dim dbname As String
Dim ConnStr As String
Dim Sql As String
Dim dbConn As New ADODB.Connection
Dim dbRec As New ADODB.Recordset
Dim dbCmd As New ADODB.Command
Dim dataBytes() As Byte
Private Sub ImageBrowseTo_Click()
On Error Resume next
With CommonDialog
.Filter = "Jpeg Files(*.jpeg)|*.jpeg|Jpg Files(*.jpg)|*.jpg" & _
"|Gif Files(*.gif)|*.gif|Bitmap Files(*.bmp)|*.bmp|All Supported Files|*.jpeg;*.jpg;*.gif;*.bmp"
.CancelError = True
.ShowOpen
If .FileName <> "" Then
Me.MousePointer = vbHourglass
txtImageFilename.Text = .FileName
ReDim dataBytes(FileLen(.FileName))
Open .FileName For Binary As #1
Get #1, , dataBytes
Close #1
Me.MousePointer = vbDefault
End If
End With
End Sub
Private Sub CmdUpdate_Click()
On Error GoTo hell
Me.MousePointer = vbHourglass
dbname = App.Path & "\MasterDB.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & _
";Persist Security Info=False"
Set dbConn = New ADODB.Connection
dbConn.ConnectionString = ConnStr
dbConn.Open
Sql = "SELECT * FROM tbl_Images"
Set dbRec = New ADODB.Recordset
dbRec.Open Sql, dbConn, adOpenStatic, adLockOptimistic
dbRec.AddNew
dbRec.Fields("ImageName").Value = txtImageName.Text
dbRec.Fields("ImageFile").AppendChunk dataBytes
dbRec.Update
dbRec.UpdateBatch adAffectAllChapters
dbRec.Close
dbConn.Close
Me.MousePointer = vbDefault
MsgBox "Enregistrement effectué.", vbInformation + vbOKOnly, "Add New Record"
End Sub
Voilà ce petit bout de code qui m'a bien servi.
@+
Philippe.