Discussion :

[calipanpan]

Bonjour.

Je suis en train te travailler sur un petit projet perso qui est loins d'être fini mais je tombe déjà sur un probème et je n'arrive pas à trouver la solution.

Je m'explique:

Dans mon application j'utilise une base de donnée Access. Au démarrage de l'application, je test via la connexion à la base de donnée (fichier dbfunctions) si je trouve la base de donnée (le chemin est stoqué dans un fichier .ini).

Si je ne la trouve pas, j'ouvre une form (frmOptions) et je propose de complèter le chemin d'accès.
Seulement au moment de cliquer sur OK, le chemin se met bien à jour dans le fichier .ini et donc au prochain démarrage tout est ok, mais le application.exit ne fonctionne me fait une erreur nullreferenceexception et fait planter l'application dès que je veux changer le chemin de la base.

L'application est disponnible ici : http://www.calipanpan.ch/loan_manager/Loan_Manager.zip

Je travail sous Visual Studio 2005 Sp1 et net 2 sp1.

Voila si quelqu'un à une idée cela m'aiderait beaucoup, car sur le web je n'ai rien trouvé qui puisse m'aider concrètement.

Salutations.

Yann

[vinowan]

bonjour,

je ne sais pas si sa peut aider mais j'ai eu la même erreur en voulant effectuer une operation sur le port com (ouvrir ou fermer le port).

j'ai du utilisé le bloc Try Catch Finally pour gerer les erreur produite, en fesant cela si une erreur se produit tu peux y inserer une msgbox pour indiquer ou le probleme se pose.

il se peux que cela ne t'aide pas des masse car je debute juste en vb mais dans mon cas ca ma permis de regler mes soucis

bonne programation a+

[OhMonBato]

Tu pourrais nous mettre ici la zone de code qui déclenche l'erreur en précisant sur quelle ligne exactement elle se produit ?

[BM42]

Salut
Ton problème vien de la :

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
Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
 
 
        If txtFilePath.Text <> "" Then
 
            writeInIni("DATABASE", "path", txtFilePath.Text)
 
            MessageBox.Show("Options successfully updated!" + Chr(13) + "The application will close, please launch it to reload the database", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Application.Exit()
 
 
        End If
 
        Me.Close()
 
    End Sub

Plus précisément de la ligne :

Code :

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

Application.Exit()

Je panse que tu veux aller un peut vite dans les fermetures. Je n'est pas fait plus de recherche par manque de temps.

A+

[BM42]

Bon je complète un peut le fond de ma pansé.

Tu charge un premier formulaire.
Au cours du chargement tu charge un deusième formulaire
Puis tu ferme l'appli avant que ton premier formulaire soit complètement chargé.

Une question :
pourquoi tu quitte l'appli ?
A tu essayé de récuperer le chemin de ta base dans une variable que tu mettrais a jour a la fermeture de ton deusième formulaire et l'utiliser pour terminer le chargement du premier formulaire ?

Ok cela fait 2 questions

A+

[calipanpan]

Hello,

Merci pour ton aide, suite à tes conseils j'ai fait des changements, je recharge le chemin entré par l'utilisateur tout de suite après la fermeture de la fenètre Option et je relance la connexion à la base de données dans le catch (où l'execution reprend à la fermeture de la fenêtre option) avec le bon chemin.

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
 
 
        sConnection = "Provider=Microsoft.jet.OLEDB.4.0;"
        sConnection &= "Password=;User ID=Admin;"
        sConnection &= "Data Source=" & My.Settings.database_path
 
        myConnection = New OleDbConnection(sConnection)
        Try
            myConnection.Open()
        Catch ex As OleDbException
            MessageBox.Show("The application can't found the database " + Chr(13) + "Please indicate the file path of the database", "Database error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            'Display the options dialog
            frmOptions = New frmOptions
            frmOptions.ShowDialog()
            'Clear the memory used by frmOptions
            'frmOptions = Nothing
 
            sConnection = "Provider=Microsoft.jet.OLEDB.4.0;"
            sConnection &= "Password=;User ID=Admin;"
            sConnection &= "Data Source=" & My.Settings.database_path
            myConnection = New OleDbConnection(sConnection)
            myConnection.Open()
 
        End Try

Merci beaucoup.