Ecrire dans la table MS Access, python win32com

Question

Je joue avec win32com.client pour python pour essayer d'écrire/insérer une ligne dans une table MS Access. J'ai trouvé un exemple de connexion et d'interrogation d'une table Access here. En fait, leur code légèrement modifié pour mon propre usage est:

import win32com.client 

connection = win32com.client.Dispatch(r'ADODB.Connection') 
DSN = 'PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\\testdb.mdb;' 
connection.Open(DSN) 
recordset = win32com.client.Dispatch(r'ADODB.Recordset') 
recordset.Open('SELECT * FROM Table1', connection, 1, 3) 
fields_dict = {} 
for x in range(recordset.Fields.Count): 
    fields_dict[x] = recordset.Fields.Item(x).Name 
    print fields_dict[x], recordset.Fields.Item(x).Value 

Alors cela me dit comment exécuter une instruction select sur la table d'accès. J'aimerais pouvoir écrire des lignes et des données sur la table. Lorsque j'utilise win32com pour les produits MS Office, j'ai tendance à plonger dans le MSDN pages et essayer d'interpréter le code VBA pour le code python, mais celui-ci m'a un peu menotté. Coupler cela avec des exemples trouvés sur Internet après de longues recherches m'a fait me demander si cela est possible ou non? J'espère que quelqu'un là-bas a joué avec cela avant et a une suggestion.

Answer 1

Comme je l'ai mentionné dans mon commentaire à la question, en utilisant pyodbc (ou pypyodbc) et le pilote ODBC Access est une façon plus commune de faire des opérations de CRUD, mais si vous vraiment voulez utiliser win32com et OLEDB alors vous pourriez faire une UPDATE comme ceci:

import win32com.client 

# ADODB constants 
adVarWChar = 202 
adInteger = 3 
adParamInput = 1 

connection = win32com.client.Dispatch(r'ADODB.Connection') 
DSN = (
    r'PROVIDER=Microsoft.Jet.OLEDB.4.0;' 
    r'DATA SOURCE=C:\Users\Public\mdbTest.mdb;' 
    ) 
connection.Open(DSN) 
cmd = win32com.client.Dispatch(r'ADODB.Command') 
cmd.ActiveConnection = connection 
cmd.CommandText = "UPDATE Donors SET LastName = ? WHERE ID = ?" 
cmd.Parameters.Append(cmd.CreateParameter("?", adVarWChar, adParamInput, 255)) 
cmd.Parameters.Append(cmd.CreateParameter("?", adInteger, adParamInput)) 
cmd.Parameters(0).Value = "Thompson" 
cmd.Parameters(1).Value = 10 
cmd.Execute() 
connection.Close()