Faire un update en VBA
juliensmarties
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
Archi-dessin Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
Archi-dessin Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aurais souhaité savoir comment faire un UPDATE en VBA car je souhaiterais mettre a jour ma base de donnée.
Pour mettre une donnée en base je procède comme suit :
Dim connect As ADODB.Connection 'Preparation de la chaine de connection connect
Set connect = New ADODB.Connection 'Creation de la chaine de connection connect
'Connection à la base de donnees
Dim cheminbdd As String
cheminbdd = Replace(ActiveDocument.FullName, "\doc_install.dot", "\base1.mdb")
connect.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & cheminbdd
Dim req1 As New ADODB.Recordset
req1.Open "select * from page1", connect, adOpenKeyset, adLockOptimistic 'Ma table est selectionnée ds la bd qui est ds connect
req1.AddNew 'ajout d'un element
req1("nomprojet") = D1.FormFields("nomprojet").TextInput.Default
req1.Update
req1.Requery
Comment je peux modifié une donnée de ma base1.mdb en m'appuyant sur ce code la. Je pense qu'en modifiant la ligne en gras ça devrais etre faisable mais comment ?
Merci de votre aide
J'aurais souhaité savoir comment faire un UPDATE en VBA car je souhaiterais mettre a jour ma base de donnée.
Pour mettre une donnée en base je procède comme suit :
Dim connect As ADODB.Connection 'Preparation de la chaine de connection connect
Set connect = New ADODB.Connection 'Creation de la chaine de connection connect
'Connection à la base de donnees
Dim cheminbdd As String
cheminbdd = Replace(ActiveDocument.FullName, "\doc_install.dot", "\base1.mdb")
connect.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & cheminbdd
Dim req1 As New ADODB.Recordset
req1.Open "select * from page1", connect, adOpenKeyset, adLockOptimistic 'Ma table est selectionnée ds la bd qui est ds connect
req1.AddNew 'ajout d'un element
req1("nomprojet") = D1.FormFields("nomprojet").TextInput.Default
req1.Update
req1.Requery
Comment je peux modifié une donnée de ma base1.mdb en m'appuyant sur ce code la. Je pense qu'en modifiant la ligne en gras ça devrais etre faisable mais comment ?
Merci de votre aide
A voir également:
- Faire un update en VBA
- Windows update bloqué - Guide
- Winget update - Guide
- Asus live update - Télécharger - Utilitaires
- Wsus offline update - Télécharger - Systèmes d'exploitation
- Nettoyage windows update - Guide