Dim ADOrs AS RecordsetADOrs.Open "select * from {妳的表名} where name='"+text1+"'" '把textbox1作為檢索的對象即用來輸入查找的條件 if NOT ADOrs.EOF then '開始查找(用了取麽操作沒有找到到指針即找到了記錄)那麽執行下面的語句 ADOrs("name")=trim(text1) '把字段name顯示給textbox1 ADOrs("year")=trim(text2) '把字段year顯示給textbox2 else msgbox "數據庫沒有檢索到妳要搜索的記錄!",vbokonly,"提示" end if ADOrs.close '最後記得把剛才打開的記錄集給關閉掉或則會給數據庫添加負荷的。
上一篇:吳江猛勱珂工資準時嗎下一篇:西遊記的匠人是怎麽做出劣質的亞麻布和石墨粉的?