Discussion :

[sidisadmir]

bonjour
s.v.p j'ai un problème:
j'ai une base de données access dans laquelle j'ai stoké des images sous forme(objet ole) et je voudrais les charger en utilisant ado en vb.net
seulemnt quand j'ecris le programme pour convertir le binaire (image en question)cela ne marche pas .vous pouvez voir le fichier ZIP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
54
55
56
57
58
59
60
 
Imports MSBind
Imports System.Data
Imports System.IO
Imports System.Drawing.Imaging
Imports System.Text
Public Class FrmDonnéesFonctionnaires
    Public CnDonnees As ADODB.Connection
    Public CmdDonnees As ADODB.Command
    Public RsDonnees As ADODB.Recordset
    Private Prm1, Prm2, Prm3, Prm4, Prm5, Prm6, Prm7, Prm8 As ADODB.Parameter
    Private StrSql As String = ""
    Private Sub ChercherLesDonnees()
        StrSql = " select * from fonctionnaires where ((fonctionnaires.som=?)) order by fonctionnaires.som;"
        CnDonnees = New ADODB.Connection
        CnDonnees.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & My.Application.Info.DirectoryPath & "\Employes.mdb"
        CnDonnees.Open()
        CmdDonnees = New ADODB.Command
        CmdDonnees.ActiveConnection = CnDonnees
        CmdDonnees.CommandText = StrSql
        Prm1 = CmdDonnees.CreateParameter("Param1", ADODB.DataTypeEnum.adBSTR)
        CmdDonnees.Parameters.Append(Prm1)
        Prm1.Value = MaSom
        Prm1.Size = Len(MaSom)
        RsDonnees = New ADODB.Recordset
        RsDonnees.Open(CmdDonnees, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
    End Sub
 
 
    Sub AfficherLesDonnees()
        ChercherLesDonnees()
        TxtSom.Text = RsDonnees.Fields("som").Value
        TxtNomFr.Text = RsDonnees.Fields("nomfr").Value
        TxtPrenomFr.Text = RsDonnees.Fields("prenomfr").Value
        TxtNomAr.Text = RsDonnees.Fields("nomar").Value
        TxtPrenomAr.Text = RsDonnees.Fields("prenomar").Value
        TxtdateNaissance.Text = IIf(IsDBNull(RsDonnees.Fields("datenais").Value), "saisissez la date de naissance", RsDonnees.Fields("datenais").Value)
        TxtDateRecrutement.Text = IIf(IsDBNull(RsDonnees.Fields("DateRecrutement").Value), "saisissez la Date de Recrutement", RsDonnees.Fields("DateRecrutement").Value)
        Dim b As Object = RsDonnees.Fields("photo").Value
 
        Dim t() As Byte = b
 
        Dim Ms As MemoryStream
        Ms = New MemoryStream(t)
        PictureBox1.Image = Image.FromStream(Ms)
        'ici le programme m'envoie un message "le paramètre n'est pas valide"
    End Sub
 
    Private Sub TxtSom_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtSom.KeyPress
        If AscW(e.KeyChar) = 13 Then
            MaSom = TxtSom.Text
            AfficherLesDonnees()
        Else
 
        End If
    End Sub
 
 
 
End Class