Office: Datenbankabfrage per VBA

Mattin12 · 28. November 2004

Hallo zusammen!

Habe mir aus den verschiedensten Threads folgenden Code zusammengebastelt, der mir aus meiner Datenbank, die 10 Spalten für Darsteller vorsieht, die Filme auswirft, bei den Drew Barrymore mit von der Partie ist. Irgendwas scheint aber nicht zu stimmen, denn es kommt ein Datentyp-Konvertierungsfehler.

Hier ist der zugehörige Code - vielleicht kann mir ja jemand helfen:

Code:

Sub Datenbank()

Dim ws As workspace
Dim db As Database
Dim eqtabelle As Recordset
Dim Abfrage As QueryDef
Dim SQL, Darsteller, Pfad As String
Dim anz, x, y As Integer

Pfad = "C:\Daten\db1.mdb"
Darsteller = "Drew Barrymore"
SQL = "SELECT * FROM Tabelle WHERE (((Tabelle.Darsteller1)=" & Darsteller & ")) OR _
(((Tabelle.Darsteller2)=" & Darsteller & ")) OR (((Tabelle.Darsteller3)=" & Darsteller & ")) OR _
(((Tabelle.Darsteller4)=" & Darsteller & ")) OR (((Tabelle.Darsteller5)=" & Darsteller & ")) OR _
(((Tabelle.Darsteller6)=" & Darsteller & ")) OR (((Tabelle.Darsteller7)=" & Darsteller & ")) OR _
(((Tabelle.Darsteller8)=" & Darsteller & ")) OR (((Tabelle.Darsteller9)=" & Darsteller & ")) OR (((Tabelle.Darsteller2)=" & Darsteller & "))"

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(Pfad)
Set Abfrage = db.CreateQueryDef("", Abfrage)
Set eqtabelle = Abfrage.OpenRecordset(SQL, dbOpenSnapshot)

eqtabelle.MoveLast
anz = eqtabelle.RecordCount
eqtabelle.MoveFirst

For x = 1 To anz
For y = 1 To eqtabelle.Fields.Count
Worksheets("Import").Cells(x, y).Value = eqtabelle.Fields(y - 1).Value
Next
eqtabelle.MoveNext
Next

eqtabelle.Close
db.Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PS: Ich weiß leider nicht, wie man den Code als Ganzes in so einem Fenster postet, wie das alle anderen machen...

Gruß
Mattin

:)

Armin.H · 30. November 2004

Hallo Mattin,
welche Fehlermeldung bekommst du genau ?
Hast Du die DAO Bibliothek eingebunden ?

Grüße

Armin

Click mal in der zweiten Symbolleiste auf das vierte Symbol von rechts

Mattin12 · 30. November 2004

Zunächst einmal vielen Dank für Deine Hilfe!

Es wird der "Laufzeitfehler '3421': Datentyp-Konvertierungsfehler" angezeigt.

Ich weiß nicht, was eine DAO-Bibliothek ist. Wie gesagt, ich kenne mich mit Datenbankprogrammierung überhaupt nicht aus. Mein Code ist eigentlich eine Ansammlung von Fragmenten aus mehreren Threads hier aus dem Board.

Was für ein Symbol meinst Du. Es sind ja nicht bei jedem die gleichen Sysmbolleisten aktiviert.

Gruß
Mattin

tom_r · 30. November 2004

Hi Mattin,

Du kannst die DAO-Bibliothek aktivieren, wenn Du im Visual-Basic Editor bist. dort unter Extras/Verweise den Eintrag aktivieren.

gruß

Thomas

Mattin12 · 30. November 2004

Wenn die 'Microsoft DAO 3.6 Object Library' heißt, ist sie bereits aktiviert...

Armin.H · 30. November 2004

Hallo,
wenn Du mit dem Debuger durch den Code gehts (Einzelschrittmodus mit F8), an welcher Stelle bringt er die Fehlermeldung ?

Grüße

Armin

Armin.H · 30. November 2004

Hallo,
manchmal bin ich wirklich blind

Du musst die Zeile

Set Abfrage = db.CreateQueryDef("", Abfrage)

durch die Zeile

Set Abfrage = db.CreateQueryDef("", SQL)

CreateQueryDef erwartet als zweiten Parameter einen SQL Zeichenkette und nicht ein QueryDef Objekt

ersetzen

Grüße

Armin

Mattin12 · 30. November 2004

Hallo Armin!

Habe ich ersetzt.

Aber jetzt kommt an gleicher Stelle der 'Laufzeitfehler 3075':Syntaxfehler (fehlender Operator) in Abfrageausdruck...

Was stimmt den mit dem String der SQL-Abfrage nicht, der ist direkt aus Access kopiert, mit der Ausnahme dass ich den Namen des Darstellers durch eine Variable ersetzt habe.

Gruß
Mattin

Armin.H · 30. November 2004

Hallo,
wenn Du als Kriterium eine Zeichenkette benutzen möchtest, must Du die Zeichenkette in Anführungszeichen setzen (einfache oder doppelte)

also in unserem Beispiel

Code:

SQL = "... WHERE (((Tabelle.Darsteller1)='" & Darsteller & "')) ....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

Armin

Mattin12 · 30. November 2004

Die Baustelle nimmt kein Ende:

Jetzt meldet er einen Datentyp-Konvertierungsfehler (Laufzeitfehler '3421')...

Armin.H · 30. November 2004

an welcher Stelle genau ?

Mattin12 · 30. November 2004

Eine Zeile tiefer...

Armin.H · 1. Dezember 2004

Hallo,
wenn Du aus einem querydef Objekt einen Recordset öffnen möchtest muss der Code folgendermasen aussehen:
Code:

Set eqtabelle = Abfrage.OpenRecordset( dbOpenSnapshot)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wobei Du auch direkt den Recordset mit

Code:

Set eqtabelle = db.OpenRecordset(SQL, dbOpenSnapshot)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

öffnen kannst.

Der Unterschied ist folgender:
In dem Objekt Abfrage ist der SQL Text ja schon gespeichert, Du brauchst ihn daher nicht mehr beim öffnen des Recordsets angeben

Wenn Du deinen Recordset über den Datenbankverweis db öffnest musst Du den SQL Text angeben, da dem Datenbank Objekt nicht bekannt ist, was es in den Recordset laden soll.

Wenn Du den Weg über das db Objekt wählst benötigst Du das QueryDef Objekt Abfrage gar nicht.

Grüße

Armin

Mattin12 · 1. Dezember 2004

Yippieh!

Das war die erste Datenbankabfrage, die ich per VBA erledige und nicht vorher mittels Makro-Recorder aufgezeichnet habe.

Dann kann ich ja jetzt weiter experimentieren...

Vielen Dank Armin!!!

Gruß
Mattin

Office: Datenbankabfrage per VBA

Datenbankabfrage per VBA

Datenbankabfrage per VBA

Datenbankabfrage per VBA

Datenbankabfrage per VBA

Datenbankabfrage per VBA

Datenbankabfrage per VBA - Similar Threads - Datenbankabfrage VBA

VBA in einer Zeile zu lang

Importieren von Daten aus einer Datenbank mithilfe einer systemeigenen Datenbankabfrage (Power ...

Datenbankabfrage über VBA in Excel

Excel - Word - Excel (Datenbankabfrage funktioniert nicht)

Datenbankabfrage aus Kombinationsfeld

Datenbankabfrage mit Datumseingrenzung

Erstellen einer Datenbankabfrage heist das glaube ich