Les sujets:

Les partenaires publicitaires:

Réponses populaires

Questions connexes

Les partenaires publicitaires:

Comment insérer un enregistrement dans la base de données VBA

VBA est un langage de programmation développé par Microsoft pour une utilisation dans un certain nombre de produits Microsoft, y compris Microsoft Office. Les programmeurs peuvent créer des bases de données dans un programme, comme Access, puis insérer des données dans la base de données depuis une autre application, comme Excel. Accès à une base de données pour insérer un enregistrement en elle à partir de VBA nécessite une connexion à la base de données au sein de votre établissement et VBA code- insérer des enregistrements à une base de données dans VBA est assez facile pour un programmeur novice à accomplir en quelques étapes.

Instructions

  1. Ouvrez Microsoft Excel.

  2. Cliquez "Outils," "Macro" puis cliquez sur "Visual Basic." Cela va ouvrir l'environnement de programmation VBA.

  3. Cliquez "Insérer" et "Module." Vous êtes maintenant dans un module de code de programmation.

  4. Tapez ou copiez et collez les subprocedures suivantes dans le module de code:

    Sous ADOFromExcelToAccess ()

    'Exportations données de la feuille de calcul active à une table dans une base de données Access

    'Cette procédure doit être modifié avant utilisation

    Dim cn As ADODB.Connection, endroit ainsi ADODB.Recordset, R As Long

    «Se connecter à la base de données Access
    Set cn = New ADODB.Connection
    cn.Open "Provider = Microsoft.Jet.OLEDB.4.0- " & _
    "Data Source = C: FolderName DataBaseName.mdb-"
    'Ouvrir un jeu d'enregistrements
    Set rs = New ADODB.Recordset
    rs.Open "TableName", Cn, adOpenKeyset, adLockOptimistic, adCmdTable
    'Tous les enregistrements d'une table
    r = 3 'la ligne de départ dans la feuille de calcul
    Do While Len (Range ("UN" & r) .Formula) gt; 0



    «Répéter jusqu'à ce que la première cellule vide dans la colonne A
    Avec rs
    .AddNew 'Créer un nouveau record
    'Ajouter des valeurs à chaque champ de l'enregistrement
    .(Champs"FieldName1") = Range ("UN" & r) .Value
    .(Champs"FieldName2") = Range ("B" & r) .Value
    .(Champs"FieldNameN") = Range ("C" & r) .Value
    'Ajouter des champs si nécessaire ...
    .Mise à jour 'stocke le nouveau record
    End With
    r = r + 1 'ligne suivante
    Boucle
    rs.Close
    Set rs = Nothing
    cn.Close
    Définir cn = Nothing

    End Sub

    Le modèle de code crée une connexion à une base de données Access et VBA insère divers dossiers à l'intérieur. Assurez-vous de remplacer le nom de dossier et le nom de base de données avec votre base de données et le dossier nom réel pour que cela fonctionne.

Questions connexes

» » » » Comment insérer un enregistrement dans la base de données VBA