Connection

Voila

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() Dim daoDB36 As Database Dim rs As Recordset Dim sPath As String sPath = "C:\base.mdb" Set daoDB36 = DBEngine.OpenDatabase(sPath) Set rs = daoDB36.OpenRecordset("table1") MsgBox ("Connection établie") End Sub

---

déja est ce correcte? en tout cas mon msgbox le di mais bon..;
après cella que dois-je mettre pour enregistrer dans ma table?

Salut,
je n'utilise pas la même méthode que toi pour me connecter à ma bdd:

Citation:

---

Set Connexion_bdd_access = New ADODB.Connection

commande = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\fichier\bdd.mdb"

Connexion_bdd_access.Open commande

---

Ensuite, pour executer une requête d'insertion:

Code:

---

1 2 3 4 5

Set var_resultat = New ADODB.Recordset   var_resultat.CursorLocation = adUseClient   var_resultat.Open var_requete, Connexion_bdd_access, adOpenForwardOnly, adLockReadOnly

---

Voila, si tu as des questions

Deux secondes:

La démarche, c'est :

1 Connection à la base de donées
2 Exécution d'une requête sur celle-ci.

La première partie du code sert à se connecter. Donc là, tu met ton C:\base\mdb

Ensuite dans ta requête, tu met ta table (cf. cours sur le SQL)

Code:

---

var_requete = "insert into table (champ1,champ2) values (valeur1,valeur2)

---

PS: Evite d'ouvrir un post pour chaque message.