如何在Access VBA中使用SQL SELECT语句

Question

我有一个组合框,其值我想与SQL WHERE子句一起使用.如何根据组合框值在VBA中运行 SELECT语句？

Answer 1

如果你想使用绑定列值,你可以简单地参考组合:

sSQL = "SELECT * FROM MyTable WHERE ID = " & Me.MyCombo

您还可以参考column属性:

sSQL = "SELECT * FROM MyTable WHERE AText = '" & Me.MyCombo.Column(1) & "'"

Dim rs As DAO.Recordset     
Set rs = CurrentDB.OpenRecordset(sSQL)

strText = rs!AText
strText = rs.Fields(1)

在文本框中:

= DlookUp("AText","MyTable","ID=" & MyCombo)

Answer 2

Access 2007可能会丢失CurrentDb:请参阅http://support.microsoft.com/kb/167173,因此如果使用示例获取"对象无效或不再设置",请使用:

Dim db as Database
Dim rs As DAO.Recordset
Set db = CurrentDB
Set rs = db.OpenRecordset("SELECT * FROM myTable")