Discussion :

[misterbenj]

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?

[Kashiew]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kashiew]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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