7,763
社区成员
发帖
与我相关
我的任务
分享
Set callRst = Nothing
SQLtxt = "select TOP " & SQLlistMaxNum & " code,tele_code,username,department,address,remark,number,pinyin,adcode,1 as type from tele " & _
"where username like '" & temp & "' or department like '" & temp & "' or address like '" & temp & "' or remark like '" & temp & "'"
SQLtxt = SQLtxt & " union "
SQLtxt = SQLtxt & "select TOP " & SQLlistMaxNum & " code,tele_code,username,department,address,remark,number,pinyin,adcode,2 as type from tele " & _
"where pinyin like '%" & USE(0) & "%' or pinyin like '%" & USE(1) & "%' or pinyin like '%" & USE(2) & "%' or pinyin like '%" & USE(3) & "%' or pinyin like '%" & USE(4) & "%'"
SQLtxt = "select * from (" & SQLtxt & ") order by type"
Set callRst = callCnn1.Execute(SQLtxt)