Comment accéder à un champ de chemin accès dans BD Acsess

Signaler
Messages postés
1
Date d'inscription
samedi 16 avril 2011
Statut
Membre
Dernière intervention
28 juin 2012
-
Je souhaiterai afficher sur mon formulaire un fichier pdf ou dwg qui fait appel une BD access avec un champ nom de fichier et un autre pour le chemin d'accès des fichiers. J.ai transformé mes fichiers en hyperlien mais j'arrive pas a code pour acceder au chemin d'accés et afficher le fichier. Y'a t'il quelqu'un qui peut m'aider a debloquer cette situation.

Public Num As String
Public NumDocument As String
Public LienImage As String

Protected Sub form4_Load(ByVal sender As Object, ByVal e As System.EventArgs)

'--- Lecture de URL
Dim URLAbsolue As String = Request.Url.AbsolutePath
Dim MonHost As String = Request.Url.Host
Dim MonPort As String = Request.Url.Port
Dim MaQueryString As String = Request.Url.Query
Dim URL As String = MonHost & ":" & MonPort & URLAbsolue & MaQueryString

Dim Condition As String
Condition = Right(URL, 10)

If Not Condition = "" Then

'--- Ouverture de la connexion BD
Dim oOleDbConnection As OleDbConnection
Dim sConnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\srv-mapguide\Data Mapguide\Db\2009-11-MOCTEU_110718.mdb;" & _
"User ID=Admin;" & _
"Password="

oOleDbConnection = New OleDb.OleDbConnection(sConnString)
oOleDbConnection.Open()

'--- ID et type de document
Dim SQL1 As String = "SELECT * FROM tblDocument WHERE IDEquipement='" + Condition + "';"
Dim mySqlCmd1 As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(SQL1, oOleDbConnection)

If Not IsPostBack Then
ListBox1.DataSource = mySqlCmd1.ExecuteReader()
ListBox1.DataValueField = "ID"
ListBox1.DataBind()
ListBox1.SelectedIndex = 0
ListBox1.DataSource.Close()
NumDocument = ListBox1.SelectedValue

ListBox2.DataSource = mySqlCmd1.ExecuteReader()
ListBox2.DataValueField = "DescripTypeDoc"
ListBox2.DataBind()
ListBox2.SelectedIndex = 0

End If

'--- Nom
Dim SQL2 As String = "SELECT DescripTypeDoc FROM tblDocument WHERE ID='" + NumDocument + "' AND DescripTypeDoc <> Null ;"
Dim mySqlCmd2 As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(SQL2, oOleDbConnection)
TextBox1.Text = mySqlCmd2.ExecuteScalar()

'--- Image
Dim SQL3 As String = "SELECT LienDocum FROM tblDocument WHERE ID='" + NumDocument + "' AND LienDocum <> Null ;"
Dim mySqlCmd3 As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(SQL3, oOleDbConnection)
HyperLink1.NavigateUrl = mySqlCmd3.ExecuteScalar()
If LienImage = "" Then
HyperLink1.NavigateUrl = "image/logo-vfld.jpg"
Else
HyperLink1.NavigateUrl = "G:\DA\300 PROCÉDÉ" & LienImage

Merci d'avance