Wie ein Datensatz in die Datenbank einfügen VBA

Mitglieder-Login

InformationenVisual Basics Programmierung

So erstellen Sie ein VBA- Makro In den meisten Microsoft Office-Anwendungen , Makros können Ihnen helfen, sich wiederholende Aufgabe
Wie man Services mit WCF synchronis… Microsoft Sync Framework ist Daten -Synchronisations-Software verwendet, um Applikationsdaten mit Da
Wie man Bilder zu blättern Wenn Sie mit mit statischen , sich nicht bewegenden Bilder auf Ihrer Website langweilt , Einbeziehun
Wie Kurzschrift Maschinenschreiben … Mit Kurzschrift schreiben, können Sie schnell Briefe , Essays und andere wichtige Dokumente. Alles,

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie ein Datensatz in die Datenbank einfügen VBA

VBA ist eine Programmiersprache, die von Microsoft für den Einsatz in einer Reihe von Microsoft-Produkten , einschließlich Microsoft Office entwickelt. Programmierer können Datenbanken in einem Programm zu erstellen , z. B. Access , und fügen Sie dann Daten in die Datenbank aus einer anderen Anwendung , wie zB Excel. Zugriff auf eine Datenbank , um einen Datensatz in sie einfügen von VBA ist eine Verbindung mit der Datenbank in Ihrem VBA-Code , Einrichtung und Einfügen von Datensätzen in einer Datenbank in VBA ist leicht genug für einen Anfänger Programmierer in wenigen Schritten zu erreichen . Anleitung
1

Öffnen Sie Microsoft Excel.
2

Klicken Sie auf " Extras", " Makro ", und klicken Sie dann auf " Visual Basic ". Dies öffnet den VBA Programmierumgebung.
3

Klicken Sie auf " Einfügen" und "Modul ". Sie befinden sich nun in einem Programmcode Modul
4

Typ oder Kopieren und fügen Sie die folgenden Unterprozeduren im Code-Modul : .

Sub ADOFromExcelToAccess ()

Exporte Daten aus dem aktiven Arbeitsblatt zu einer Tabelle in einer Access-Datenbank

'Diese Prozedur muss bearbeitet werden, bevor verwenden

Dim cn Wie ADODB.Connection , rs As ADODB.Recordset werden , r As Long

', um die Access-Datenbank verbinden

Set cn = New ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
< p> "Data Source = C: \\ Ordnername \\ databasename.mdb ; "

' öffnen ein Recordset

Set rs = New ADODB.Recordset

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

' alle Datensätze in einer Tabelle

r = 3' der Beginn Zeile im Arbeitsblatt

Do While Len ( Range (" A " & r ) . Formula) > 0

' wiederholen, bis erste leere Zelle in Spalte A

. AddNew " einen neuen Datensatz erstellen

' Add Werte zu jedem Feld des Datensatzes

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

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

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

' weitere Felder hinzufügen , wenn nötig ...

. Aktualisieren ' speichert den neuen Datensatz

End With

r = r + 1' nächste Zeile

Schleife

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing End Sub

Der Code erstellt eine Verbindung zu ein VBA Access-Datenbank und fügt verschiedene Datensätze innerhalb es . Achten Sie darauf, den Namen des Ordners und Name der Datenbank mit Ihrem tatsächlichen Datenbank-und Ordnernamen für diese Arbeit zu ersetzen.