Cách sử dụng câu lệnh SQL SELECT với Access VBA

Question

Tôi có một combobox có giá trị mà tôi muốn sử dụng với mệnh đề SQL WHERE. Làm thế nào để bạn chạy câu lệnh SELECT bên trong VBA dựa trên giá trị combobox?

Answer 1

Nếu bạn muốn sử dụng giá trị cột bị ràng buộc, bạn chỉ có thể tham khảo các kết hợp:

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

Bạn cũng có thể tham khảo các tài sản cột:

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) 

Trong một textbox:

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

Answer 2

Dưới đây là một cách khác để sử dụng câu lệnh SQL SELECT trong 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 có thể mất CurrentDb: xem http://support.microsoft.com/kb/167173, vì vậy trong trường hợp nhận được "Object không hợp lệ hoặc không còn thiết lập" với các ví dụ, sử dụng:

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