Lier Collection Binding et Groupe de TextBox
Salut,
je veux donc lier une source de données à un groupe de contrôle TextBox d'ou mon code :
Code:
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 ?? :?: