Discussion :

[vlksoft]

Bonjour à tous,

j'ai une application dans vb6 avec une bdd access. Et dans cette base j'ai une table qui contient au plus 10 enregistrements. Et ces données sont liées à vb6 par un adodc. Et je voudrais qu'au moment où la souris passe au dessus d'un bouton, que les données de cette table me soient affichées dans l'info-bulle. Comment pourrai-je réaliser celà.

à tantôt

[ProgElecT]

affichées dans l'info-bulle

vois la propriété .ToolTipText de ton CommandButton

[vlksoft]

Merci pour la réponse

ce que je veux, c'est avoir une piste de solution pour le réaliser. Comment charger mon recordset dans le ToolTipText?

[ProgElecT]

Plutôt que de réécrire un tuto ici, regardes celui-ci traitant de l'objet ADO.
Proposes un bout de code suite à sa lecture, on pourra toujours te donner un coup de mains si tu rencontres une difficulté d’adaptation à ce que tu désires faire.

[ProgElecT]

Il me semblait bien avoir vue ce que tu cherches quelque par.

Pour le ToolTipText, avec la possibilité de plusieurs lignes (et il y en a bien d'autres), ce lien, une contribution de hpfx.
Pour le reste, récupération des enregistrements dans une BD, voici un exemple, qui affiche les données dans l’info-bulle proposé par hpfx

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
'faire reference à : Microsoft ActiveX Data Objects 2.0 Library, msado20.tlb
'varibles pour manipulation de la base de données
Dim CheminDataBase As New ADODB.Connection
Dim TablES1 As New ADODB.Recordset
Dim CheminNomDelabase As String
Dim NomDeLaTable As String
 
'utilisation de la classe proposé par hpfx qui ce trouve ici
'http://www.developpez.net/forums/d608943/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vos-contributions-vb6/source-classe-prete-lemploi-tooltiptext-info-bulles/
Dim TT As CtoolTip
 
Dim EnCour As Boolean
Dim LeTitre As String, Infos As String
Private Sub Form_Load()
'***** à adapter ***************************************
CheminNomDelabase = "C:\PersoFrancis\BDpourEssais.mdb"
NomDeLaTable = "Principal"
'***** fini à adapter **********************************
 
EnCour = False
 
    'chargement de la classe CtoolTip
    Set TT = New CtoolTip
    'configuration minimum
    TT.DelayTime = 100 '  1/10 sec pour afficher
    TT.VisibleTime = 5000 ' reste affiché 5 sec
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If EnCour = True Then EnCour = False
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If EnCour = True Then Exit Sub
ChargeInfos
If LeTitre = "" Then Exit Sub
Call TT.Display(Command1.hwnd, LeTitre, Infos, TTIconInfo)
End Sub
 
Public Sub ChargeInfos()
Dim T As Integer
EnCour = True
LeTitre = "": Infos = ""
On Error Resume Next: CheminDataBase.Close: If Err.Number <> 0 Then On Error GoTo 0 Else On Error GoTo 0
CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite
On Error Resume Next
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & CheminNomDelabase & ";"
If Err.Number <> 0 Then
 On Error GoTo 0
 Command1.ToolTipText = "Impossible d'ouvrir la base de données source."
 Exit Sub
 Else
 On Error GoTo 0
End If
TablES1.Open NomDeLaTable, CheminDataBase, adOpenStatic, adLockPessimistic
If TablES1.EOF Then
 Command1.ToolTipText = "Impossible de trouver la table ''" & NomDeLaTable & "'' dans la base de données source."
 CheminDataBase.Close
 Else
 LeTitre = "ToolTipText de Command1"
 For T = 1 To TablES1.RecordCount 'ou bien choix de X enregistrements
  Infos = Infos & TablES1.Fields(6)
  If T <> TablES1.RecordCount Then Infos = Infos & vbCrLf
  TablES1.MoveNext: DoEvents
 Next T
 TablES1.Close: DoEvents
 CheminDataBase.Close
End If
End Sub

Je ne met pas le code de la classe, il te suffit de suivre le lien mentionné plus haut.

[vlksoft]

Bonjour monsieur ProgElecT,

Merci beaucoup pour votre aide. J'ai pris le code de la classe au lien que que vous m'avez donné et je l'ai collé dans un module de classe. Et ensuite dans la feuille, j'ai mis le code tel que vous me l'avaez donné moyennant des modifications sur le chemin de la base et le nom de la table. Et quand j'exécute, voici le message que j'obtiens:

Code :

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

"Type défini par l'utilisateur non défini

et la ligne suivante est sélectionnée:

Code :

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

Dim TT As CtoolTip

. Comment pourrai-je faire pour résoudre cela. Je vous signale aussi que cette référence

Code :

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

Microsoft ActiveX Data Objects 2.0 Library, msado20.tlb

est belle et bien cochée.

Merci

[SfJ5Rpw8]

bonjour,

le nouveau module de classe a t'il était nommé : CtoolTip ?

[vlksoft]

Je viens de le renommer "CToolTip" et maintenant rien ne se passe

[SfJ5Rpw8]

Tu as bien un bouton "Command1" sur ta feuille ? et tu passe bien la souris dessus ?

[vlksoft]

Si ça n'avait rien donné, c'est parce que le nom du bouton ne correspondait pas. Et quand j'ai renommé le nom du bouton command1 pour mettre le nom d'un des boutons sur la feuille, et quand la souris est allée au dessus et l'info-bulle a donné le message suivant:

Code :

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

"Impossible d'ouvrir la base de données source"

et c'est tout.

à tantôt

[ProgElecT]

Salut

Code :

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

1
2
3
4
'***** à adapter ***************************************
CheminNomDelabase = "C:\PersoFrancis\BDpourEssais.mdb"
NomDeLaTable = "Principal"
'***** fini à adapter **********************************

démare ton prog en faisant une suite de F8, dans le load vérifis bien que CheminNomDelabase prend la bonne valeur (en restant quelque instant sur cette varriable une info-bulle apparaît), car le message est declanché dans la procedure ChargeInfos, ligne

If Err.Number <> 0 Then
On Error GoTo 0
ici ====> Command1.ToolTipText = "Impossible d'ouvrir la base de données source."

donc soit le chemin de la BD n'est pas bon, soit le paramétre PROVIDER=Microsoft.Jet.OLEDB.3.51 n'est pas le bon pour ta BD.
Dis nous exactement quel style de BD tu utilises.

A+

[OhMonBato]

Peux tu mettre un point d'arret et nous dire quel est le code d'erreur exact stp ? Peux tu preciser quelle est la valeur de la variable "CheminNomDelabase" ?

[vlksoft]

Bonjour à tous,

ayant suivi vos conseils:

Pour ProgElecT
- en démarrant l'application par F8 et restant pendant un moment sur la variable, l'info-bulle me donne le message suivant:

Code :

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

CheminNomDelabase = ""

. Et la base de données que j'utilise est le MS ACCESS 2003

Pour OhMonBato
- en placant un point d'arrêt dans la procédure Form_load(), il n y a aucune ligne provoquant un bug en mode pas à pas.

[ProgElecT]

Provisoirement

Code :

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

1
2
3
4
5
6
7
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & CheminNomDelabase & ";"
If Err.Number <> 0 Then
 On Error GoTo 0
 ''''''''''''' Command1.ToolTipText = "Impossible d'ouvrir la base de données source."
 MsgBox Err.Number & & vBcrlf & "  Err.Description" '<===== provisoirement
 Exit Sub
 Else

et dis nous le message d'erreur

[OhMonBato]

C'est un peu la que je voulais mettre le point d'arret, pas vraiment dans le form_load
Pour access 2003, ce n'est pas Jet.OleDB4.0 ?

[vlksoft]

J'ai placé dans la procédure provisoirement les lignes de code que vous m'avez donné et voici ce que le msgbox donne:

Code :

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

1
2
3
 
0
Err.Description

[SfJ5Rpw8]

bonjour, enlève la ligne :

Code :

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

On Error GoTo 0

avant le message box , cette ligne réinitialise l'objet Err...

[vlksoft]

En gardant toujours la modification provisoire apportée par ProgElecT, mettant en commentaire la ligne

Code :

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

On Error GoTo 0

j'obtiens ce message

Code :

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

-2147467259   Err.Description

[ucfoutu]

Bonjour,

Enlève les guillemets dans

Code :

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

MsgBox Err.Number & & vBcrlf & "  Err.Description"

[vlksoft]

J'ai enlevé les guillemets et la ligne reste en rouge (erreur de synthaxe)