Discussion :

[MITCH31]

Salut,

je veux donc lier une source de données à un groupe de contrôle TextBox d'ou mon code :

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
 
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set bnd = New BindingCollection
Dim SQL As String
 
MonSQL = "SELECT * FROM CONTACT where donnees.id=13328"
cn.Provider = "MSDataShape"
cn.Open ChaineADO
 
' constante ChaineADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & PathDataBase
 
rs.CursorLocation = adUseClient
rs.Open MonSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
rs.MoveFirst
If rs.EOF <> True Or rs.BOF <> True Then
Set bnd.DataSource = rs
 
With bnd
    .Add MyText(0), "Text", "Nom", , "nom"
    .Add MyText(1), "Text", "prenom", , "prenom"
    .Add MyText(2), "Text", "adresse", , "adresse"
End With
End If

Groupe de contrôle : MyText (index 0 to 2)

Message d'erreur : "Erreur #13 - Type Incompatible"
(en plus je n'ai pas pu installé LE MSDN + de CD)

je pense avoir suivi ttes les instructions du tutoriel ?? :

[MITCH31]

Manque la déclaration :

Code :

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

1
2
 
Dim bnd as BindingCollection

[jacma]

Manque la déclaration :

Code :

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

1
2
 
Dim bnd as BindingCollection

C'est la cause de l'erreur que tu as trouvée ou un complément à ta question?