Bonjour,  
 
Je voudrai savoir s'il est possible d'exporter des données contenues ds un Label vers une bd Access.  
En fait, le programme que je voudrai faire devrait +- se comporter comme suit:
Grace a des msgbox, je dois demander le N°, le nom et le prénom,... d'un client, ensuite je dois traiter ces données.
Ensuite, il faudrait que ces données obtenues via les msgbox se mettent l'une après l'autre ds un bd access. Et se mettre de manière a avoir une ligne par client ds Access.
 
Pensez vous que celà est possible... et si oui, une petite indication sur la manière à suivre serait la bienvenue
 
Merci

Pourquoi tu travailles pas directement dans access ?

Pcq je dois traiter les données. En fait, apès avoir introduit le n°, nom et compagnie, je devrai encoder le mode de paiement... et selon le mode de paiement, je devrais venir sur 2 formulaires différents avec des cases differentes à remplir.
Exemple:  
 
N° 111111
Nom: Azerty
Prénom: Qwerty
...
Mode paiement: compte bancaire
--> N° de compte
--> Montant
--> ...
 
ou  
N°222222
Nom: Albert
Prenom xxx
...
Mode paiement: assignation
--> Date
--> ...
 
Donc, moi le truc que j'imagine, c'est 2 button VB: un pour CB, un pour assignation, selon ça ... il pose les questions en msgbox adéquates et les dispose ds le formulaire adéquat (ça, je sais faire ) Mais en plus + il déposerait les données ds une BD access

Public cnnADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public rsADO As New ADODB.Recordset
 
'ce petit truc ca te permet d'ouvrir ta base qd ta feuille se load

Private Sub Form_Load()
 
    'configuration de la connexion à la base
    cnnADO.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnnADO.ConnectionString = App.Path & "\ta_base.mdb"
    cnnADO.Open
     
    'configuration de la commande ADO
    cmdADO.ActiveConnection = cnnADO
     
    'configuration du recordset ADO
    rsADO.CursorLocation = adUseClient
    rsADO.CursorType = adOpenDynamic
    rsADO.LockType = adLockPessimistic
     
End Sub
 
'ceci est une procédure simplifiant tes requetes SQL
Public Sub SQL(requete As String)
     
    cmdADO.CommandText = requete
     
    rsADO.Open cmdADO
     
End Sub
 
'donc pour faire une requete t'as juste à faire SQL("requete" )
'si ta commande SQL est du type insert ou create, tu fais:
'cmdADO.CommandText = "ta commande SQL"
'cmdADO.execute
 
PS: oublie pas de faire rsADO.close, pour pouvoir réutiliser la procédure SQL
PS2: il faut aussi fermer la connection à la base qd tu quittes l'appli, avec cnnADO.close

Merci beaucoup, j'essaie ça today.... et je reposte plus tard dés que je suis bloqué

Voilà.... et bien en fait, je suis perdu
Est-ce que je dois simplement retaper ce que tu as écris ou bien dois-je un peu modifier?
Moi ce que je voudrais bien c'est par exemple:
avec la commande suivante:
 
private sub CommandButton1_Click()
Dim Nom as string
Nom = Inputbox ("Introduisez le nom" )
Label5.caption = Nom
End sub
 
Et il devrait simplement copier "Nom" ds la base de donnée... ensuite, il mettra "Prénom" (la commande suivante) à droite sur la même ligne dans la bd.
Et ensuite, mettre le nom et prénom suivant à la ligne suivante.
 
Finalement, si tu pouvais m'expliquer la procédure pour fermer la bd. J'y connais rien au commande ADO...
 
Merci beaucoup

Euh avant toutes choses, tu connais le SQL?

Heu.... non, pas vraiment