SQL - SQLListe in String in VBA

[Rafii1]

Hi,

ich würde gerne über VBA einen SQL Code schreiben, aber komme jetzt nicht weiter, wie ich SQLListen darin integrieren kann.

Wenn ich den Code aus der Abfrage kopiere und dann ganz normal ans Ende jeder Zeile " & _ schreibe komme ich nicht weiter...

So sieht der Code momentan aus:

Code:

sql = "SELECT tblCustomer.CustomerId, tblCustomer.CustomerName, tblCustomer.CustomerZipCode,  " & _
                " tblCustomer.DateOfBirth, tblCustomer.TotalOrderValue, SQLListe("SELECT tblDokumentation.DokBezeichnung FROM tblDokumentation WHERE tblDokumentation.DokID = "3") AS DokListe, tblCustomer.LastOrderTime, " & _
                " tblOrder.OrderId, tblOrder.OrderDate, tblOrder.OrderStatus " & _
                " FROM tblCustomer " & _
                " INNER JOIN tblOrder " & _
                "   ON tblCustomer.CustomerId = tblOrder.CustomerId " & _

Danke für eure Hilfe!

[markusxy]

Du hast auf jeden Fall ein Syntaxfehler.
Du verwendest ein Hochkomma beim Beginn der SQLListe welches aber nicht geschlossen wird.

Ist die DokID wirklich ein Text oder eine Zahl?

Ansonsten Fehlermeldungen?

[Rafii1]

Hey!

Ich hatte hier ein Beispiel aus dem Internet genommen, bei meinem richtigen Code wird der ganze Text rot angezeigt. Vielleicht hätte ich den direkt posten sollen:

Code:

sSQL = "SELECT tblRisikoart.Risikoname, tblReports.ReportBezeichnung, tblReports.ZielundZweck, tblReports.Turnus, tblProzesse.Bezeichnung, tblOrganigramm.Bezeichnung, tblReports.Adressaten,    " & _
               " SQLListe("SELECT tblDokumentation.DokBezeichnung FROM tblDokumentation INNER JOIN (tblReports INNER JOIN tblReports_Dokumentation ON tblReports.RepID = tblReports_Dokumentation.RepFK) ON tblDokumentation.DokID = tblReports_Dokumentation.DokFK WHERE tblReports.ReportBezeichnung = '" & tblReports.[ReportBezeichnung] & "'") AS DokListe, " & _
                " SQLListe("SELECT tblProzesse.Bezeichnung FROM tblReports INNER JOIN (tblProzesse INNER JOIN tblReport_VorgelagerteProzesse ON tblProzesse.ProID = tblReport_VorgelagerteProzesse.VProFK) ON tblReports.RepID = tblReport_VorgelagerteProzesse.RepFK WHERE tblReports.ReportBezeichnung = '" & tblReports.[ReportBezeichnung] & "'") AS VorgelagerteProzessListe, " & _
                " SQLListe("SELECT tblProzesse.Bezeichnung FROM tblReports INNER JOIN (tblProzesse INNER JOIN tblReports_NachgelagerteProzesse ON tblProzesse.ProID = tblReports_NachgelagerteProzesse.NProFk) ON tblReports.RepID = tblReports_NachgelagerteProzesse.RepFK WHERE tblReports.ReportBezeichnung = '" & tblReports.[ReportBezeichnung] & "'") AS NachgelagerteProzessListe " & _
        " FROM tblRisikoart INNER JOIN ((tblProzesse INNER JOIN (tblOrganigramm INNER JOIN tblReports ON tblOrganigramm.OrgID = tblReports.PZV) ON tblProzesse.ProID = tblReports.Prozess) INNER JOIN tblRisikoart_Reports ON tblReports.RepID = tblRisikoart_Reports.RepFK) ON tblRisikoart.Risikonummer = tblRisikoart_Reports.RiskFK "

Wie gesagt in der Eingabe in VBA wird direkt alles Rot angezeigt, egal wie ich es drehe und wende... Vielleicht findest du ja hier einen Fehler.

[markusxy]

Na ja, wenn du den String einer Variable zuweist, darfst du innerhalb des Strings kein doppeltes Hochkomma verwenden. Das bedeutet, dass der String endet. Das geht nur innerhalb des Query Tools.
Bei der Zuweisung zu einer Variable einfache Hochkommas verwenden, oder doppelte Hochkommas verdoppeln.

Viel besser allerdings, du machst eines gepeicherte Abfrage.

Abgesehen davon:

Code:

 WHERE tblReports.ReportBezeichnung = '" & tblReports.[ReportBezeichnung] & "'"

Verwende einen Alias in der äußeren Abfrage, damit klar ist welcher Wert gemeint ist. Hier mit Alias r in der "Hauptabfrage"

Code:

 WHERE tblReports.ReportBezeichnung = '" & r.ReportBezeichnung & "'"

[Rafii1]

Moin!

Das mit den doppelten Hochkommas hat prima geklappt, danke für den Tipp!

Hierzu:

Zitat:

Das kann doch nicht funktionieren.

In der Abfrage funktioniert es genau so wie es das soll. Warum sollte es das nicht tun?

Code:

Verwende einen Alias in der äußeren Abfrage und dann ganz normal zuweisen. Hier mit Alias r in der "Hauptabfrage"

Hier weiß ich nicht was genau du damit meinst, möchtest du mir da nochmal einen Denkanstoß geben?

Grüße

[Beaker s.a.]

Code:

SELECT T.Feld FROM Tabelle As T

Reicht das als Anstoss?