Wie erstelle ich eine Pass-Through-Abfrage mit einer Datum-Eingabeaufforderung zu laden und dann in eine lokale Tabelle (Tabelle erstellen)?

Wie erstelle ich eine Pass-Through-Abfrage mit einer Datum-Eingabeaufforderung zu laden und dann in eine lokale Tabelle (Tabelle erstellen)?

Möchte ich laufen diese in access und bevor es geht auf den server ich möchte die Abfrage fragt nach einem Datum geben Sie die Kriterien und dann, wenn die Ergebnisse zurückgegeben werden, ich will, dass Sie gespeichert in einer lokalen Tabelle für die weitere Verarbeitung und Verbindungstechnik auf andere lokale-Tabellen und-Auswertung.

Ich weiß, gibt es eine Möglichkeit, dies über VBA. Nachfolgend finden Sie einige Beispiel-code, aber ich bin nicht zu sehen, der Teil, wo ich kann speichern diese in einer lokalen Tabelle in MS Access. 

/* SAMPLE CODE...not mine*/ 
Dim db As DAO.Database 
Dim qdExtData As QueryDef 
Dim strSQL As String 
Set db = CurrentDb 
strSQL = "SELECT * FROM TBL WHERE FIELD1 = " & 
[Forms]![Form1]![Combo6] 
Set qdExtData = db.CreateQueryDef("QRY_PASS_THROUGH") 
qdExtData.Connect = "ODBC;DSN=???;UID=???;PWD=???;DBQ=???;" 
qdExtData.SQL = strSQL 
qdExtData.Close 
db.Close 
Set db = Nothing 
/* SAMPLE CODE...not mine*/

HINTERGRUND-INFO: Der Grund, warum ich bin mit einer Pass-through-Abfrage war weil ich kopierte eine große Menge von SQL von Peoplesoft query enthält einige CASE-Anweisungen und andere SQL-Komponenten, die die Jet-engine nicht verarbeiten, aber die Oracle-server-ich bin das senden es zu können.

InformationsquelleAutor daniellopez46 | 2012-06-11
  1. 1

    Ein anderer Ansatz wäre, wickeln Sie das SQL in eine Ansicht, in der PeopleSoft-system und vereinfachen dadurch Ihre Zugangsdaten.

    PeopleSoft generieren können auch COM-API, über die PeopleSoft-Komponenten. Dieses soll die Entwicklung vereinfachen und schützt auch Ihre externe Anwendung, wenn es eine PeopleSoft-upgrade (in der Regel sehr von 1-2 Jahren). Die raw-SQL, die in PeopleSoft wird immer komplexer; eine alternativethe Ansatz ist die Interaktion mit dem system über die Komponenten-interfaces.

    Gibt es ein Beispiel, p79 dieser Oracle-Handbuch:
    http://docs.oracle.com/cd/E28461_01/psft/acrobat/pt852tcpi-b0212.pdf

    InformationsquelleAutor ardochhigh
  2. 1

    Warum versuchen Sie nicht, 

    Dim db As DAO.Database 
Dim qdExtData As QueryDef 
Dim strSQL As String 

Set db = CurrentDb 

strSQL = "SELECT * FROM TBL WHERE FIELD1 = " & 
[Forms]![Form1]![Combo6] 

Set qdExtData = db.CreateQueryDef("QRY_PASS_THROUGH") 
qdExtData.Connect = "ODBC;DSN=???;UID=???;PWD=???;DBQ=???;" 
qdExtData.SQL = strSQL 
qdExtData.Close 

'Now use the Pass Thru query above as the data source for the Make table query below 
strSQL = "Select QRY_PASS_THROUGH.* INTO tblPassThruResults FROM QRY_PASS_THROUGH" 
db.Execute strSQL 

db.Close 
Set db = Nothing

    Jedoch, diese funktioniert einmal, und dann werden Sie haben, um mit dem löschen der vorherigen Abfrage und Tabelle, da der obige code erstellt neue.

    Eine bessere Lösung ist, schaffen sowohl die PassThruQuery und die Tabelle in der Entwicklung und dann einfach stellen Sie beim ausführen von code: 

    Dim db As DAO.Database 
Dim qdExtData As QueryDef 
Dim strSQL As String 

Set db = CurrentDb 

strSQL = "SELECT * FROM TBL WHERE FIELD1 = " & 
[Forms]![Form1]![Combo6] 

'Reset the SQL statment for the query 
Set qdExtData = db.QueryDefs("QRY_PASS_THROUGH") 
qdExtData.SQL = strSQL 
'Empty the table 
strSQL = "DELETE * FROM tblPassThruResults"
db.Execute strSQL 

'Now use the Pass Thru query above to reload the table 
strSQL = "INSERT INTO tblPassThruResults Select QRY_PASS_THROUGH.* FROM QRY_PASS_THROUGH" 
db.Execute strSQL 

db.Close 
Set db = Nothing 
Watch out for your date string in the query. You may need to add delimiters. Top
    InformationsquelleAutor daniellopez46
Schreibe einen Kommentar