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