Как использовать инструкцию SQL SELECT с Access VBA

Question

У меня есть поле со списком, значение которого я хочу использовать с предложением SQL WHERE. Как вы запустите инструкцию SELECT внутри VBA на основе значения combobox?

Answer 1

Если вы хотите использовать связанное значение столбца, вы можете просто обратиться к комбо:

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

Вы также можете обратиться к свойству столбца:

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

Вот еще один способ использования инструкции SQL SELECT в VBA:

sSQL = "SELECT Variable FROM GroupTable WHERE VariableCode = '" & Me.comboBox & "'" 
Set rs = CurrentDb.OpenRecordset(sSQL) 
On Error GoTo resultsetError 
dbValue = rs!Variable 
MsgBox dbValue, vbOKOnly, "RS VALUE" 
resultsetError: 
MsgBox "Error Retrieving value from database",VbOkOnly,"Database Error" 

Answer 3

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")