Hvordan sette inn en post Into the VBA Database

VBA er et programmeringsspråk utviklet av Microsoft for bruk innenfor en rekke Microsoft-produkter, inkludert Microsoft Office. Programmerere kan lage databaser i ett program, for eksempel Access, og deretter sette inn data i databasen fra et annet program, for eksempel Excel. Få tilgang til en database for å sette inn en post inn i den fra VBA krever tilkobling til databasen innen VBA kode; etablere og sette inn poster til en database i VBA er enkelt nok for en nybegynner programmerer å oppnå i noen få trinn.

Bruksanvisning

1 Åpne Microsoft Excel.

2 Klikk "Verktøy", "makro" og deretter "Visual Basic." Dette vil åpne VBA programmering miljø.

3 Klikk "Sett inn" og "Module". Du er nå i en programmeringskode modul.

4 Skriv eller kopier og lim inn følgende subprocedures i koden modulen:

Sub ADOFromExcelToAccess ()

'Eksport data fra det aktive regnearket til en tabell i en Access-database

'Denne prosedyren må redigeres før bruk

Dim cn As ADODB.Connection, retten ADODB.Recordset, r As Long

' connect to the Access database

Sett cn = Ny ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = C: \ Mappe \ DataBaseName.mdb;"

'Åpne et recordset

Set rs = Ny ADODB.Recordset

rs.Open "Tabellnavn", cn, adOpenKeyset, adLockOptimistic, adCmdTable

"Alle poster i en tabell

r = 3 'starten rad i regnearket

Gjøre mens Len (Range ( "A" & r) .Formula)> 0

'Gjenta inntil første tomme cellen i kolonne A

med rs

.AddNew 'Opprette en ny post

"Legge til verdier i hvert felt i posten

.Fields ( "FieldName1") = Range ( "A" & r) .Value

.Fields ( "FieldName2") = Range ( "B" & r) .Value

.Fields ( "FieldNameN") = Range ( "C" & r) .Value

"Legge til flere felt hvis det er nødvendig ...

.Update 'Lagrer den nye rekord

End With

r = r + 1 'neste p

Loop

rs.Close

Set rs = Nothing

cn.Close

Sett cn = Nothing

End Sub

Koden mal skaper en forbindelse til en VBA Access database og setter ulike poster i den. Sørg for å erstatte mappenavnet og databasenavn med det faktiske database og mappenavn for at dette skal fungere.