Hoe te het invoegen van een Record in de Database van de VBA

VBA is een programmeertaal ontwikkeld door Microsoft voor gebruik binnen een aantal Microsoft-producten, met inbegrip van Microsoft Office. Programmeurs kunnen databases maakt in één programma, zoals Access, en vervolgens het invoegen van gegevens in de database vanuit een andere toepassing, zoals Excel. Toegang tot een database voor het invoegen van een record in het van VBA vereist een verbinding met de database in uw VBA-code; vaststelling en invoegen van records aan een database in VBA is eenvoudig genoeg voor een beginnende programmeur om te bereiken in een paar stappen.

• Open Microsoft Excel.

• Klik op 'Tools' "Macro" en vervolgens op 'Visual Basic'. Hiermee opent u de VBA-programmeeromgeving.

• Klik op "Invoegen" en "Module." U bent nu in een programmering codemodule.

• Typ of kopieer en plak de volgende subprocedures in de codemodule:

  Sub ADOFromExcelToAccess()

  ' Hiermee worden gegevens uit het actieve werkblad geëxporteerd naar een tabel in een Access-database

  ' deze procedure moet worden bewerkt voor gebruik

  Dim cn als ADODB. Verbinding, rs als ADODB. Recordset, r As Long

   ' connect to the Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:\FolderName\DataBaseName.mdb;" ' open a recordset Set rs = New ADODB.Recordset rs.Open "TableName", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing 

  End Sub

  De sjabloon code maakt een verbinding met een VBA-Access-database en voegt diverse records binnen het. Zorg ervoor dat ter vervanging van de mapnaam en de naam van de database met uw werkelijke database en de naam van de map hiervoor voor werkzaamheden.