Voila
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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?