要在where後面下DISTINCT可以ㄇ?
Adodc3.RecordSource = "select * from 學生上課記錄 where 老師姓名='" & (Adodc1.Recordset("老師姓名")) & "'and 上課日期 like '" & (Text1.Text) & "%' DISTINCT'上課班別' order by 上課班別"
Adodc3.Refresh
'要adodc3顯示的班別不重復
Adodc3.RecordSource = "select * from 學生上課記錄 where 老師姓名='" & (Adodc1.Recordset("老師姓名")) & "'and 上課日期 like '" & (Text1.Text) & "%' DISTINCT'上課班別' order by 上課班別"
Adodc3.Refresh
'要adodc3顯示的班別不重復
全站熱搜
留言列表