Discussion :

[cuicui08]

Bonjour,

voilà, j'aimerais créé un formulaire d'ajout (sans l'aide de l'assistant). Le problème c'est que je ne sais pas quoi taper comme code pour les remplir. J'ai juste commencer la structure ainsi que quelques requêtes SQL. Quelqu'un pourrais m'aider svp ?? Merci

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
Sub AffichFiche(txtDes as TextBox)
    'Déclaration des variables
    Dim rstObj As ADODB.Recordset
    Dim objmyconn As ADODB.Connection
    Dim strSQL As String
    'connexion à la base de donnée
    Set objmyconn = connexion()
    Set rstObj = CreateObject("ADODB.RecordSet")
    'requête sql
    strSQL = " Select [designation] from OBJET ;"
    'Ouvre l'objet RecordSet
    rstObj.Open strSQL, objmyconn
 
    'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX
 
    rstObj.Close
    objmyconn.Close
    Set rstObj = Nothing
    Set objmyconn = Nothing
End Sub

[pc75]

Bonjour,

Si ton recordset ne contient qu'un seul enregistrement :

Code :

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

1
2
3
4
5
6
7
8
9
 
.....
rstObj.Open strSQL, objmyconn 
    'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX 
    if not rstObj.EOF then
       text1.text = rstObj("designation")
    end if
    rstObj.Close 
.....

Si tu as plusieurs enregistrements

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
.....
rstObj.Open strSQL, objmyconn 
    'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX 
    if not rstObj.EOF then
       do while not rstObj.EOF
          msgbox rstObj("designation")
          rstObj.MoveNext
       loop
    end if
    rstObj.Close 
.....