Verwenden Sie SQL in Access VBA

Question

So könnte dies eine dumme Frage sein, aber ich konnte nicht genug Material darüber finden, oder ich verstehe es einfach nicht.

Was ich versuche zu tun ist, verwenden Sie SQL-Anweisungen in meinem VBA-Code. Ich weiß, man kann: DoCmd.runSQL, aber das scheint nur nicht für mich arbeiten, es spuckt immer Fehlermeldungen aus.

Zum Beispiel habe ich versucht:

Set StringArray() = DoCmd.RunSQL("Select column from table") 

oder

If (DoCmd.RunSQL(Select sum(column) from table where coulmn = '" + Me.txtField + '") > 0) Then 

aber es wirft immer so etwas wie: Kompilieren Fehler. Funktion oder Variable erwartet.

Ich weiß nicht, ob ich gerade etwas falsch verstanden habe, aber ich dachte, Sie können normale SQL-Anweisungen mit DoCmd.runSQL verwenden.

Answer 1

Verwenden GetRows mit diesem Skelett:

Dim rs As DAO.Recordset 

Set rs = CurrentDb.Openrecordset("Select column from table") 

StringArray = rs.GetRows()  
rs.Close 

Set rs = Nothing 

die Dokumentation für GetRows für die ganze Geschichte nachschlagen.

Answer 2

DoCmd.RunSQL ist eine Methode. Es gibt kein Ergebnis zurück, es führt etwas Handlung durch. Daher können Sie es nicht StringArray() zuweisen.

Mehr hier:

https://msdn.microsoft.com/en-us/vba/access-vba/articles/docmd-runsql-method-access