cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 3 nov. 2004 à 07:23
Pour rajoutter des champs, il te faut passer par un recordset, et utiliser la propriétés Value, puis un appel à AddNew pour mettre à jour ta base.
Le plus simple, c'est que tu aille voir mon tutoriel sur ProgOtoP qui porte sur DAO, mais le principe reste le même pour ADO, à part qu'il est un tout petit peu plus compliqué pour avoir un recordset.
_______________________________________
klexus
Messages postés11Date d'inscriptionmardi 10 août 2004StatutMembreDernière intervention22 janvier 2005 3 nov. 2004 à 14:38
Slt
il te serais facile d'utliser un DAO
ajoute d'abord la référence MS DAO 3.6 si tu utilise access 2000
crée un module utlisation sur ton formulaire 'form1'
'Module de base
Option explicit
public massession as workspace
public base as database
public client as recordset
Sub main()
On Error Resume Next
'ouverture de la procédure principale
'ouverture de la base de données
Set massession = DBEngine.Workspaces(0)
Set base = massession.OpenDatabase(App.Path + "\bdd.mdb")
Debug.Print App.Path
'tu ouvre ta table client
Set Clients= base.OpenRecordset("Client")
'ouverture du form1
form1.Show
End Sub
'Dans le form1
dim Clients as recordset
Function inserer_clients() As Long
dim Clients as recordset
Private Sub cmdvalider_Click()
on error goto err 'gestion des erreurs en cours
call inserer_clients
err:
Select Case err.Number
Case 0
MsgBox "enregistrement effectué avec succès", vbInformation
Case Else
MsgBox err.Number & " : " & err.Description, vbInformation, "Erreur d'enrégistrement"
End Select
End Sub
'test ce code ça doit marcher sinon envoye moi un mot à cette adresse : cfiossi@yahoo.fr