如何用list列表的数据和SQL语句结合进行筛选？谢谢！

Question

SQL用于限制已有数据的语句我会用，但是想SQL语句的NOT IN后面的数据用List列表框中的数据代替，不知道如何实现呢？谢谢！
SQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN (SELECT EMPNAME FROM ENROL WHERE DATEE = '2010-09-09') ORDER BY DEP " '

Answer 1

SQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN (" & List1.List(1) & ") ORDER BY DEP " '

Answer 2

for i=0 to list1.listcount-1
   strq=stq & iif(i=0,"",",") & list1.list(i)
next iSQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN (" & strq & ") ORDER BY DEP " '"

Answer 3

for i=0 to list1.listcount-1
   strq=stq & iif(i=0,"",",") & "'" & list1.list(i) & "'"
next iSQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN (" & strq & ") ORDER BY DEP " "

Answer 4

修改
for i=0 to list1.listcount-1
   strq=stq & iif(i=0,"",",") & "'" & list1.list(i) & "'"
next iSQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN (" & strq & ") ORDER BY DEP "单个
 SQL_DEPLIST = "SELECT EMPNAME,DEP from empdep WHERE EMPNAME NOT IN '" & list1.list(i) & "') ORDER BY DEP "

Answer 5

你好，我在前面加了句Dim strq, stq, i
但是不行呢，我用MsgBox strq查看了下，只能显示最后一条记录。怎么改呢？谢谢！