Discussion :

[romram]

Bonjour,
Voila, j'ai un petit problème que je n'arrive pas à expliquer. Je recupère le chemin d'un fichier grâce à un objet OpenFileDialog. Ce chemin s'affiche alors dans une textbox. Ensuite, lorsque je ferme le formulaire, une requête s'exécute et met à jour un champs contenant le chemin en question. Bizarrement, lorsque j'effectue cette procédure, ca plante au niveau de la connection à la base de données (pas dans la requete). Par contre, si j'ecris directement dans la textbox, ca marche parfaitement.
Alors, je me demande si l'utilisation du OpenFileDialog n'interfère pas sur la connection avec la base de données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
fonction de recherche du chemin du fichier :
    Private Sub bt_open_file_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_open_file.Click
        Dim open_file As New OpenFileDialog()
        With open_file
            .Multiselect = False
            .CheckFileExists = True
        End With
 
        If open_file.ShowDialog = DialogResult.OK Then
            tb_file.Text = open_file.FileName()
        End If
    End Sub

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
Fonction de fermeture du formulaire :
    Private Sub parametres_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        Dim couleur As Integer
        If rad_1.Checked = True Then
            couleur = 1
        End If
        If rad_2.Checked = True Then
            couleur = 2
        End If
        If rad_3.Checked = True Then
            couleur = 3
        End If
 
        ' modification des paramètres
        Dim req_para As String = _
    "Update parametres P set P.couleur=" & couleur & ", P.image='" & tb_file.Text & "', P.nom_equipe='" & tb_nom_equipe.Text & "' where (P.num=1)"
        MsgBox(req_para)
        cn.Open()
        Dim cde_para As New OleDbCommand(req_para, cn)
        cde_para.ExecuteNonQuery()
        cn.Close()
 
        Dim menu As New menu()
        menu.Show()
        Me.Hide()
    End Sub

Voila, j'espère que vous aurez compris, et que vous pourrez m'aider...
Merci[/code]

[neguib]

pour tout ce qui concerne les procedures de connection je ne saurais trop te conseiller de les catcher car les types d'exception sont nombreux et très différents donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim cde_para As OleDbCommand
try
   cn.Open() 
   cde = New OleDbCommand(req_para, cn) 
   cde_para.ExecuteNonQuery() 
catch ex as exception
   msgbox(ex.Message)
finally
   if not(cn is nothing) then cn.Close()
end try

fais nous part du message d'exception complet, si possible debugges pas à pas pour repérer la ligne du code exacte qui lève l'exception

[romram]

Voila ce que j'ai mis pour les paramètres de ma connection.

Code :

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

1
2
    Dim strcn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=equipe.mdb"
    Public cn As New OleDb.OleDbConnection(strcn)

En fait, lorsque j'ouvre ma connection à la BD, le repertoire dans lequel le programme cherche la base de données devient celui que j'ai selectionné dans mon OpenFileDialog.
Donc, il faudrait que je trouve une solution pour rétablir le répertoire par défaut après avoir selectionné mon fichier.

Quelqu'un saurait comment on fait ?

[romram]

Voila, j'ai trouvé une solution.
j'utilise un objet System.IO.Directory qui me permet de récupérer le fichier courant au chargement du formulaire, et je rétablie ce répertoire avant la connection à la base. Et voila !

Code :

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

1
2
 Dim rep As System.IO.Directory
    Dim rep_str As String

Code :

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

1
2
3
    Private Sub parametres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rep_str = rep.GetCurrentDirectory()
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   Private Sub parametres_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        Dim req_para As String = _
    "Update parametres P set P.couleur=" & couleur & ", P.image='" & tb_file.Text & "', P.nom_equipe='" & tb_nom_equipe.Text & "' where (P.num=1)"
        rep.SetCurrentDirectory(rep_str)
 
        cn.Open()
        Dim cde_para As New OleDbCommand(req_para, cn)
        cde_para.ExecuteNonQuery()
        cn.Close()
End Sub

Merci @+

[neguib]