Hallo,
habe ein Problem! Habe eine Abfrage die zum Teil auch funktioniert und zwar möchte ich von VB 6.0 mir die Spalten von Abfragen in access mitteilen lassen. Dies funktioniert auch schon code siehe unten! Sind die Abfragen aber mit mehrere Tabellen verknüpft! so bekomme ich kein Ergebniss!
ansonsten schon wenn die Abfrage nur von einer Tabelle abhängt.....

Würde mich wirklich freuen wenn mir da jemand helfen könnte!

Gruß Sascha


Code:
Hier schreibe ich alle Abfragen mit *Public* vorher in eine Combobox.

For Each qtbl In DB1.QueryDefs
If qtbl.Name Like "PUBLIC*" Then
Nameabfrage = Mid(qtbl.Name, 7) '**** Public entf.
cboabfrage.AddItem Nameabfrage
End If
Next

Danach wenn ich in der Combobox die abfrage auswähle soll er mir die spalten in einer listbox ausgeben:


Set qry2 = DB1.QueryDefs("[Public" & cboabfrage.Text & "]")


For J = 0 To qry2.Fields.Count - 1
cbofelder1.AddItem "[" & qry2.Fields(J).Name & "]"
cbofelder.AddItem "[" & qry2.Fields(J).Name & "]"
Next J

Wie sind die Tabellen aufgebaut? Haben Sie gleichnamige Spalten? Wie werden die Tabellen verknüpft bzw gejoint?

Hallo,

Hab insgesammt 4 Tabellen ( Abfrage in access aufgebaut ) von denen jeweils immer nur bestimmte Felder ausgewählt sind!
die in der Abfrage auftauchen sollen! und diese ausgewählten Felder (spalten ) sollen mir dann angezaigt werden! Bei einer Tabelle funzt das auch mit meinem Code nur wenn ich mehrere voneinander abhängige Tabellen hab nicht mehr!....

in einer abfrage die nicht geht gibt es eine haupttabelle, wo von den aderen nur die id festgehalten wird!

Tabellen haben gleichnamige spalten! aber in der Abfrage sind nie gleichnamige angewählt!