组合框数据来源

chinasa　发表于：2017-03-15 15:10:45 　

我有一个组合框，它的数据来源希望设置为如下SQL语句。是否有办法？

connstr = "DRIVER={Microsoft ODBC for Oracle};SERVER=" & strDBName & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
ConnDB.CursorLocation = adUseServer
ConnDB.Open connstr

DoCmd.SetWarnings 0

DSTAR = Forms!Open!DSTAR
DEND = Forms!Open!DEND

strSQL = "SELECT t1.A, t1.B" _
& " FROM TABL1 t1 INNER JOIN TABLE2 t2 ON t1.XX_ID = t2.XX_ID" _
& " WHERE ((to_CHAR(t1.DATE1,'yyyy-mm-dd') Between '" & DSTAR & "' And '" & DEND & "') AND (SUBSTR(t1.ABC,1,3)= 'XXX') AND ((t2.DEF)='YYY'))"

rst.Open strSQL, ConnDB, 3, adLockPessimistic

Top

MDZZ 发表于：2017-03-15 15:26:08

set 组合框.RECORDSET=RST 试试

Top

chinasa 发表于：2017-03-15 15:55:26

MDZZ老师，您好！

我这些代码应该写在哪个事件中？我尝试建一个按钮，并在其单击事件中写上如上代码并加上 Set Me.CKCQ.Recordset = rst ，但组合框的值仍然是空白。

Top

chinasa 发表于：2017-03-15 16:07:20

rst.Open strSQL, ConnDB, 3, adLockPessimistic

Set Me.CKCQ.Recordset = rst
MsgBox Me.CKCQ.Column(0)

我在上面代码后面上上这两行代码，执行时MSGBOX提示无效使用NULL

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

组合框数据来源