Office: (Office 2007) VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben

daki · 11. Februar 2009

Hallo

Wie kann ich eine SQl Abfrage via VBA ausführen und danach den Wert in eine VBA Variable schreiben?

Ich habe es so versucht:

Code:

Dim qdf As DAO.QueryDef
Dim strSql As String
Dim actValue As String

trSql = "SELECT Category.name FROM Category WHERE (((Category.id)=" & Me!categorySelect.Value & "))"
Set qdf = CurrentDb.CreateQueryDef("qryDummy", strSql)
DoCmd.OpenQuery qdf.name
actValue = qdf
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Als Resultat bekomme ich IMMER nur ein Wert zurück (Kategorie Name)....ich bekomme nun eine Fehler meldung dass die Typen unverträglich sind.

Wie kann ich das SQL Resultat in einen String umwandeln?

Thx a lot

:)

CptChaos · 12. Februar 2009

Schau Dir mal die Domänenaggregatsfunktionen (DLookup) an.
Damit sollte das ganze lösbar sein.

Alternativ könnte man über ein RecordSet den Wert ermitteln und in die Variable schreiben.

ebs17 · 13. Februar 2009

(1) Zur Fehlermeldung:

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

actValue = qdf
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

actValue ... ist eine Variable mit Datentyp String
qdf ... ist eine Objektvariable
Das passt nicht zusammen.

(2) Das Erstellen und Ausführen einer gespeicherten (Auswahl-) Abfrage ist unnötig, die SQL-Anweisung wird bei Zugriff auf diese automatisch ausgeführt.

(3) Zum Auslesen / Bearbeiten von Tabellen/Abfragen benötigst Du, wie Benny schon anmerkte, eine gesonderte Anweisung, z.B.
Code:

Dim rs As DAO.Recordset
...
Set rs = CurrentDb.OpenRecordset(trSql)
actValue = rs!name
' alternativ actValue = rs(0) ... erstes Feld in der Feldauflistung des Recordsets
...
rs.Close
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, das hilft Dir weiter.

Office: (Office 2007) VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben

VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben

VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben

VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben - Similar Threads - VBA SQL Abfrage

Binäre Dateien verarbeiten

SQL-Abfrage in VBA eines Wahr/Falsch-Feldes

Variablengesteuerte SQL Abfrage aus Excel VBA starten und in Zellen ausgeben

[VBA] Wert aus SQL-Abfrage in Variable speichern

SQL-Abfrage direkt in VBA-Variable?

Abfrage verändern via VBA/SQL

Wert einer sql-Abfrage in VBA an Textfeld übergeben