Discussion :

[dinjer]

Bonjour a tous, je viens vers vous pour espérer avoir une solution à mon problème. je conçois actuellement une petite application pour la gestion de notre courrier. le scénario est le suivant:
après avoir réceptionné un courrier, l'agent le scanne sous forme pdf, inscrit certaines information dans la base comme le N° d'enregistrement, l'objet et autre, puis clique sur un bouton ouvrir pour choisir le doc. pdf puis clique sur le bouton enregistrer pour sauvegarder le tout dans la base de données.
Le problème est le suivant; comment faire pour qu'après avoir sélectionné le fichier pdf, le chemin d'accès de celui-ci soit sauvegardé dans le champ (fichier_imag avec pour type nvarchar(MAX))
deuxio si je sélectionne le fichier dans un dadagrid, comment faire pour que le fichier concerné puisse s'afficher dans une vignette.
NB: j'ai incorporé un composant AxAcroPDF pour afficher les pdf.

VOICI mon code

pour lier le contrôle 'fichier_imag' à la base

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
 Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'AgentDataSet.Agents'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.AgentsTableAdapter.Fill(Me.AgentDataSet.Agents)
        'TODO: cette ligne de code charge les données dans la table 'Courrier_totalDataSet.Courriers'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        ' Me.CourriersTableAdapter.Fill(Me.Courrier_totalDataSet.Courriers)
        Me.MdiParent = Principale
        Me.Btn_Nouveau.Focus()
        Me.Btn_Enreg.Enabled = False
 
        'Vider les champs au démarrage
        ComboBox1.Text = ""
        Try
            'liaison du fichier à la base
            Me.AxAcroPDF1.DataBindings.Add( _
           New Binding("src", Me.CourriersBindingSource, "Fichier_image", True))
        Catch
        End Try
    End Sub

pour ouvrir le pdf et enregistrer son chemin dans la base

Code :

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

1
2
3
4
5
6
7
 Private Sub Btn_Ouvrir_Click(sender As System.Object, e As System.EventArgs) Handles Btn_Ouvrir.Click
        Dim OpenFileDialog As New OpenFileDialog
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            AxAcroPDF2.src = OpenFileDialog1.FileName
 
        End If
    End Sub

merci