Ako vložiť záznam do VBA databázy

VBA je programovací jazyk vyvinutý spoločnosťou Microsoft pre použitie v rámci radu produktov spoločnosti Microsoft , vrátane Microsoft Office . Programátori môžu vytvárať databázy v jednom programe , ako je napríklad aplikácia Access a potom vložiť dáta do databázy z inej aplikácie , napríklad Excel . Prístup k databáze vložiť záznam do neho z VBA vyžaduje pripojenie k databáze vo Vašom kóde VBA , vytvorenie a vloženie záznamov do databázy v jazyku VBA je ľahké pre nováčika programátora dosiahnuť v niekoľkých krokoch . Pokyny dovolená 1

Otvorte aplikáciu Microsoft Excel .
2

Kliknite na " Nástroje " , " Makro " a potom kliknite na tlačidlo " Visual Basic " . Tým sa otvorí programovacie prostredie VBA .
3

Kliknite na " Vložiť " a " modul " . Teraz ste v programovacom module kóde
4

Zadajte alebo skopírujte a vložte nasledujúci subprocedures v module kódu : .

Sub ADOFromExcelToAccess ( )

" vývoz údaje z aktívneho listu do tabuľky v databáze programu Access

" Tento postup musí byť prispôsobovaný pred použitím

Dim cn As ADODB.Connection , rs As ADODB.Recordset , r tak dlho ,

' pripojiť k databáze programu Access

Set cn = New ADODB.Connection

cn.Open " Provider = microsoft.jet.oledb.4.0 , " & _

" Data Source = C : \\ foldername \\ DataBaseName.mdb , "

" otvoriť sadu záznamov

Set rs = New ADODB.Recordset

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

" všetky záznamy v tabuľke

r = 3 ' začiatok riadku v liste

robiť , keď Ľan ( Range ( " " & r) . Formula ) > 0

" opakovať až do prvej prázdnej bunky v stĺpci

RS

. addnew " vytvoriť nový záznam

' pridať hodnoty do jednotlivých polí v zázname

. Pole ( " FieldName1 " ) = Range ( " A " & r) . Hodnota

. Pole ( " FieldName2 " ) = range ( " B " & r) . Hodnota

. Pole ( " FieldNameN " ) = Range ( " C " a r) . Hodnota

" v prípade potreby pridať viac polí ...

. Aktualizácia " ukladá nový záznam

končiť

r = r + 1 " ďalší riadok

Loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

šablóny kódu vytvorí pripojenie k databázy Access VBA a vloží rôzne záznamy v ňom . Uistite sa , že nahradiť názov zložky a názov databázy s vašou vlastnou databázy a názov priečinka pre túto prácu .

• Predchádzajúca strana: Ako stiahnuť byte súboru Byte vo VB.NET 
• Ďalšia strana: Ako odstrániť prečiarknutie textu v dokumente v jazyku VBA