SQL="select * from 表 where 部门=002" rs.CursorLocation = adUseClient 'rs-ado的记录集 rs.Open sql, Conn, adOpenDynamic, adLockOptimistic if rs.eof then msgbox"not in",48 else msgbox"in",64 end if
SQL="select * from 表 where 部门 like '%002%'"
在Textbox(假设为TEXT1)控件中给出部门ID PRIVATE SUB TEXT1_LOSTFOCUS() SQL="select * from 表 where 部门='" & TEXT1.TEXT & "'" rs.CursorLocation = adUseClient 'rs-ado的记录集 rs.Open sql, Conn, adOpenDynamic, adLockOptimistic if rs.eof=TRUE AND RS.BOF=TRUE then msgbox"not in",48 else msgbox"in",64 end if END SUB
rs.CursorLocation = adUseClient 'rs-ado的记录集
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
if rs.eof then
msgbox"not in",48
else
msgbox"in",64
end if
PRIVATE SUB TEXT1_LOSTFOCUS()
SQL="select * from 表 where 部门='" & TEXT1.TEXT & "'"
rs.CursorLocation = adUseClient 'rs-ado的记录集
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
if rs.eof=TRUE AND RS.BOF=TRUE then
msgbox"not in",48
else
msgbox"in",64
end if
END SUB
我想做的是一個員工入住寢室的程序。寢室是按部門分配的,想如果一個部門的寢室不夠的話是可以和別的部門的寢室調整的也就是可是混住的。那就要要求寢室這個表裡的部門字段可是同時存方多個部門的ID用於判斷這個寢室是由哪幾個部門混住的。