Voici mon code pour importer des données d'Excel dans Access. Vous pouvez vous y référer : (Assurez-vous que les fichiers Excel et Access sont dans le même dossier) ```python importer des pandas en tant que PD #Lire le fichier Excel excel_data = pd.read_excel('chemin du fichier/nom du fichier.xlsx') # Connectez-vous à la base de données Access access_conn = pyodbc.connect('DRIVER={Pilote Microsoft Access (*.mdb, *.accdb)};DBQ=chemin du fichier/nom de la base de données.accdb') curseur = access_conn.cursor() # Insérer des données Excel dans le tableau Access pour l'index, ligne dans excel_data.iterrows() : curseur.execute("INSÉRER DANS
Approvisionnement au prix normal et maintenance par lots des clients Public Sub ()
Si Cellules(4, 6) = ""Alors
MsgBox "Veuillez sélectionner en premier le système qui nécessite un prix de maintenance !", vbInformation
Cellules (4, 6).Sélectionnez
Quitter le sous-marin
Autre
Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k sont des variables entières sht est une variable objet de feuille de calcul Excel, pointant vers une certaine feuille de calcul
Dim cn As New ADODB.Connection 'Définissez l'objet de liaison de données et enregistrez les informations de la base de données de connexion, veuillez d'abord ajouter la référence ADO
;Dim rs As New ADODB.Recordset 'Définissez l'objet recordset et enregistrez la table de données
Dim strCn As String, strSQL As String 'Variable de chaîne
Dim mdbFile As String
En cas d'erreur, allez à add_err
mdbFile = ActiveWorkbook.Path & "DY_DATA.mdb"
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile 'Définir la chaîne de lien de base de données
cn.Open strCn 'Établissez une connexion avec la base de données, en cas de succès, renvoyez l'objet de connexion cn
Set rs = Nouveau ADODB.Recordset
rs.Open "liste de prix normale client direct dbl", cn, adOpenKeyset, adLockOptimistic
k = Cellules (4, 8) + 8
Pour i = 9 To k
Si Cellules(i, 7) = ""Alors
Autre
rs.AddNew
rs(1) = Cellules(i, 2)
rs(2) = Cellules(i, 7)
rs(3) = Cellules(i, 8)
rs.Update
Cellules(i, 7) = ""
Cellules(i, 8) = ""
Fin si
Suivant
MsgBox "Enregistrement de données ajouté avec succès !", vbInformation
Cellules (4, 6).Sélectionnez
ActiveWorkbook.RefreshAll
add_exit :
Quitter le sous-marin
Fin si
add_err :
MsgBox Err() & vbCrLf & Erreur()
Reprendre add_exit
Fin du sous-marin
Vous pouvez indiquer que vous pensez que la base de données est sécurisée en y ajoutant une signature numérique et que son contenu est crédible. Cela aide les utilisateurs de la base de données à déterminer s'ils doivent faire confiance à la base de données et à son contenu.
Le processus utilisé pour signer numériquement une base de données dépend du fait que la base de données utilise un format de fichier Microsoft Office Access 2007 (tel qu'un fichier .accdb) ou un format antérieur (tel qu'un fichier .mdb). Toutefois, les deux processus nécessitent l’utilisation de certificats de sécurité.
Vous pouvez utiliser des certificats de sécurité commerciaux ou créer les vôtres. Cette rubrique explique comment créer votre propre certificat de sécurité.
Avant de commencer
Pour ajouter une signature numérique, vous devez d'abord obtenir ou créer un certificat de sécurité. Considérez un certificat de sécurité comme un stylo de signature pour les signatures numériques ou votre propre sceau de cire à cacheter.
Si vous n'avez pas de certificat de sécurité, vous pouvez utiliser l'outil SelfCert (inclus avec Microsoft Office) pour en créer un.
Créer un certificat auto-signé
1. Dans Microsoft Windows, cliquez sur le bouton « Démarrer », pointez sur « Tous les programmes », « Microsoft Office », « Outils Microsoft Office », puis cliquez sur « Certificat numérique pour les projets VBA ».
- ou -
Accédez au dossier où se trouvent les fichiers du programme Office Professionnel 2007. Le dossier par défaut est le lecteur : Program FilesMicrosoft OfficeOffice12. Dans ce dossier, recherchez et double-cliquez sur "SelfCert.exe".
La boîte de dialogue « Créer un certificat numérique » apparaîtra.
2. Dans la case "Nom de votre certificat", saisissez le nom du nouveau certificat de test.
3. Cliquez deux fois sur "OK".
Remarque Si vous ne voyez pas la commande Certificats numériques pour le projet VBA ou si vous ne trouvez pas SelfCert.exe, vous devrez peut-être installer SelfCert.
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!