![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
saarmike |
| E-Mail |
Dreher-Michael@gmx.net |
| Datum |
19. Januar 2015 um 12:19:02 |
| Frage |
Hallo zusammen,
ich habe da ein großes Problem und ich hoffe das mir hier jemand weiterhelfen kann!
Momentan muss ich einen automatischen Datenimport erstellen das aus folgenden
Komponenten besteht:
Tabelle mit Feldbezeichnungen der Importierten Datei und der Feldbezeichnung der Import-Tabelle,
dies sieht ungefähr so aus:
Street Strasse
City Ort
PostalCode PLZ
Jetzt möchte ich per VB die verknüpfte Excel-Tabelle an die Import-Tabelle anfügen,
was ungefähr so sollte aussehen.
Dim db As Database
Set MeineConn = CurrentProject.Connection
Set db = CurrentDb
Set recLokal = New ADODB.Recordset
On Error GoTo errorHandler
recLokal.Open ("dbo_tabImport"), MeineConn, adOpenStatic, adLockOptimistic
Set recLink = CurrentDb.OpenRecordset(Me.txtTempTable, dbOpenDynaset)
With recLink
recLink.MoveFirst
Do Until recLink.EOF
recLokal.AddNew
recLokal!Strasse = recLink!Feld das laut Tabelle zugewiesen ist
|
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang