Supportnet / Forum / Datenbanken
Pass Through und Access Funktionen
Frage
Hallo habe mir mithilfe von:
[url]http://support.microsoft.com/kb/508366/de[/url]
eine Passthroghabfrage gestrickt.
Function CreateSPT(SPTQueryName As String)
Dim mydatabase As Database, myquerydef As QueryDef
Set mydatabase = DBEngine.Workspaces(0).Databases(0)
Set myquerydef = mydatabase.CreateQueryDef(SPTQueryName)
myquerydef.Connect = "ODBC;DSN=bla;Description=bla;DATABASE=blubb"
myquerydef.SQL = "SQLABFRAGEdievielzulangist"
myquerydef.Close
End Function
Schön und gut. Diese Abfrage wurde, mehr oder weniger erfolgreich in meinen Abfrage kreiert. *freu*
Mehr oder weniger erfolgreich, weil man [b]keine Access Funktionen in die PT-Abfragen[/b] einbauen kann (meines Wissens nach), da diese anscheinend direkt auf dem Server ausgeführt werden.
Dies muss man umgehen indem man auf VBA zurückgreift und dort die SQL Abfrage von vorne mit der Funktion versieht und diese dann an die PassThrough Query weiterleitet.
Wenn ich obiges erneut ausführe meckert er, dass diese Abfrage schon existiert.
Wie greife ich auf bereits erstellte PT-Abfragen zugreifen?
Wenn ich dann dort die SQL Abfrage ändern könnte wäre mir sehr geholfen...
Sagen wir mal als Beispiel wir haben obige Funktion mit Parameter PT123 durchlaufen lassen, und somit eine PTA Abfrage mit dem Namen PT123 kriert. Wie kann ich bei PT123 die SQL-Abfrage ändern... Irgendwie muss es so gehen:
ca. ~ myquerydef.PT123.SQL ="blabla"
Vielen Dank
Grüße
Roland
Antwort 1 von Booyeoo
Kann ich nachträglich den Titel meines Support-Eintrags ändern? Bzw den Text Edititeren, würden geren VBA- anstatt AccessFunktionen sagen.
Antwort 2 von Booyeoo
Sub AbfrageÄndern()
Currentdb.QueryDefs("DeineAbfrage").SQL = "DeineNeueSQL"
End Sub
*pfeif unschuldig in der gegend rum*
Currentdb.QueryDefs("DeineAbfrage").SQL = "DeineNeueSQL"
End Sub
*pfeif unschuldig in der gegend rum*

