✔ Abfrage in mdb erstellen

[Scotty86]

Hallo,

es gibt zwar schon einiges in diese Richtung im Forum doch leider nicht das, was ich brauche.
Ich Arbeite mit einem VB Frontend, das Daten verarbeitet und abspeichert. Die Daten speicher ich in einer Access Datenbank, da dies recht unkompliziert und schnell geht.

Jetzt zu meinem Problem, ich habe in der Access-Datenbank auch einige Abfragen, diese moechte ich nun aber dynamisch in VB erstellen und in die Datenbank schreiben, damit das ganze etwas flexibler wird.

Also ich habe meinen SQL-Befehl und möchte diesen als Abfrage in einer Access-Datenbank abspeicher, damit ich spaeter darauf zurueckgreifen kann.

Vielen Dank.

------- Edit -------
Ich arbeite mit DAO 3.6
Und ein Befehl mit dem ich eine Abfrage loeschen kann, waere auch klasse

 

[Scotty86]

Hab jetzt selber eine Loesung gefunden:

Public Function create_Abfrage(ByVal Datenbank, Name_Abfrage As String, SQL_Query As String)

Dim ws As Workspace
Dim db As Database
Dim qry As New QueryDef
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(Datenbank, False, False)
    
qry.Name = Name_Abfrage
qry.SQL = SQL_Query

db.QueryDefs.Append qry
db.Close
Set ws = Nothing
Set db = Nothing

End Function

Abfrage loeschen wird dann wohl mit db.QueryDefs.Delete Abfrage_Name gehen