Dim strcnx As String strcnx = String.Concat("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\gest.mdb;") 'ouvrir la connexion a la base de donnée Dim cnxTestAccessImage As New OleDbConnection(strcnx) cnxTestAccessImage.Open() Dim updatesql As String ("UPDATE configuration SET logo? WHERE id LIKE '5'") Dim adapter As OleDbDataAdapter = New OleDbDataAdapter Dim selectCMD As OleDbCommand = New OleDbCommand(updatesql, cnxTestAccessImage) adapter.UpdateCommand = selectCMD 'allouer l'image selectCMD.Parameters.Add("logo", OleDbType.VarBinary, bytImage.Length).Value = bytImage selectCMD.ExecuteNonQuery()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question