Discussion :

[lazerdev]

Bonjour,
Je veux savoir svp comment exécuter une requête d’insertion ou Update dans une base de données Access en utilisant ADO, j’ai ‘‘réussi’’ à exécuter la requête Select, mais pas une requête de mise à jour, grâce au code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
   Dim strQ as String
   StrQ = “Select * from table”
   Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
    con.Open
 
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    rs.Open strQ, con, adOpenDynamic

Merci d’avance.

[khany]

Il y a plein de cours sur ADO dans la page Tutoriel VB !

Voici un petit exemple mais pour le reste, le principe du forum est de lire les tutoriels avant de poser une question solutionnée par ces cours !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 With Adodc4.Recordset
                .AddNew
                .Fields(0) = MaVariable
                .Fields(1) = ....
                   ....
 
 
                .Fields(17) = ...
                .UpdateBatch
            End With

Que ce soit avec un Adodc ou un Recordset, c'est la même chose

[lazerdev]

Merci de votre réponse.
j'ai trouvé une autre solution, on remplace tout simplement la requête select par insert ou update :

Code :

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

1
2
 
rs.Open “insert into table(fields) values(myVars)”, con, adOpenDynamic, adLockPessimistic

Mais votre code reste plus pratique à utiliser, il permet de dépasser les erreurs si l’utilisateur introduit des caractères spéciaux qui déclenchent des exceptions exemple «’»

Mes salutations

[Phifi]

Oui, très pratique pour les tables contenant 3 champs... à saisir en SQL avec 80 champs, faut pas se planter