Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

mehrere Listen zu einer Datenbank zusammenfügen

Frage Microsoft Microsoft Office

Mitglied: joe

joe (Level 1) - Jetzt verbinden

13.02.2008, aktualisiert 25.02.2008, 3923 Aufrufe, 3 Kommentare

Problem:
mehrere Listen mit jeweils
drei feldern: Name; beschreibung, Kennzeichen

Name und Beschreibung sind gleich; das kennzeichen unterscheidet sich jeweils
listenweise, d.h. innerhalb einer liste gibt es nur EIN kennzeichen.

Ziel:
eine einzige liste mit dem Aufbau:
Name, Beschreibung und "haken" bei kennzeichen eins, kennzeichen zwei.


Beispiel:
liste-01:
name: beschreibung Kennzeichen_1
müller Sachbearbeiter Brille
muster Pfoertner Brille

liste-02:
name: beschreibung Kennzeichen_2
müller Sachbearbeiter Auto
meier lieferant Auto


liste-03:
name: beschreibung Kennzeichen_2
schmidt Sachbearbeiter schluessel
meier lieferant schluessel


gewünschtes ergebnis:
liste-all:
name: beschreibung Brille Auto schluessel
müller Sachbearbeiter x X
muster Pfoertner x
meier lieferant x x
schmidt Sachbearbeiter x

hat jemand einen Vorschlag?
Mitglied: misterdemeanor
14.02.2008 um 16:37 Uhr
Grüß Dich Joe,

da sträuben sich einem Access-Entwickler und jedem der etwas mit relationalen Datenbanken zu tuen hat die Haare *fg

Nichtsdestotrotz versuche ich Dir mal zu helfen. Wenn Deine Angaben originalgetreu sind sollte es reichen folgenden Code in ein Modul zu pasten und laufen zu lassen.

Ganz wichtig dabei ist das Du in der leeren Tabelle "liste-all" name und bezeichnung als gemeinsamen Primäschlüssel deklarierst-->Tabellenentwurfsansicht-->die beiden Zeilen name und beschreibung gleichzeitig markieren-->Mausrechtsklick-->Primärschlüssel.

01.
Public Function JoinTables() 
02.
  Dim sql As String 
03.
  Dim i As Integer 
04.
    DoCmd.SetWarnings False 
05.
    For i = 1 To 3 
06.
      sql = "INSERT INTO [liste-all] ( name, beschreibung )" _ 
07.
        & " SELECT [liste-0" & i & "].name, [liste-0" & i & "].beschreibung" _ 
08.
        & " FROM [liste-0" & i & "];" 
09.
      DoCmd.RunSQL sql 
10.
      Select Case i 
11.
        Case 1 
12.
          sql = "UPDATE [liste-01] INNER JOIN [liste-all] ON ([liste-01].beschreibung = [liste-all].beschreibung) AND ([liste-01].name = [liste-all].name) SET [liste-all].Brille = True;" 
13.
        Case 2 
14.
          sql = "UPDATE [liste-02] INNER JOIN [liste-all] ON ([liste-02].beschreibung = [liste-all].beschreibung) AND ([liste-02].name = [liste-all].name) SET [liste-all].Auto = True;" 
15.
        Case 3 
16.
          sql = "UPDATE [liste-03] INNER JOIN [liste-all] ON ([liste-03].beschreibung = [liste-all].beschreibung) AND ([liste-03].name = [liste-all].name) SET [liste-all].schluessel = True;" 
17.
      End Select 
18.
      DoCmd.RunSQL sql 
19.
    Next i 
20.
    DoCmd.SetWarnings True 
21.
End Function
Hoffe es hilft.

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: joe
19.02.2008 um 14:47 Uhr
danke erstmal,
werde es morgen mal testen.
Bitte warten ..
Mitglied: misterdemeanor
25.02.2008 um 10:56 Uhr
Grüß Dich joe,

hat sich Dein Problem bereits gelöst? Dann mal einen nettgemeinten Hinweis auf FAQ:Wie setze ich einen Beitrag auf "Gelöst" oder "Erledigt"?

Ansonsten sag worans noch hapert

BG, Felix -misterdemeanor-
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Mehrere.csv Dateien zusammenfügen zu einer Datei mit bat (4)

Frage von Piotrney zum Thema Batch & Shell ...

Batch & Shell
gelöst Zusammenführen mehrere Felder, Datei auswählen (3)

Frage von GeoSem zum Thema Batch & Shell ...

VB for Applications
Von einer Exceltabelle Daten in eine Informix Datenbank übertragen (4)

Frage von Voosjey zum Thema VB for Applications ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (18)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...