Discussion :

[kakikaki]

salut tout le monde
j'ai un champ hypertexte d'une table de ma base de donnees que je vais associé à un objet BindingCollection mais je n'ai pas su quoi mettre dans le champ propertyname de la methode add

bnd.add txtedit3), "?????", "lien", , "lien"

et merci encore de votre aide

[leroissejp]

Bonjour,
Voici le seul exemple que j'ai trouvé dans l'aide de VB. Ce code utilise la base de données Nwind.mdb, fournie dans VB 6, place deux TextBox sur ta Form.

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
 
Option Explicit
 
Private colBndNwind As New BindingCollection
Private rsNwind As New ADODB.Recordset
Private cn As New ADODB.Connection
 
Private Sub Form_Load()
 
   ' Définit les paramètres de l'objet Connection.
   With cn
      ' La connexion suivante peut ne pas fonctionner
      ' sur votre ordinateur.
      ' Modifiez-la pour trouver le fichier Nwind.mdb
      ' fourni avec Visual Basic.
      .Provider = "Microsoft.Jet.OLEDB.3.51"
      .Open App.Path & "\Nwind.mdb"
   End With
 
   ' Ouvre le jeu d'enregistrements.
   rsNwind.Open "Select * From Produits", cn
 
   ' Définit le jeu d'enregistrements comme source de
   ' données (DataSource) de la collection Bindings.
   Set colBndNwind.DataSource = rsNwind
 
   ' Ajoute à la collection Bindings.
   With colBndNwind
      .Add Text1, "Text", "Nom du produit", , "produits"
      .Add Text2, "Text", "Réf produit", , "produits"
   End With
 
   ' Imprime les propriétés des objets de la collection.
   Dim bndObj As Binding
   For Each bndObj In colBndNwind
      Debug.Print "DataField", "PropertyName", "Key"
      Debug.Print bndObj.DataField, bndObj.PropertyName, bndObj.Key
      Debug.Print
   Next
End Sub
 
Private Sub Form_Click()
   ' Passe à l'enregistrement suivant en cliquant sur la feuille.
   rsNwind.MoveNext
End Sub

jpleroisse

[kakikaki]

merci pour votre aide
mais par exemple dans la ligne

Code :

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

.Add Text1, "Text", "Nom du produit", , "produits"

le champ nom du produit est de type text

ma question est si ce champ etait de type lien hypertexte qu'est ce que je vais mettre au lien du parametre "Text"
et merci

[random]

je te joins 3 routines dont tu pourras t'inspirer

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
 
Function creprop(x As Variant) As Integer
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties.Append (x)
End Function
 
Function litprop(x As String) As Date
Dim u As Database
Set u = CurrentDb
litprop = u.Containers!Databases.Documents("userdefined").Properties(x).Value
End Function
 
 
Function ecritprop(x As String, y As Variant) As Boolean
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties(x).Value = y
End Function[quote][/quote]

[kakikaki]

merci pour votre aide
mais pouvez vous m'eclaircir un peu l'utilite de ces fonctions
et merci

[AlainTech]

kakikaki,

Veux-tu bien lire tes messages privés, s'il te plaît.