團團圓圓2013.07.12 回答

Private Sub withdrawcmd_Click（） Dim rs As Recordset Dim sqlstr As String \‘開啟\“學號課程\”表 Set rs = courseDB。OpenRecordset（\“學號課程\”， dbOpenDynaset） sqlstr = \“select 欄位名１，欄位名Ｎ from 表名 stuid=\” & IDtxt。Text & \“ and 課程編號 = \” & courseIDtxt。Text rs。open sqlstr，con，1，1 \’con為你的資料庫連線物件 If not rs。eof Then \‘如果已經選修了該門課程 RD。Delect MsgBox \“退課成功\”， vbOKOnly Fillfrm。Hide Else \’如果沒有選修該門課程 MsgBox \“你沒有選修這門課程\”， vbOKOnly Fillfrm。Hide End If \‘關閉記錄集 rs。CloseEnd Sub樓上的說得對，查詢的時候一定要注意欄位屬性，如果是數字，在ＳＱＬ中不加單引號，如果是字元型別就要加！

cassiopeia2013.07.11 回答

sqlstr = \“stuid=\” & IDtxt。Text & \“and 課程編號 = \” & courseIDtxt。Text & \“ \”這句如果ID和編號不是數字的話需要加單引號and 前要有一個空格，不然就和前面的粘在一起了，and 運算子當然就丟失了