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, 3914 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 ..
Neuester Wissensbeitrag
Ä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 Mehrere PDF-Dateien per Batch zusammenfügen (1)

Frage von Grimmli zum Thema Batch & Shell ...

Ubuntu
Streaming-Client für Icecast: mehrere Playlisten?

Frage von mariobeh zum Thema Ubuntu ...

Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (30)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...