Discussion :

[Peper89]

Bonsoir,
J'ai pas mal cherché mais je n'ai tjrs pas trouvé la solution a mon probleme donc je fais appel a vous !

Je voudrais executer une requete SELECT lors d'un clic sur un bouton et afficher son resultat dans le champ texte15.text

Mon code :

Private Sub recherche_contrat_Click()

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim uSQL As String
Dim sSQL As String

cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;" & _
"Data Source=.\Projet\bdd_projet.accdb;"

uSQL = "Update contrat Set num_contrat = 'test2' Where id_contrat = 1"
cnn.Execute uSQL

sSQL = "Select num_contrat From contrat Where id_contrat = 2"

rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Source = sSQL
rs.Open

<=== Afficher le contenu de rs dans texte15.text ===>

cnn.Close


End Sub

[Invité]

Bonjour
Tu peux peut être t'inspirer de ce tuto:
http://jdgayot.developpez.com/tutori...ultats-labels/

Il n'est pas bâti sur Ado mais le principe reste le même.