comment inserer le chemin d'accès d'un fichier dans une base de donnéess sql

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:

---

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:

---

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

Bonjour,

Essai cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If OpenFileDialog1.ShowDialog = DialogResult.OK Then AxAcroPDF2.src = OpenFileDialog1.FileName   Dim ExtractFilePath As String Dim Valeur As String = OpenFileDialog1.FileName If Microsoft.VisualBasic.Right(Valeur, 1) = "\" Then ExtractFilePath = Valeur Else ExtractFilePath = Microsoft.VisualBasic.Left(Valeur, InStrRev(Valeur, "\")) End If End If   End If

---

Ceci permet de récupérer ton chemin d’accès de ton fichier.

Test et vois si cela correspond a ton attente.

Bon courage.