Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de test
sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis obligé
de fermer l'un des processus à l'aide du gestionnaire de tâches, ce qui
ferme les trois ensemble. Au bout de trois ou quatre fois j'étais bien
dressé, j'avais fait une sauvegarde avant de lancer l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans la
même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de test
sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis obligé
de fermer l'un des processus à l'aide du gestionnaire de tâches, ce qui
ferme les trois ensemble. Au bout de trois ou quatre fois j'étais bien
dressé, j'avais fait une sauvegarde avant de lancer l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans la
même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de test
sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis obligé
de fermer l'un des processus à l'aide du gestionnaire de tâches, ce qui
ferme les trois ensemble. Au bout de trois ou quatre fois j'étais bien
dressé, j'avais fait une sauvegarde avant de lancer l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans la
même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére pas
tout en certaine occasions, y'a peut-être des gens ici qui on un lien
sur le sujet.
Christophe
Gloops a écrit :Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére pas
tout en certaine occasions, y'a peut-être des gens ici qui on un lien
sur le sujet.
Christophe
Gloops a écrit :
Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére pas
tout en certaine occasions, y'a peut-être des gens ici qui on un lien
sur le sujet.
Christophe
Gloops a écrit :Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un grain
moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Ah OK, je vais faire ça, merci. Set Form1 = Nothing, à la fin de
Form_Unload.
M'était pas encore arrivé, ce bazard.
J'ai un peu dilué, hein ?
C'est une application avec un WebBrowser et une ListView sur Form1, la
ListView est chargée à partir d'une base de données avec des adresses
web à consulter, pour que l'utilisateur fasse des commentaires dessus, à
charger à leur tour dans la base. Les commentaires sont saisis grâce au
deuxième formulaire, frmCommentaires.
(Pour plus de facilité un autre bouton de Form1 permet d'alimenter la
base de données à partir d'un fichier texte contenant des URL.)
_________________________________________________
christophe-pasde<> a écrit, le 08/06/2005 10:04 :Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére
pas tout en certaine occasions, y'a peut-être des gens ici qui on un
lien sur le sujet.
Christophe
Gloops a écrit :Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un
grain moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Ah OK, je vais faire ça, merci. Set Form1 = Nothing, à la fin de
Form_Unload.
M'était pas encore arrivé, ce bazard.
J'ai un peu dilué, hein ?
C'est une application avec un WebBrowser et une ListView sur Form1, la
ListView est chargée à partir d'une base de données avec des adresses
web à consulter, pour que l'utilisateur fasse des commentaires dessus, à
charger à leur tour dans la base. Les commentaires sont saisis grâce au
deuxième formulaire, frmCommentaires.
(Pour plus de facilité un autre bouton de Form1 permet d'alimenter la
base de données à partir d'un fichier texte contenant des URL.)
_________________________________________________
christophe-pasde<> a écrit, le 08/06/2005 10:04 :
Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére
pas tout en certaine occasions, y'a peut-être des gens ici qui on un
lien sur le sujet.
Christophe
Gloops a écrit :
Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un
grain moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Ah OK, je vais faire ça, merci. Set Form1 = Nothing, à la fin de
Form_Unload.
M'était pas encore arrivé, ce bazard.
J'ai un peu dilué, hein ?
C'est une application avec un WebBrowser et une ListView sur Form1, la
ListView est chargée à partir d'une base de données avec des adresses
web à consulter, pour que l'utilisateur fasse des commentaires dessus, à
charger à leur tour dans la base. Les commentaires sont saisis grâce au
deuxième formulaire, frmCommentaires.
(Pour plus de facilité un autre bouton de Form1 permet d'alimenter la
base de données à partir d'un fichier texte contenant des URL.)
_________________________________________________
christophe-pasde<> a écrit, le 08/06/2005 10:04 :Bonjour,
J'ai pas tout saisi.
Mais d'une manière générale il faut ecrire dans le form unload
Set NomForm = nothing
Donc dans ton exemple : nomform= nom de ta feuille
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
Set NomForm = nothing
End Sub
Ceci permet d'être sur que l'objet form et ce qu'il contient est
détruit. Je crois que c'est un disfonctionnement de VB qui ne libére
pas tout en certaine occasions, y'a peut-être des gens ici qui on un
lien sur le sujet.
Christophe
Gloops a écrit :Bonjour tout le monde,
Ben c'est quoi que j'ai glandé ?
Parfois, quand je ferme le formulaire de mon application en mode de
test sous VB, au lieu de revenir proprement dans l'environnement de
développement comme d'habitude, je perds carrément le contrôle, avec
deux processus VB et un de mon application d'ouverts, et je suis
obligé de fermer l'un des processus à l'aide du gestionnaire de
tâches, ce qui ferme les trois ensemble. Au bout de trois ou quatre
fois j'étais bien dressé, j'avais fait une sauvegarde avant de lancer
l'exécution.
Il m'a été proposé d'envoyer un compte-rendu à Microsoft, ce que j'ai
fait une fois, j'espère que je ne leur ai pas refilé à moudre un
grain moisi ...
Le formulaire comporte un WebBrowser.
C'est vrai qu'une autre application avec un WebBrowser un jour avait
fait un caprice (ne voulait carrément pas se lancer), mais d'autres
fonctionnent très bien.
Il faut quoi pour s'y retrouver ? Form_Unload ?
Private Sub Form_Unload(Cancel As Integer)
DB.Close
Set DB = Nothing
End Sub
La base a été ouverte dans Form_Load
Private Sub Form_Load()
Set DB =
DBEngine.OpenDatabase("C:...(chemin)...VBNavigationFavorisNav.mdb")
MajNb 'voir plus loin
End Sub
et bien sûr déclarée au niveau module, en plus d'une déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim DB As Database
Sur cette base j'ouvre un jeu d'enregistrements et je le referme dans
la même procédure, comme par exemple là :
Private Sub MajNb()
Dim Rs As Recordset
Set Rs = DB.OpenRecordset("FavorisNav")
lblNbBase.Caption = Str$(Rs.RecordCount)
Rs.Close
Set Rs = Nothing
lblNb.Caption = Str$(ListView1.ListItems.Count)
End Sub
En ai-je dit assez ?
J'ai fermé le formulaire avec la petite croix rouge en haut à droite.
Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> Il est mieux de ne faire qu'un accès à la base pour remplir le listview
> dans une fonction spécifique, de fermer la base à la fin de la fonction.
> De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> Il est mieux de ne faire qu'un accès à la base pour remplir le listview
> dans une fonction spécifique, de fermer la base à la fin de la fonction.
> De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> Il est mieux de ne faire qu'un accès à la base pour remplir le listview
> dans une fonction spécifique, de fermer la base à la fin de la fonction.
> De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
"Gloops" a écrit dans le message de
news:42a7252e$0$3102$
> christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> > Il est mieux de ne faire qu'un accès à la base pour remplir le
> > dans une fonction spécifique, de fermer la base à la fin de la
> > De même pour une fonction qui enregistre les commentaires.
>
> Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
> plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"Gloops" <gloops@niark.fr> a écrit dans le message de
news:42a7252e$0$3102$8fcfb975@news.wanadoo.fr...
> christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> > Il est mieux de ne faire qu'un accès à la base pour remplir le
> > dans une fonction spécifique, de fermer la base à la fin de la
> > De même pour une fonction qui enregistre les commentaires.
>
> Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
> plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"Gloops" a écrit dans le message de
news:42a7252e$0$3102$
> christophe-pasde<> a écrit, le 08/06/2005 14:43 :
> > Il est mieux de ne faire qu'un accès à la base pour remplir le
> > dans une fonction spécifique, de fermer la base à la fin de la
> > De même pour une fonction qui enregistre les commentaires.
>
> Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
> plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"Gloops" a écrit dans le message de
news:42a7252e$0$3102$christophe-pasde<> a écrit, le 08/06/2005 14:43 :Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
"Gloops" <gloops@niark.fr> a écrit dans le message de
news:42a7252e$0$3102$8fcfb975@news.wanadoo.fr...
christophe-pasde<> a écrit, le 08/06/2005 14:43 :
Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
"Gloops" a écrit dans le message de
news:42a7252e$0$3102$christophe-pasde<> a écrit, le 08/06/2005 14:43 :Il est mieux de ne faire qu'un accès à la base pour remplir le listview
dans une fonction spécifique, de fermer la base à la fin de la fonction.
De même pour une fonction qui enregistre les commentaires.
Ah bon ? Moi qui croyais bien faire en évitant d'ouvrir et fermer
plusieurs fois, histoire d'améliorer le temps de réponse ...
Hello,
c'est effectivement un débat intéressant.
Pour ma part, l'expérience et la pratique m'ont montré que:
- Le plus secure est de bosser en transaction
- Connecter et déconnecter ne coûte pas si cher
- Que bien isoler ses unités de travail fait gagner du
temps et diminue les risques de perte de données
En bref, j'ouvre et je ferme en début et fin de fonctions.
J'englobe les traitements pour lesquels je veux être consistant
dans un Begintrans / Commit trans.
Ce que dis la s'applique à VB mais aussi à tout programme
mnipulant une BDD.
Pour le fun, j'avais écrit une petite nouvelle pour illustrer
les dangers de ne pas utiliser les transacations:
http://membres.lycos.fr/jeanmarcn/begintrans.htm
<HS>
Je fais des essais de mon serveur web en VB.
Vous pouvez aussi visiter:
http://myjmnhome.dyndns.org/begintrans.htm
Ca me permettra de tester mon serveur en même temps :-)
</HS>
<HS>
Je fais des essais de mon serveur web en VB.
Vous pouvez aussi visiter:
http://myjmnhome.dyndns.org/begintrans.htm
Ca me permettra de tester mon serveur en même temps :-)
</HS>
<HS>
Je fais des essais de mon serveur web en VB.
Vous pouvez aussi visiter:
http://myjmnhome.dyndns.org/begintrans.htm
Ca me permettra de tester mon serveur en même temps :-)
</HS>
