Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten der Abfrage ausgeben
zurück: Kalenderwochen weiter: if abfrage in sql Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Papa Schlumpf
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Mai 2004, 19:45
Rufname:
Wohnort: Langenlois (Österreich)

Daten der Abfrage ausgeben - Daten der Abfrage ausgeben

Nach oben
       

Also erstmals ich kenne mich in Acess nicht recht gut aus.Ich habe in einer Combobox den Namen aller meiner Komponisten stehen und erstelle jeweils mit dem ausgewählten Eintrag eine Abfrage.Jetzt wollte ich die Daten der Abfrage in eine Listbox bringen was aber nicht funktioniert.Wenn der Komponist zwei Stücke komponiert hat dann schreibt das Programm jeden der Titel in eine Zeile.zb.
5.Symphonie\6 Symphonie\7.Symphonie
wie mache ich das das programm das schön untereinanderschreibt ?und wie kann ich die Form so verknüpfen das nur die Daten der Abfrage angezeigt werden.Bitte helft mir !!
Code:
Private Sub Befehl18_Click()
    Dim Katalog As New ADOX.Catalog
    Dim SQLcmd As ADODB.Command
    Dim Recs As New ADODB.Recordset
    Dim Stück_Komponist As String
    Dim Titel_von_Noten As String

    Katalog.ActiveConnection = CurrentProject.Connection
    Set SQLcmd = New ADODB.Command
    Set Recs = New ADODB.Recordset
   
    Combo1.SetFocus                   'Combobox bekommt den Fokus'
    Stück_Komponist = Combo1.Text     'ausgewählten Eintrag der Variablen übergeben'
   
    With SQLcmd
        .CommandText = "Select ID,TiteldesNotenstückes,Komponist,Instrument,ArtdesNotenstückes,OrtderAufbewahrung,Seite,Anmerkung FROM Tabelle1 WHERE Komponist= '" & Stück_Komponist & "' ORDER BY Tabelle1.TiteldesNotenstückes"
    End With
    Katalog.Procedures.Append Stück_Komponist, SQLcmd
    DoCmd.OpenQuery Stück_Komponist     'Abfrage öffnen'
    Recs.Open "Select TiteldesNotenstückes from Tabelle1 WHERE Komponist= '" & Stück_Komponist & "'", CurrentProject.Connection
    'verwende die Spalte TiteldesNotenstückes der Abfrage Stück_Komponist und gebe Sie in der Listbox aus'
               
    Do Until Recs.EOF       'gehe das Recordset durch'
        Titel_von_Noten = Recs.GetString    'Datensätze an Variable übergeben'
        Liste30.AddItem Titel_von_Noten     'Datensätze in Listbox ausgeben'
    Loop
               
    With DoCmd
        .Close                         'Abfrage schließen'
        .DeleteObject acQuery, CurrentDb.QueryDefs(Stück_Komponist).Name    'Abfrage löschen'
        .SetWarnings True              'Warnungen einschalten'
    End With
   
    Recs.Close                         'Recordset schließen'
    Set SQLcmd = Nothing
End Sub
stpimi
Moderator Access


Verfasst am:
18. Mai 2004, 13:01
Rufname:
Wohnort: Graz


AW: Daten der Abfrage ausgeben - AW: Daten der Abfrage ausgeben

Nach oben
       

Warum verwendest Du nicht direkt die Eigenschaft RowSource des Listenfeldes und weist hier Deinen SQL-String zu?

Mfg, Michael
Papa Schlumpf
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Mai 2004, 17:21
Rufname:
Wohnort: Langenlois (Österreich)

Abfrage - Abfrage

Nach oben
       

Also ich glaube du hast überlesen das ich mich nicht recht mit access auskenne.Kannst mir das näher per Code !!erklären.Was bringt mir das wenn ich das so mache ??
Willi Wipp
Moderator


Verfasst am:
24. Mai 2004, 17:34
Rufname:
Wohnort: Raum Wiesbaden


Re: Daten der Abfrage ausgeben - Re: Daten der Abfrage ausgeben

Nach oben
       

Hi Papa Schlumpf,

das koennte z.B. so gehen
Code:
Private Sub Befehl18_Click()
    Dim sSQL    As String
   
    sSQL$ = "SELECT TiteldesNotenstückes FROM Tabelle1 " & _
            "WHERE Komponist= '" & Me.Combo1 & "'"
    Me.Liste30.RowSourceType = "Table/Query"
    Me.Liste30.RowSource = sSQL$
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: [DANKE-ERLEDIGT] Join in einer Abfrage 2 Gast 803 01. März 2004, 08:36
ppc [DANKE-ERLEDIGT] Join in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Auswahlkriterium über 2 Tabellen 1 Majo 1907 24. Feb 2004, 13:54
Willi Wipp Abfrage mit Auswahlkriterium über 2 Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus Formular erstellen 2 frkrone 3248 12. Feb 2004, 14:22
frkrone Abfrage aus Formular erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten anfügen doppelte Datensätze überschreiben 1 Uli 3838 04. Feb 2004, 14:21
Gerd_ Daten anfügen doppelte Datensätze überschreiben
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Hilfe zu SQL (DAO 351 MS) - Abfrage 3 Berny_H 1005 04. Feb 2004, 11:41
borstel Suche Hilfe zu SQL (DAO 351 MS) - Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht 1 caro456 1832 27. Jan 2004, 20:03
Willi Wipp Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Abfrage erstellen ... nur wie ? 1 studi 2219 22. Dez 2003, 20:51
reke Bestimmte Abfrage erstellen ... nur wie ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, ob eine Abfrage ein Ergebnis hat 3 Esdo 3934 09. Dez 2003, 15:53
Fedaykin Abfrage, ob eine Abfrage ein Ergebnis hat
Keine neuen Beiträge Access Tabellen & Abfragen: Access 97 Abfrage Duplikate 9 gast 2419 02. Dez 2003, 14:39
Kay Access 97 Abfrage Duplikate
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter abfrage 3 Gast 1903 01. Dez 2003, 16:12
Caladan Parameter abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfrage mit VBA 3 daMike 1729 26. Nov 2003, 17:58
daMike SQL Abfrage mit VBA
Keine neuen Beiträge Access Tabellen & Abfragen: WENN Formel in einer Abfrage in ACCESS (erledigt) 2 Roger Büttler 9608 19. Nov 2003, 23:20
Roger Büttler WENN Formel in einer Abfrage in ACCESS (erledigt)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project